Hallo Leute,
ich versuche einen Messenger zu bauen. Da ich ohne Server arbeiten möchte, brauche ich die IPs der User.
Ich habe auf meinem Webserver eine
MySQL-Datenbank laufen, in der die Benutzer mit IPs gespeichert werden sollen.
Wenn ich nun über die
Indy-Kompponenten die
IP mit Hilfe des IdHTTP herausfinden will, bleiben die Variablen für die
IP leer.
Der Quellcode ist folgender:
Delphi-Quellcode:
.....
procedure TForm2.SpeedButton1Click(Sender: TObject);
var inid: TIniFile;
ip:
string; internet_ip:
string; IdHTTP1: TIdHTTP;
const FileName = '
start.wav';
begin
.....
IdHTTP1:= TIdHTTP.Create(
nil);
IdHTTP1.Request.Connection:= '
Keep-Alive';
ip := IdHTTP1.Get('
http://checkip.dyndns.org/');
internet_ip:=Copy(
ip, Pos('
Current IP Address: ',
ip)+20, Length(
ip)-92);
.....
end;
Starte ich nun mein Projekt im Debugger, werden wie Variablen "
ip" sowie "internet_ip" nicht gesetzt. Fehlermeldungen erschedinen keine. Wenn ich allerdings alles bis auf die letzten 2 Zeilen lösche und die Komponente direkt auf das Formular ziehe, bekomme ich beim starten (application.run) einen Fehler "....Parameter Request.ProxyPort existiert nicht......." Der Wert steht in der Komponente auf 0 und ich benutze auch keinen Proxy.
Ich benutze z.Zt. Delphi 6 Enterprise mit den Indys in Version 9.
Vielleiche kann mir einer von euch sagen, wie ich die Variablen gefrüllt bekomme
Gruß
Benji87