Internet IP herausfinden

[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.