Загрузка данных из Инета

[-Jack-]

Всем доброго времени суток.

Ситуация такая: при скачивании файла из инета при помощи функции InternetReadFile, InternetReadFile не считывает файл из инета, а обращается ко "временным файлам Интернета".

Каким образом можно "отучить" InternetReadFile обращаться к кешу ?

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
 hSession, hURL: HInternet;
 Buffer: array[1..BufferSize] of Byte;
 BufferLen: DWORD;
 f: File;
 sAppName: string;

begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName),
               INTERNET_OPEN_TYPE_PRECONFIG,
              nil, nil, 0);

try
 hURL := InternetOpenURL(hSession,
           PChar(fileURL),
           nil,0,0,0);
 try
  AssignFile(f, FileName);
  Rewrite(f,1);
  repeat
  Application.ProcessMessages;
   if u=true then
     begin
     CloseFile(f);
     DeleteFile("new.ini");
     DeleteFile("new.rar");
     Clipboard.Clear;
     Result:=False;
     exit;
     end;

   InternetReadFile(hURL, @Buffer,
                    SizeOf(Buffer), BufferLen);
  BlockWrite(f, Buffer, BufferLen);
  until BufferLen = 0;
  CloseFile(f);
  Clipboard.Clear;
  Result:=True;
 finally
  InternetCloseHandle(hURL)
 end
finally
 InternetCloseHandle(hSession)
end
end;

[doktor255]

Как вариант, использовать инди/синапс. Там таких проблем не возникает. Не совсем понимаю, к чему такая экзотическая загрузка.

[-Jack-]

"Экзотическая" загрузка нужна для того, чтобы в неё добавить код индикатора загрузки файла

[Человек_Борща]

Вы наверное будете в шоковом состоянии, но в Indy/Synapse довольно просто добавить этот индикатор.

[doktor255]

Ну как сказать что просто... Ведь придётся крутить поток, а там свои подводные камни. Но однозначно это делается.