Error 10049 kann nicht connecten

[Marco Haffner]

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;