Du könntest noch einen Timer auf die Form geben, und in der OnTimer folgendes machen:
Delphi-Quellcode:
var
IPText:
String;
begin
Timer1.Enabled := False;
IPText := IdHTTP1.Get('
http://checkip.dyndns.org');
if IPText <> Edit1.Text
then
begin
//IP-Adresse hat sich geändert...
Edit1.Text := IPText;
//IP-Adresse weiterverarbeiten
end;
Timer1.Enabled := True;
end;
Die Methode ist allerdings nicht die beste, aber mir fällt im Moment nichts besseres ein.
Greetz
alcaeus
PS: Nutze in Zukunft bitte die [ delphi]-Tags, die machen den Code übersichtlicher.