HTTP Seite einlesen NonVCL

[sakura]

Keine Unit, aber wie wäre es mit folgender Funktion? Einfach mal testen.

Delphi-Quellcode:

uses
  WinInet, WinSock, Windows;

function LoadURL(URL: String): String;
var
  IOpen, IURL: HINTERNET;
  Read: Cardinal;
  Msg: array[0..4096] of Char;
begin
  Result := '';
  try
    IOpen := InternetOpen('Delphi-PRAXiS', INTERNET_OPEN_TYPE_PRECONFIG, '', '',
        INTERNET_FLAG_NEED_FILE);
    if IOpen <> nil then
    try
      IURL := InternetOpenUrl(IOpen, PAnsiChar(URL), nil, 0,
          INTERNET_FLAG_NO_UI, 0);
      if IURL <> nil then
      try
        repeat
          FillChar(Msg, SizeOf(Msg), 0);
          if InternetReadFile(IURL, @Msg[0], Pred(SizeOf(Msg)), Read) then
            Result := Result + Msg
          else
            Break;
        until Read = 0;
      finally
        InternetCloseHandle(IURL);
      end;
    finally
      InternetCloseHandle(IOpen);
    end;
  except
  end;
end;

......