[Streetracer]

Всем доброго времени суток!

У меня есть задача написать клиент сервер на Winsock.
Функционал придельно прост:

Клиент отправляет серверу текст, тот его выводит в Memo и сохраняет в файл.

Вот код который я успел наваять:

Сообщение от Delphi

procedure TServ.RunServer;
var
wPort:word;
begin
try
wPort := StrToInt(wPorte.Text);
except ShowMessage('---');
end;
WSAStartup(MakeWord(2,2),WSA);
DisplayLog.Lines.Add('----------------');
DisplayLog.Lines.Add('Version Winsock - '+WSA.szDescription);
DisplayLog.Lines.Add('State - '+WSA.szSystemStatus);
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 ));
DisplayLog.Lines.Add('IP Edit - '+ipEdit.Text);
DisplayLog.Lines.Add('Port - '+wPorte.Text);
DisplayLog.Lines.Add('----------------');
bind(hSocket,hAddr,Len);
listen(hSocket,len);
end;

Клиент пока не начинал, но думаю что надо пользоваться функцией send

Помогите со всей етой непоняткой! Заранее огромное спасибо!

[Bars1992]

Сори я не понял с помощю какого компонента или модуля ты реализовуешь клиента и сервера. Обычно для таких целях используют компоненты вкладки Indi там все придеьно просто.

[Streetracer]

Я реализую с помощью Winsock! Indy мне не нужно..