| Цитата(Maestro @ 8.9.2005, 16:53) | | Спасибо за подсказку, но мне нужен пример. |
C примером пока сложно. Может чуть позже найду время накатать.
| Цитата(Maestro @ 8.9.2005, 16:53) | | Я пробовал с компонентом IdHTTP, засечь время загрузки через Timer, ничего невыходит во время соединения таймер подвисает. |
Просто вставь в OnWork:
| Код |
Application.ProcessMessages;
|
В любом случае потребуется, если захочешь отображать проценты или бегунок.
Но детектить нужно не в таймере, а в OnWork.
| Цитата(Maestro @ 8.9.2005, 16:53) | | И как определить вес страницы? |
До скачки, вызови такую функцию. Она вернет размер файла в байтах.
| Код |
function GetHttpFileSize(url: string): integer;
var
http: TIdHttp;
a: string;
begin
http:=TIdHttp.Create(nil);
http.Head(url);
s:=http.Response.RawHeaders.Values['Content-Length'];
http.Free;
if not TryStrToInt(s, result) then result:=0;
end;
|
Добавлено @ 17:12
P.S. Функцию не проверял - накатал на скорую руку.
Возможно придется подправить... |