Hi!
ich hab hier ein programm, da werden 2 clients erstellt (ein idtcpclient und ein clientsocket) welche beide zu servern ihres gleichen typs (auf port 1003 tserversocket und auf 1004 ein tidtcpserver) verbinden.
hier das programm mit den beiden clients:
Delphi-Quellcode:
try
Uploads[UploadsCount].CmdClient:= tClientSocket.Create(self);
//hab hier als parent auch schon form1 probiert
Uploads[UploadsCount].CmdClient.Host:= '
localhost';
Uploads[UploadsCount].CmdClient.Port:= 1003;
Uploads[UploadsCount].CmdClient.ClientType:= ctNonBlocking;
Uploads[UploadsCount].CmdClient.Open;
Uploads[UploadsCount].StreamClient:= tIdTcpClient.Create(self);
//hab hier als parent auch schon form1 probiert
Uploads[UploadsCount].StreamClient.Host:= '
localhost';
Uploads[UploadsCount].StreamClient.Port:= 1004;
Uploads[UploadsCount].StreamClient.Connect(3000);
finally
Uploads[UploadsCount].CmdClient.Socket.SendText('
bapeldibap');
end;
hier das programm mit den beiden servern:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
CmdServer.Active:=true;//open hab ich auch schon versucht
StreamServer.Active:=true;
end;
[...]
procedure TForm1.CmdServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('cmdserver:client verbunden');
end;
procedure TForm1.StreamServerConnect(AThread: TIdPeerThread);
begin
memo1.Lines.Add('streamserver:client verbunden')
end;
im memo steht aber dann nur:
Zitat:
streamserver:client verbunden
habt ihr eine ahnung, warum anscheind keine verbindung zu stande kommt,aber auch keine fehler auftreten?
p.s. selbst wenn ich den cmdserver nicht öffne tritt kein fehler auf..
hoffe ihr wisst besser bescheid als ich..
DANKE