Download ohne Cache?

[toms]

Zitat:

Wie kann ich diese Variable bzw. die Datei dann als Image auf die Festplatte (oder alternativ in eine Image-Komponente) schreiben?

Delphi-Quellcode:

function DownloadURLToFile_NOCache(const FileURL, FileName: String): Cardinal; 
var 
  hSession, hFile: HInternet; 
  Buffer: array[1..1024] of Byte; 
  BufferLen, fSize: LongWord; 
  f: File; 
begin 
  Result := 0; 
  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 
  if Assigned(hSession) then begin 
    hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0, INTERNET_FLAG_RELOAD, 0); 
    if Assigned(hFile) then 
    begin 
      AssignFile(f, FileName); // Kann auch durch einen Filestream ersetzt werden
      Rewrite(f,1); 
      fSize := 0; 
      repeat 
        InternetReadFile(hFile, @Buffer, SizeOf(Buffer), BufferLen); 
        BlockWrite(f, Buffer, BufferLen); 
        fSize := fSize + BufferLen; 
      until (BufferLen = 0); 
      CloseFile(f); 
      Result := fSize; 
      InternetCloseHandle(hFile); 
    end; 
    InternetCloseHandle(hSession); 
  end; 
end;