Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сохранить картинку с инета на жесткий диск [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


Наверх

Титульная страница Поиск, карта сайта Написать письмо