Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c
14-1084340007
Sergo
2004-05-12 09:33
2004.05.30
Электронная подпись


3-1084274477
bushmen
2004-05-11 15:21
2004.05.30
Знающим MySQL


14-1084024608
default
2004-05-08 17:56
2004.05.30
ImageHlp.h


3-1083760319
Hunter
2004-05-05 16:31
2004.05.30
Вопрос для общего развития


1-1085049530
Sirruf
2004-05-20 14:38
2004.05.30
Ширина текста в TWinControl




   Наверх