SocketFehler #10053 und 10057

[Hanswurst]

Ich nochmal
jetzt hab ich mir mal schnell 2 Proggis , einer mit WinSockClient und einen mit Server zusammengebaut , und es kommt der gleiche Fehler ..
nur jetzt meckert nurnoch der Server und der Client disconnected schön brav ..

Client:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:=edit1.Text;
ClientSocket1.Port:=SpinEdit1.Value;
ClientSocket1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.Close;
ClientSocket1.Active:=false;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(ClientSocket1.Socket.ReceiveText);
end;

Server:

Code:

rocedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Port:=SpinEdit1.Value;
ServerSocket1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ServerSocket1.Close;
ServerSocket1.Active:=false;
end;

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(ServerSocket1.Socket.ReceiveText);
end;

irgendwie seltsam ...
das einzige , was zum disconnecten da ist , ist jeweils der Button2
sonst nichts ..

CU