W&T Web-IO Handbuch Seite 165

&T
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
BytesReceived:Integer;
begin
BytesReceived:=ClientSocket1.Socket.ReceiveLength;
ClientSocket1.Socket.ReceiveBuf(Counter, BytesReceived);
end;
Das gezeigte Beispiel kann natürlich auch auf alle anderen
Strukturen umgesetzt werden.
rrtum und Änderung vorbehalten
TCP / UDP - Binary
165