Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

Можно ли во время закачки файла по HTTP отслеживать "ход процесса   Найти похожие ветки 

 
antoxa2005   (2006-02-19 13:30) [0]

Можно ли во время закачки файла по HTTP отслеживать "ход процесса" т.е. сколько закачено, а сколько осталось?


 
Anatoly Podgoretsky ©   (2006-02-19 13:32) [1]

Если есть информация - сколько осталось, то можно.


 
antoxa2005   (2006-02-19 13:46) [2]

Можно определить размер файла до скачивания, но как узнать сколько уже закачалось?


 
Anatoly Podgoretsky ©   (2006-02-19 13:58) [3]

Вот первое как раз и проблематично, хотя бы по тому, что HTTP не работает с файлами, а только со страницами.


 
antoxa2005   (2006-02-19 14:15) [4]

Вот нашел примерчик, правда не проверял.

GetUrlInfo(HTTP_QUERY_CONTENT_LENGTH, "http://some.com/some.zip");

function GetUrlInfo(const dwInfoLevel: DWORD; const FileURL: string):
string;
var
 hSession, hFile: hInternet;
 dwBuffer: Pointer;
 dwBufferLen, dwIndex: DWORD;
begin
 Result := "";
 hSession := InternetOpen("STEROID Download",
                          INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 if Assigned(hSession) then begin
   hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,
                            INTERNET_FLAG_RELOAD, 0);
   dwIndex  := 0;
   dwBufferLen := 20;
   if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex)
     then Result := PChar(@dwBuffer);
   if Assigned(hFile) then InternetCloseHandle(hFile);
   InternetCloseHandle(hsession);
 end;
end;


 
antoxa2005   (2006-02-19 14:15) [5]

Ну, а по FTP, как
> Можно ли во время закачки файла по HTTP отслеживать "ход
> процесса" т.е. сколько закачено, а сколько осталось?

?


 
Anatoly Podgoretsky ©   (2006-02-19 14:21) [6]

antoxa2005   (19.02.06 14:15) [5]
По ФТП работа всегда ведется с файлами и их размер известен.


 
antoxa2005   (2006-02-19 14:32) [7]

Удалено модератором
Примечание: СПАМ



Страницы: 1 вся ветка

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.029 c
8-1127764517
Delphinist
2005-09-26 23:55
2006.03.05
Использование *.ogg в Delphi


1-1138637444
lsp
2006-01-30 19:10
2006.03.05
отображение даты, в ZeosDBO 6.5.0 под Делфи для PostgresSQL


15-1139561322
HITMAN
2006-02-10 11:48
2006.03.05
Материнская плата!!!


3-1136482144
VST
2006-01-05 20:29
2006.03.05
Соединение Delphi и mySQL


2-1139770997
LordOfRock
2006-02-12 22:03
2006.03.05
Вопрос по классам. Вылезает Abstract Error