Indy TidIPWatch - onstatuschange ?

[oakley]

Hallo,

ich möchte gerne mit der Indy Komponente TidIPWatch meine lokale IP bestimmen.
Ich mache das im Event onstatuschange und das funktioniert genau ein mal.

Wenn sich meine IP ändert (ich habe mal testweise meine statische IP verändert) wird dieser Event aber nicht durchlaufen.

Liegt das evtl. an der Indykomponente oder ist das falsche Event?

OnStatus wird allerdings auch nicht abgefeuert.

Ich nutze XE6 mit Indy 10.6.0.5122.

Gruß

Mirko

[mjustin]

Zitat:

Zitat von oakley (Beitrag 1279241)

Liegt das evtl. an der Indykomponente oder ist das falsche Event?

Ist es denn die "richtige" Komponente? Als Beschreibung habe ich dieses gefunden:

Zitat:

TIdIPWatch - dient dazu, den Online-Status und die aktuelle IP-Adresse festzustellen.

Und im Code ist die Bedingung für den Aufruf von OnStatusChange:

Delphi-Quellcode:

    if ((WasOnline) and (not FIsOnline)) or ((not WasOnline) and (FIsOnline)) then
    begin
      if (not IsDesignTime) and Assigned(FOnStatusChanged) then
      begin
        FOnStatusChanged(Self);
      end;
    end;

Ein IP-Adressenwechsel wird anscheinend nicht als Kriterium für das Event verwendet.

[oakley]

Ok verstehe... so wie das aussieht ist der Wechsel von online zu offline das und umgekehrt das Kriterium.

Dann ist wirklich die Frage ob es die richtige Komponente ist. Vielleicht besser AddrMon. Ich probiere das mal.

Danke für Deine Hilfe !

Viele Grüße

Mirko

[himitsu]

Zitat:

Description
TIdIPWatch determines Online status, returns current IP address, and (optionally) keeps history of IP addresses issued to the computer using the class instance.

Von der Beschreibung her klingt TidIPWatch eigentlich richtig. :gruebel:

OnStatus und StatusChanged werden also nur am Anfang ausglöst und danach nicht mehr?
Auch nicht, wenn du mal etwas länger wartest?


PS: Noch bissl binäre Mathematik:

Delphi-Quellcode:

if (WasOnline and not FIsOnline) or (not WasOnline and FIsOnline) then

lässt sich arithmetisch in eine XOR umwandeln (exclusive or)

Delphi-Quellcode:

if WasOnline xor FIsOnline then

oder logisch in

Delphi-Quellcode:

if WasOnline <> FIsOnline then