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