Hallo!
Habe folgendes Problem: es liegt eine Konsolenanwendung vor. Habe ein TClientSocket erstellt und Host sowie Port angegeben. Wenn ich jetzt allerdings Client.open oder Client.active:=true ausführen lasse, passiert gar nichts mit dem Socket. Es wird definitiv keine Verbindung zum Server aufgebaut. Habe es mit netcat getestet. Es passiert einfach gar nichts. Der Code:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| program Project1;
{$APPTYPE CONSOLE}
uses SysUtils, ScktComp;
var Client: TClientSocket;
begin Client:=TClientSocket.create(nil); Client.Host:='127.0.0.1'; Client.Port:=12345; writeln('verbindung aufbauen..'); Client.Open; readln; end. |
Warum passiert einfach nichts? Bin für jede Hilfe dankbar.