IP in Label anzeigen

[Madara Uchiha]

Hey,

Gibt es die Möglichkeit mir meine IP (Die, die ich auch auf www.wieistmeineip.de anzeigen lassen kann) in einem Label anzeigen lassen kann?
Habe dazu iwie noch nichts gescheites gefunden

[delphinub23]

Schau mal hier: hier.

mfg dnub

[Bummi]

Ohne Fehlerbehandlung

Delphi-Quellcode:

Function GetExtIP: String;
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    Result := IdHTTP.Get('http://checkip.dyndns.org/');
    Result := Copy(Result, pos(':', Result) + 1);
    Result := Trim(copy(Result, 1, pos('</', Result) - 1));
  finally
    IdHTTP.Free;
  end;
end;

[lbccaleb]

http://stackoverflow.com/questions/1...ress-in-delphi

Oder die nonVCL Version aus Luckie seinen nonVCL-Tutorials:

http://www.michael-puff.de/Programmi...lphi_Demos.zip

[Jim Panse]

Zitat von Bummi:

Ohne Fehlerbehandlung

Delphi-Quellcode:

Function GetExtIP: String;
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    Result := IdHTTP.Get('http://checkip.dyndns.org/');
    Result := Copy(Result, pos(':', Result) + 1);
    Result := Trim(copy(Result, 1, pos('</', Result) - 1));
  finally
    IdHTTP.Free;
  end;
end;

Die beiden Lösungen von "http://www.swissdelphicenter.ch/de/showcode.php?id=1013" und Bummi sind sehr interessant, da sie beide eine Internetseite/HTML parsen.

Dat is aber eindeutig zu wenig Kopiersubstanz für einen Black Ninja wie z.B. von "http://de.narutopedia.eu/wiki/Madara_Uchiha", der wohl ein Sysinfo-Tool in Delphi zusammenkopieren will?

SCNR

[markus5766h]

Moin !

"Result := Copy(Result, pos(':', Result) + 1);"

äh . . . fehlt da nicht was ?

function Copy(S:String; Index, Count : Integer) : String

hab's gerad nicht probiert, aber müsste doch ein
"not enough actual parameters" rausschmeißen !?

[Bummi]

@markus5766h

das geht schon, besser ist es aber sicher den 3 Parameter mitzugeben.
Ich finde den Artikel nicht mehr aber unter 64-Bit gab(gibt?) es einen Bugreport, dass bei fehlendem drittem Parameter nichts zurückgegeben wird.

[Sir Rufo]

Nein, wenn der 3. Parameter fehlt, dann wird bis zum Schluss kopiert
System.Copy

Zitat von Bummi:

@markus5766h

das geht schon, besser ist es aber sicher den 3 Parameter mitzugeben.
Ich finde den Artikel nicht mehr aber unter 64-Bit gab(gibt?) es einen Bugreport, dass bei fehlendem drittem Parameter nichts zurückgegeben wird.

Bei einem Bug würde ich aber entweder eine eigene function bauen (ohne Bug) oder in diesem Beispiel mit einem Compiler-Schalter - und einem ToDo Eintrag

[Namenloser]

[etwas OT]

Zitat von Sir Rufo:

Nein, wenn der 3. Parameter fehlt, dann wird bis zum Schluss kopiert
System.Copy

Ist aber nicht dokumentiert, oder überseh ich was? Edit: Ja . Ich schwöre, ich hab es vorher mindestens drei mal durchgelesen und sogar die entsprechende Stelle mit hier reinkopiert und es doch übersehen...

Ich kannte bisher nur den Trick, als letzten Parameter einfach MAXINT zu übergeben...
[/etwas OT]