Скачивание файла с прогрессом

[CoDeR]

Делал программу которая при скачивании показывает прогресс скачивания. Делал по этой статье _http://www.delphi.int.ru/articles/39/
Скачивать скачивает, но вот прогресс не показывает!
Помогите найти в чём проблема!
Или может у кого-нибудь есть другой готовый способ?

[AlDelta]

Или может у кого-нибудь есть другой готовый способ?

Способ есть. Узнай какой размер файла ты загружаешь, через какой-нибудь промежуток времени (1с) смотришь сколько уже загружено и в зависимости от этого показываешь прогрес

Размер файла в интернете

uses wininet;
...
function GetUrlSize(const URL:string):integer;//результат в байтах
var
hSession,hFile:hInternet;
dwBuffer:array[1..20] of char;
dwBufferLen,dwIndex:DWORD;
begin
Result:=0;
hSession:=InternetOpen('GetUrlSize',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
if Assigned(hSession) then begin
hFile:=InternetOpenURL(hSession,PChar(URL),nil,0,INTERNET_FLAG_RELOAD,0);
dwIndex:=0;
dwBufferLen:=20;
if HttpQueryInfo(hFile,HTTP_QUERY_CONTENT_LENGTH,@dwBuffer,dwBufferLen,dwIndex) then Result:=StrToInt(StrPas(@dwBuffer));
if Assigned(hFile) then InternetCloseHandle(hFile);
InternetCloseHandle(hsession);
end;
end;

Среднестатистический студент это Змей Горыныч наоборот - голова одна, а хвостов три.

[Квэнди]

Idhttp
события : onbeginwork onwork onendwork