Also, ich liste mal das Wichtigste auf:
procedure TForm1.FormActivate(Sender: TObject);
begin
TcpServer1.LocalPort := '5000';
TcpClient1.RemotePort:= '5000';
MeldeCon; //Meldet den Verbindungsstatus hier:Weder Server noch Client aktiv
end;
procedure TForm1.ServerEinBtnClick(Sender: TObject);
begin
TcpServer1.Open;
MeldeCon; //Meldet den Verbindungsstatus hier: Server aktiv
end;
procedure TForm1.ClientEinBtnClick(Sender: TObject);
begin
//TcpClient1.RemoteHost := '192.33.53.123';
//TcpClient1.RemoteHost := 'dreamsys.local';
//TcpClient1.RemoteHost := 'dreamsys';
//TcpClient1.RemoteHost := 'ACER Laptop.local';
//TcpClient1.RemoteHost := '192.33.53.182';
//TcpClient1.RemoteHost := '0.0.0.182';
//TcpClient1.RemoteHost := '127.23.56.234';
//TcpClient1.RemoteHost := '127.0.0.234';
//TcpClient1.RemoteHost := '
localhost';
LabelC.Caption:= 'Verbindung wird gesucht';update
TcpClient1.Open;
MeldeCon; //Meldet den Verbindungsstatus hier: Client aktiv
end;
Es kommt nur eine Verbindung vomClient zum Server zustande, wenn ich die letzten drei RemoteHost-Zuweisungen nehme. Das sind aber alles nur
localhost-Angaben. Ich komme einfach mit keiner der ersten 6 Angaben weiter.
Gruß Jumbo