Сервер и клиент [Delphi]

[iGlass]

Нужно реализовать клиент-серверное приложение на Delphi с использование Winsock

Функционал очень прост

Вот кусок из клиента:


{...}
var
SendData:String;

Procedure SendData
var
hSock:TSocket;
WSA:WSADATA
addr:TSockAddrIn; //Сомнения ведь столько всяких Addr'ов
begin
{...}
send(hSock,@buf,0)
end;


В буфер записываем какую нибудь строку и функции сенд отправляем буфер серверу, тот в свою очередь принимает строчку и сохраняет её в файл.

Вот кусок из сервера(он консольный)

program WServer;

{$APPTYPE CONSOLE}

uses
Winsock,
Windows,
SysUtils;
type
TWinsockServer = class(TObject)
Private
hSocket: TSocket;
Addr: TSockAddrIn;
wsaData: TWSAData;
Public
procedure Connect;
procedure ReceiveData(Sock: TSocket; Buffer:Char);


Подскажите как правильно сделать продцедуру получения данных?

Заранее всем спасибо!

[slesh]

на форуме ищи. дофига уже таких вопросов было

[Serbies]

iGlass - мб помогит(читабельно только гуи опустить) http://delphiworld.narod.ru/base/chat.html
slesh - вот так и получается что когда исчешь то натыкаешься только на каие мессаги и серч становицо пыткой =( лучше уж сразу тему убивать =(