Empfangen gehört in OnRead wenn der ServerType auf stNonBlocking eingestellt ist (standard). Auch der ClientType muß dann auf ctNonBlocking eingestellt sein.
Außerdem siehe
TClientSocket TServerSocket, da habe ich auch ein kleines Programm das ein Bitmap versendet und ThreadBlocked arbeitet. Vielleicht hilft es weiter.
Delphi-Quellcode:
procedure TFormServer.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
rec1: iprec;
z: integer;
begin
serversock.Socket.ReceiveBuf(rec1,sizeof(rec1));
z := serversock.socket.ActiveConnections;
stringgrid.cells[z,1] := rec1.clientip;
stringgrid.cells[z,2] := rec1.clienthost;
end;