VPN Verbindung feststellen und IP Auslesen

[hardy1234]

Hey,

das Thema IP's scheint hier wirklich ein irres Problem zu sein. Dabei gibt es doch nun wirklich die Kompos TcpClient und TcpServer. Integriert man TcpServer in sein Programm und weist diesem ein bestimmtes Prokoll/Port hinzu, alles oberhalb von 51000 ist erlaubt weil frei, kann man aus dem eigenen Programm mit dem TcpClient direkt an den Burschen senden und der Antwortet prompt mit der Sender-IP. Zur Not muß man halt ein kleines Programm beim Systemstart zur Verfügung stellen. Das Geheimnis ist hier

ip:= CustomIpClient.LookupHostAddr(CustomIpClient.Remot eHost);

dann erhält man die Sender-Adresse und zwar die öffentliche und kann diese an den Client zurücksenden. Nix anderes passiert im Internet. Etwa so:

procedure SrvAccept(Sender: TObject; CS: TCustomIpClient);
var
data: string;
begin
data:= CS.Readln;
data:= data + 'YourIP:' + CS.LookupHostAddr(CS.RemoteHost);
CS.Sendln(data);
end;

bumms, da isse.