server
Delphi-Quellcode:
procedure Tform1.serversockClientRead(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;
client
Delphi-Quellcode:
procedure Tform1.loginbuttonClick(Sender: TObject);
var rec1:iprec;
begin
clientsock.Port:=628;
clientsock.Host:='
127.0.0.1';
clientsock.active:=true;
end;
procedure Tform1.clientsockConnect(Sender: TObject;
Socket: TCustomWinSocket);
var rec1:iprec;
begin
rec1.clientip:=
ip;
rec1.clienthost:=host;
clientsock.open;
clientsock.Socket.SendBuf(rec1,sizeof(rec1));
end;
Und sonst greift ncihts auf die Sockets zu. Komischerweise hab ich jetzt wieder den weiterobengenannten fehler mit 10053 und kan nciht senden.