wenn online dann senden!!

[Luke23]

Hallo!!

ich habe mir ein Programm gebaut was an einen bekannten die ip meines rechners schickt! wenn jetzt aber mein router sich neu einwählt ist das ja auch eine andere ip als vorher kann ich oder wie kann ich das machen das mein programm selber überprüft ob sich die ip meines rechners verändert hat?? wie könnte ich das machen das mein Programm nur die ip nochmal an ihn schickt wenn sie sich verändert hat?? hätte da vieleicht einer einen tip??

Delphi-Quellcode:

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text  := IdHTTP1.Get('http://checkip.dyndns.org');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.ICQServer := 'login.icq.com';
  ICQClient1.ICQPort := ****;
  ICQClient1.UIN:=********;
  ICQClient1.Password:='*****';
  ICQClient1.Login;

end;

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
 ShowMessage(Msg + ' von: ' + UIN);
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
  ICQClient1.SendMessage(******,Edit1.Text);
end;

end.

ja na es würde ja auch über dyndns.org gehen aber ich wollte das halt mal so testen !!
hätte da vieleicht einer einen tip??

Mfg Luke23

Ps: oder gäbe es da noch ne bessere sache?? ausser dyndns.org oder sowas

[edit=r_kerber]Delphi-Tags einegfügt. Mfg, r_kerber[/edit]

[alcaeus]

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.

[jAcK oRsEn]

also bei meinem router kann ich einstellen, dass er bei aufbau der neuen verbindung ein programm mitstartet und dem programm die aktuelle ip übergibt...vielleicht hat das dein router ja auch...sonsonsten nimmnen timer!

[Duffy]

Hallo jAcK oRsEn,
geiz mal nicht mit deinen Informationen. Schreib mal, was das für ein Router ist. Würde mich mal brennend interessieren.

bye
Claus

[Luke23]

Hallo Leute!!

also ich werde das jetzt gleich mal testen ich danke dir da sehr @alcaeus !!
ja und zu jAcK oRsEn also ich stelle mich da jetzt auch mal auf die seite von Duffy und würde das auch mal gerne wissen wie mein Router ein Programm auf dem Pc Starten kann also ich habe den Router D-Link 604 vieleicht kann das ja meiner auch!!

Trotz alle dem Ich DANKE Euch

ThX

Ps: ich teste jetzt mal :-D