Hallo,
So ein Mist bei mir wollen die TcpServer/Client Komponenten nicht verbinden.
Delphi: Delphi 2005 (
vcl)
Komponenten: TTcpServer und TTcpClient.
Port: 1000
Code:
Server:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
TcpServer.Active := false;
TcpServer.LocalPort := '1000';
TcpServer.Active := true;
end;
procedure TForm1.TcpServerAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
lblTcpStatus.Caption := 'connected';
ClientSocket.Sendln('connected');
end;
Client:
Delphi-Quellcode:
procedure TForm2.cmdConnectClick(Sender: TObject);
begin
TcpClient.Close;
TcpClient.RemoteHost := eRemoteHost.Text;
TcpClient.RemotePort := '1000';
TcpClient.Connect;
end;
Das ganze bringt aber überhaupt nix
Keine Fehler, nichts. Wenn ich ne falsche
IP eingebe, hängt das Programm ne Weile, bei der richtigen
IP (
localhost, da läuft der Tcpserver ja) hängt er nicht, das beudetet ja dass er den Server erkannt.
Warum springt der dann nicht ins Accept Ereigniss?
Bitte helft mir.
MfG