Internet IP herausfinden

[himitsu]

Was für Fehler?

(daß man auch ständig nachfragen muß )



Abgesehn dafür daß dieser Code eh nur die internen IPs liefert und nicht die öffentlichen.

Tipp: Die genutzten APIs in diesem Code arbeiten nur mit ANSI, also ab Delphi 2009 sollte man sich mal die tausenden Unicode-Thenem ansehn, welche hier rumschwirren.


PS: Es gibt auch ein [DELPHI]-Tag

[mschaefer]

Delphi-Quellcode:

Function TForm1.GeExtIP: string;
 var  ndx: integer;
 begin
    result:=uppercase(Http1.Get('http:\\www.network-tools.com'));
    if result='' then result:='GET failed' else
    begin
        ndx:=pos('HOST',result);
        if ndx=0 then result:='host not found' else
        begin
            delete(result,1,ndx+4);
            ndx:=pos('VALUE=',result);
            if ndx>0 then delete(result,1,ndx+6);
            ndx:=pos('"',result);
            if ndx>0 then result:=copy(result,1,ndx);
        end;
      end;
 end;

Externe-IP sieht man schlicht von extern, also muß man extern fragen.

[Luckie]

Zitat von gast5:

Aber es zeigt mir Fehler an. Was habe ich falsch gemacht

Du hast bei deinem Beitrag keine Code-Tags verwendet. Du verschweigst uns den "Fehler".

[gast5]

Der Quelltext lässt sich fehlerfrei kompilieren und das Projekt lässt sich auch fehlerfrei öffnen. Aber sobald ich auf den Button geklickt habe öffnet sich die Fehlerbox (es steht Fehler darauf) und das obwohl ich mit dem Internet verbunden bin.
Normalerweise sollte auf den Memo die Internet IP angezeigt werden zusammen mit einer OK Box.

[Luckie]

Zitat von gast5:

Der Quelltext lässt sich fehlerfrei kompilieren und das Projekt lässt sich auch fehlerfrei öffnen. Aber sobald ich auf den Button geklickt habe öffnet sich die Fehlerbox (es steht Fehler darauf) und das obwohl ich mit dem Internet verbunden bin.
Normalerweise sollte auf den Memo die Internet IP angezeigt werden zusammen mit einer OK Box.

Dann geh die Routine doch einfach mal Schritt für Schritt durch und guck, was passiert.

[Christian Seehase]

Mal abgesehen davon, dass der Code bei mir einwandfrei funktioniert (D7):
Er tut nicht das, was Du willst.
Damit bekommst Du die IP-Adresse der Domain, die der Funktion übergeben wird, und nicht die Deines Rechners.

[NickelM]

Ich würde sagen du arbeitest mit Lazarus.
Das musst du davor sagen oder als Tag oder irgendwo im Betreff/Text angeben.
Also unter Delphi geht das so:
Ohne Indy jetzt:

Delphi-Quellcode:

uses WinInet;
function GetInetIP(var IP: AnsiString): boolean;
var
   hSession, hURL: HInternet;
   BufferLen: DWORD;
   Buffer : AnsiChar;
   sAppName: string;
 begin
  result := false;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0) ;
  try
   hURL := InternetOpenURL(hSession, PChar('http://automation.whatismyip.com/n09230945.asp'), nil, 0, 0, 0) ;
   try
   BufferLen := 0;
   repeat
   InternetReadFile(hURL, @Buffer, 1, BufferLen);
   IP := IP + Buffer;
   until BufferLen = 0;
   result := True;
   finally
    InternetCloseHandle(hURL)
   end
  finally
   InternetCloseHandle(hSession)
  end
end;

Versuch mal ob Lazarus die Unit WinInet auch kennt.
Arbeite nämlich nicht mit Lazarus.

[gast5]

Ja ich arbeite mit Lazarus und Lazarus kennt auch die Unit WinInet. Wenn ich den Quellltext kompiliere kommt aber leider rein garnichts.
Woran könnte es liegen?

[DeddyH]

Bist Du einmal durchgesteppt?

[himitsu]

Das sind WinAPIs ... die Funktionieren unter Lazarus genauso, wie unter Delphi.


Abgesehn vielleicht von der Stringcodierung > Ansi, Unicode oder UTF-8, wo man aufpassen muß.