[NonVCL, WinInet.InternetReadFile, PHP]: Wo kommt die 0 her?

[shmia]

Die Funktion LoadURL ist nicht so perfekt.
Ich habe sie mal verbessert:

Delphi-Quellcode:

function LoadURL(URL: String): String; 
var 
  IOpen, IURL: HINTERNET; 
  Read: Cardinal; 
  Msg: string;  // <==
begin 
  Result := ''; 
  try 
    IOpen := InternetOpen( 
               'Mozilla 3.0 (compatible)', 
               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 
        SetLength(Msg, 4096);  // <====
        repeat 
           if InternetReadFile(IURL, @Msg[1], 4096, Read) then  // <===
            Result := Result + Copy(Msg, 1, Read) // <===
          else 
            Break; 
        until Read = 0; 
      finally 
        InternetCloseHandle(IURL); 
      end; 
    finally 
      InternetCloseHandle(IOpen); 
    end; 
  except 
  end; 
end;