![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранить картинку с инета на жесткий диск [D7]
WebSQLNeederr © (2007-05-13 00:00:00)Есть пару тысяч картинок размером где то 100 на 100 пикселов, нужно програмно их скачать с инета и сохранить. Какие есть варианты в Делфи?
WebSQLNeederr (2007-05-13 11:56:00) [1]и этот вопрос уже решил :)
WebSQLNeederr (2007-05-13 11:46:00) [2]Уже разобрался. Но возник вопрос. А как теперь сделать индикацию времени когда идет закачка картинок? Вот я попробовал 31 картинку скачать в цикле
procedure TForm1.Button2Click(Sender: TObject);
var a,b:string;i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
a:=Memo1.Lines.Strings[i];
b:='C:/pic/'+inttostr(7000+i)+'.jpg';
DownLoadFile(a,b);
end;
end;
У меня заняло где то 20 секунд. Вот, а как бы сделать что бы пока оно сохраняло скажем курсор был бы как часики песочные ...
WebSQLNeederr (2007-05-13 08:03:00) [3]А можно пример кода? Был бы очень благодарен.
Dmitrij_K (2007-05-13 01:16:00) [4][1]
+
ф-ии библиотеки wininet
+
URLDownloadToFile() из urlmon.pas
DVM (2007-05-13 00:47:00) [5]
> Какие есть варианты в Делфи?
TIdHTTP + TFileStream