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

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

← →
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]

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

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.038 c