tClientSocket, посылка структуры во время подключения...

[Altera]

Привет всем!
У меня такой вопрос, можно ли послать серверу (tServerSocket-у) структуру данных при подключении. Т.е. Что-бы при событии tServerSocket-а onClientConnect оно было-бы обработано?

[Makarov]

Если я вас правильно понял, то можно.
Например:

procedure TClient.CConnect(Sender: TObject; Socket:TCustomWinSocket);   begin
   StructC.Kod:=1;
   StructC.Nik:=FClient.Caption;
   StructC.IPClient:=ClientSocket.Socket.LocalHost;
   StructC.IPClientDop:='';
   StructC.Text:='';
   StructC.FileName:='';
   StructC.Size:=0;
   StructC.Flag:=false;   
   ClientSocket.Socket.SendBuf(StructC,sizeof(StructC));
end;

StructC - это запись.