IP in Label anzeigen
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 :? |
AW: IP in Label anzeigen
|
AW: IP in Label anzeigen
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; |
AW: IP in Label anzeigen
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 |
AW: IP in Label anzeigen
Zitat:
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 |
AW: IP in Label anzeigen
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 !?:gruebel: |
AW: IP in Label anzeigen
@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. |
AW: IP in Label anzeigen
Nein, wenn der 3. Parameter fehlt, dann wird bis zum Schluss kopiert
System.Copy Zitat:
|
AW: IP in Label anzeigen
[etwas OT]
Zitat:
Ich kannte bisher nur den Trick, als letzten Parameter einfach MAXINT zu übergeben... [/etwas OT] |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:55 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz