Whois from IP-Adresse?

[KodeZwerg]

Kommt halt auf das an was man bezwecken möchte, mit dem GET Aufruf hast Du halt alle Informationen zum selber verarbeiten.
Wenn man das alles in eine StringList zum Beispiel pumpt, kann man, da #1-#14 fest vorgegeben ist, auch dementsprechend die StringList abrufen/interpretieren. Um es wie im Thread vorgegeben war in eine ListBox/ListView zu schreiben wäre das die einfachste Methode.

Natürlich kann man auch das ganze in einer WebBrowser Komponente direkt abfragen lassen, die Ergebnisse würden auf diese Weise auch mehr solcher Dienste verfügbar machen, die halt keine Api anbieten, aber ob Du den Output dann als ListBox/ListView verwenden kannst mag ich erstmal als exotisch betrachten, soll nicht bedeuten das es nicht machbar wäre.

[PeterPanino]

Ich kriege mit diesem Code eine Menge "chinesische Zeichen":

Delphi-Quellcode:

uses
  Winapi.WinInet;

function GetUrlContent(const Url: string): string;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
begin
  Result := '';
  NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(NetHandle) then
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    if Assigned(UrlHandle) then { UrlHandle valid? Proceed with download }
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
      { UrlHandle is not valid. Raise an exception. }
      raise Exception.CreateFmt('Cannot open URL %s', [Url]);

    InternetCloseHandle(NetHandle);
  end
  else
    { NetHandle is not valid. Raise an exception }
    raise Exception.Create('Unable to initialize Wininet');
end;

procedure TForm3.btnGetHostNameClick(Sender: TObject);
var
  ThisLines: string;
begin
  ThisLines := GetUrlContent('http://ip-api.com/line/' + edtIpAddress.Text);
  CodeSite.Send('TForm3.btnGetHostNameClick: ThisLines', ThisLines);
end;

[PeterPanino]

Fehler gefunden: Buffer muss AnsiChar sein!

[KodeZwerg]

Zitat von PeterPanino:

Fehler gefunden: Buffer muss AnsiChar sein!

Mein Vorschlag beinhaltet beides, Ascii GET Content sowie UTF8. Also UTF8 wäre kompatibel zu beiden will ich damit sagen. Ist mehr 'ne universelle Lösung.

[KodeZwerg]

So sollte es funktionieren, Uses anpassen (ich nutze D2009 ^_^)

Delphi-Quellcode:

uses WinInet;

function GetUrlContent(const Url: string): UTF8String;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1023] of byte;
  BytesRead: dWord;
  StrBuffer: UTF8String;
begin
  Result := '';
  NetHandle := InternetOpen('Delphi 2009', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(NetHandle) then
    try
      UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if Assigned(UrlHandle) then
        try
          repeat
            InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
            SetString(StrBuffer, PAnsiChar(@Buffer[0]), BytesRead);
            Result := Result + StrBuffer;
          until BytesRead = 0;
        finally
          InternetCloseHandle(UrlHandle);
        end
      else
        raise Exception.CreateFmt('Cannot open URL %s', [Url]);
    finally
      InternetCloseHandle(NetHandle);
    end
  else
    raise Exception.Create('Unable to initialize Wininet');
end;

[PeterPanino]

Zitat von KodeZwerg:

Uses anpassen

Winapi.WinInet = WinInet?

[KodeZwerg]

Wahrscheinlich Ja.

Also bei Dir mit dem Winapi Namespace bei mir ohne.

[PeterPanino]

Funktioniert ausgezeichnet. Danke!

[KodeZwerg]

Gern geschehen, in der Repeat Schleife könntest Du das ganze auch in eine StringList ausgeben lassen um auf #1-#14 einzeln zugreifen zu können, aber mach wie Du magst, jetzt weißt Du ja wie es funktioniert