InternetOpenUrl und Fehler 1784

[__patrik]

moin zusammen,

hab nen geist in der maschine und suche nen exorzisten
ich hab eine funktion zum laden einer html-seite auf die platte mit InternetOpen und InternetOpenURL. Aus irgendeinem Grund funktioniert die Routine auf einigen Rechnern, auf anderen wieder nicht. Der Aufruf wird dann immer mit der Fehlermeldung 1784 quittiert.

Code:

function http_via_WinApi(const fileURL: string; FileName :string ): ansistring;
var
  hSession,
  hURL              : HInternet;
  Buffer            : array[1..C_BUFFER] of Byte;
  BufferLen         : DWORD;
  acHtml            : File;
begin
  hSession := nil;
  hURL := nil;
  fileName := tempPath;
  try
  hSession := InternetOpen(PChar(browserExe), Internet_Open_Type_PreConfig, nil, nil, 0);
 if hSession <> nil then
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, length(fileUrl),INTERNET_FLAG_RELOAD ,0);
    try
      AssignFile(acHtml, FileName);
      Rewrite(acHtml,1);
      repeat
        InternetReadFile(hURL, @Buffer,
        SizeOf(Buffer), BufferLen);
        BlockWrite(acHtml, Buffer, BufferLen)
      until BufferLen = 0;
      CloseFile(acHtml);
      Result:= dateizugriffe.getHttpData(fileName);
    finally
      InternetCloseHandle(hURL)
    end;
  finally
   InternetCloseHandle(hSession)
  end;

Das hSession-Handle funktioniert aber das hUrl-handle bekommt er nicht zu greifen.
Der Fehler ist weder Betriebssystemspezifisch noch taucht er bei einer bestimmten Art von Internetverbindung auf. Er is halt da oder auch net.
Weiss jemand weiter? (dummer weise taucht der fehler auch nicht auf meinem rechner auf und deshalb is debuggen echt schwer

danke im vorraus
patrik

[Luckie]

Das PSDK sagt zu dem Fehler:

Zitat:

The supplied user buffer is not valid for the requested operation.

[__patrik]

ich weiß, die fehlermeldung kommt weil bei hURL := InternetOpenURL... kein sinnvolles handle zurückgeliefert wird und dann bei InternetReadFile(hURL,.... nix für den buffer da ist. aber warum klappt der internetOpenUrl net? Wenn die Bibliothek fehlen würde müsste der doch schon beim internetOpen aussteigen.

danke
patrik

[DennisHB]

Auch wenn schon n alter Thread ist...

Delphi-Quellcode:

...
hSession:=InternetOpen(PChar(browserExe), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_SERVICE_URL);
...
 hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0 ,INTERNET_FLAG_RELOAD ,0); 
...

so gehts bei mir...