Скачка файлов с http

[BARNEY]

uberchel
Мне через прокси надо....

а как на счёт этого в вашем коде

repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)

[dim565]

Такая была проблема при использовании кода с первой страницы темы. Файл-то качался! Но! Он сохранялся в кэше IE. Поэтому если что-нибудь изменится в файле - скорее всего, скачается файл из кэша - без новых изменений.

Решение проблемы:
1) Очистка кэша IE после скачки файла:

procedure EmptyIECache;
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord;
dwEntrySize: LongWord;
dwLastError: LongWord;
begin
dwEntrySize := 0;
FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
if (hCacheDir <> 0) then
DeleteUrlCacheEntry(lpEntryInfo^.lp szSourceUrlName);
FreeMem(lpEntryInfo);
repeat
dwEntrySize := 0;
FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^),
dwEntrySize);
dwLastError := GetLastError();
if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
begin
GetMem(lpEntryInfo, dwEntrySize);
if (FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize)) then
DeleteUrlCacheEntry(lpEntryInfo^.lp szSourceUrlName);
FreeMem(lpEntryInfo);
end;
until (dwLastError = ERROR_NO_MORE_ITEMS);
end;
Минус - как-то не правильно после скачки файла очищать кэш
2) Изменяем ссылку-источник на такую, например: http://www.example.ru/1.txt&rnd6363
После rnd - рандомно меняем цифры.
Минус - получится много мелких файлов в кэше

3) Вместо строчки

hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0);

Пишем так:

hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,INTERNET_FLAG_ NO_CACHE_WRITE,0);

Минус - пока не нашел.

Т.е третий способ, как я понял, самый оптимальный. Кстати, способ этот нашел на здесь

[W0LF]

Вот статья показывающая как скачать файл + ProgressBar + в потоке...
Сделано на примере IdHTTP, по этому добавить прокси - секундное дело...

[MyIE]

Данную функцию лучше не использовать, если твоя программа пойдет в массы, т.к. на нее ругаются антивирусы.