Ich habe dasselbe Problem, allerdings schon beim verbinden.
Wenn ich im LAN verbinde, wird das Ereignis "OnConnect" ausgeführt.
Im Internet jedoch kommt nach einer Weile mal Socket Error 10061, mal 10060.
Das Programm war nur zum testen gedacht. Jeweils eines Führt Typ A aus und das andere Typ B:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Case Radiogroup1.itemindex of
0: begin
serversocket1.port:=1011;
clientsocket1.Port:=1010;
end;
1: begin
serversocket1.port:=1010;
clientsocket1.port:=1011;
end;
end;
clientsocket1.host:=edit1.text;
serversocket1.Active:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Clientsocket1.active:=true;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Showmessage('Clientconnect');
end;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
showmessage('Server connect');
end;
end.