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

Вниз

ProgressBar для закачки файла с HTTP   Найти похожие ветки 

 
Yurko ©   (2004-04-14 17:27) [0]

Привет!
Нужно чтоб программа качала с HTTP-сервера zip-файлы.
Я делаю это через NMHTTP:
NMHTTP.Get("http://someserver/somefile.zip");
Вопрос:
 как сделать прогрессбар, отображающий ход закачки файла?
 если для NMHTTP это невозможно, то каким способом качать?


 
Smithson ©   (2004-04-14 18:00) [1]

OnReceived или что-то вроде у него есть?
Почитай help по компоненту, тебе нужно событие, периодически возникающее при приеме данных. Ыщщы.


 
AndersoNRules ©   (2004-04-14 19:13) [2]

Nu vi dayote.  U NMHTTP esti svoystva:
NMHTTP1.BytesSent:Integer;
NMHTTP1.BytesTotal:Integer;
NMHTTP1.BytesTotal:Integer;
atovo vpolne hvatit dlya horoshevo progress bara.
realizazzia, tochnee odin iz mnogih metodov:
procedure TForm1.ProgressWatch;
begin
Form1.ProgressBar1.Position:=Round(100*NMHTTP1.BytesRecvd/NMHTTP1.BytesTotal);
end;

teperi, sozdayeom naslednik klassa TThread:  
TProgressThread = class(TThread)
    ...
procedure TProgressThread.Execute;
begin
{ Place thread code here }// ato yasno
end;

v moment nachala zakachki sozdayeoshi Thread i zapuskayeshi,tak:
var Tp : TProgressThread;
...
Tp:=TProgressThread.Create(true);
Tp.Priority:=tpLower; // atovo hvatit
Tp.Resume;


Vrode nigde ne oshybsya.


 
AndersoNRules ©   (2004-04-14 20:18) [3]

Kstati a kuda tvoy NMHttp sohranyaet files ?
A konektizza nado?


 
Yurko ©   (2004-04-15 13:20) [4]

Спасибо за ответ!

Принятые данные сохраняются в файл имя которого содержит NMHTTP.Body (при NMHTTP.InputFileMode = True).

Коннект происходит внутри метода NMHTTP.Get



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

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

Наверх




Память: 0.45 MB
Время: 0.041 c
1-1084857153
MikePol
2004-05-18 09:12
2004.05.30
COM-port


3-1083937862
goozman
2004-05-07 17:51
2004.05.30
BDE


3-1084155882
Mishenka
2004-05-10 06:24
2004.05.30
Фильтр по полю соответствия.


11-1072086191
Tenac
2003-12-22 12:43
2004.05.30
Что будет после KOL? И как сново сделать все как было


1-1084780020
Dysan
2004-05-17 11:47
2004.05.30
Invalid pointer operation





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский