Er sagt mir immer noch 1053 und danach accsess violation. Ich hab erstmal in onclientconnect geschrieben, ich hoffe dass war richtiger.
Delphi-Quellcode:
procedure Tform1.serversockClientConnect(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;