Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.032 c
9-1074255124
Ландграф Павел
2004-01-16 15:12
2004.05.30
PowerDraw3 и 3D


1-1084436594
Inner
2004-05-13 12:23
2004.05.30
Срочно TTreeView подскажите!


7-1082460336
ZMaximI
2004-04-20 15:25
2004.05.30
Резидент


1-1084633198
Ivolg
2004-05-15 18:59
2004.05.30
Memo


9-1075218805
Night Flame
2004-01-27 18:53
2004.05.30
Игра "Пять крестов"





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский