Сохранить картинку с инета на жесткий диск

← →
WebSQLNeederr (2007-05-13 00:00) [0]

Есть пару тысяч картинок размером где то 100 на 100 пикселов, нужно програмно их скачать с инета и сохранить. Какие есть варианты в Делфи?

← →
DVM © (2007-05-13 00:47) [1]

> Какие есть варианты в Делфи?

TIdHTTP + TFileStream

← →
Dmitrij_K (2007-05-13 01:16) [2]

[1]
+
ф-ии библиотеки wininet
+
URLDownloadToFile() из urlmon.pas

← →
WebSQLNeederr (2007-05-13 08:03) [3]

А можно пример кода? Был бы очень благодарен.

← →
WebSQLNeederr (2007-05-13 11:46) [4]

Уже разобрался. Но возник вопрос. А как теперь сделать индикацию времени когда идет закачка картинок? Вот я попробовал 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 11:56) [5]

и этот вопрос уже решил :)

Сохранить картинку с инета на жесткий диск Найти похожие ветки