FTP скачать: http://www.7880.com/info/article-19938be0.html
http://community.csdn.net/expert/topic/3300/3300012.xml?temp=5.028933e-02
FTP Download: Tidftp Control (Delphi7 Indy)
Http download: (Delphi7) Use the design Indy control to download network files //////////////////
Добавьте элементы управления в форме1:
Два элемента управления Indy: idantifreeze1, idhttp1;
Кнопка: кнопка1;
Бар прогресса: ProgressBar1 отображает скорость загрузки
Процедура tform1.button1click (отправитель: tobject);
вар
Mystream: tmemorystream;
Начинать
Idantifreeze1.onlywhenidle: = false; // установлено, чтобы программа реагировала.
Mystream: = tmemorystream.create;
пытаться
Idhttp1.get ('http://www.appcontrols.com/demos/exe/httpdemo.exe'mystream);
кроме
ShowMessage («Нет скачать успешно!»);
Mystream.free;
Выход;
конец;
Mystream.savetofile (extractfilepath (paramstr (0))+'httpdemo.zip');
Mystream.free;
ShowMessage ('OK');
конец;
Процедура tform1.idhttp1workbegin (отправитель: tobject; AworkMode: TworkMode;
const aworkcountmax: целое число);
Начинать
// Перед началом загрузки установите максимальное значение ProgressBar1 для размера данных, который необходимо получить.
ProgressBar1.max: = AworkCountMax;
ProgressBar1.min: = 0;
ProgressBar1.position: = 0;
конец;
Процедура tform1.idhttp1work (отправитель: tobject; AworkMode: TworkMode;
const aworkcount: целое число);
Начинать
// При получении данных прогресс будет отображаться в ProgressBar1.
ProgressBar1.position: = ProgressBar1.position+AworkCount;
конец;