27.04.2010, 09:02
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Люди добрые! Помогайте плиз) А то я скоро на отличненько...
Задача такая нужно написать Клиент\Сервер на Winsock!
Функционал придельно прост! Клиент отправляет текст, сервер отображает его в Мемо...
Вот я тут навая немного. Но ничё не выходит...
Код:
WSAStartup(MakeWord(2,2),WSA);
hSocket:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
hAddr.sin_family:=AF_INET;
hAddr.sin_port:=htons(wPort);
hAddr.sin_addr.S_addr:=inet_addr(Pchar(ipEdit.Text));
bind(hSocket,hAddr,Len);
listen(hSocket,len);
while buffer = '' do // Вот тут всё виснет...
recv(hSocket,buffer,1024,0);
Application.ProcessMessages;
DisplayLog.Lines.Add('----------------');
DisplayLog.Lines.Add(buffer);
DisplayLog.Lines.Add('----------------');
Может я в клиете косячу? Отправляю буфер функцией Send. в msdn не отправлять.. уже был и не раз.. И как разобратся с циклом чтоб он не вешал программу?
Заранее Охринительное спасибо! |
|
|