Тема: Get img (http)
Показать сообщение отдельно
  #4  
Старый 29.04.2010, 17:26
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Ну, за очень дополнительные деньги
Тут качается zip архив, как переделать в картинку - домашнее задание
Код:
var
  st:TMemoryStream;
begin
  st:=TMemoryStream.Create;
  IdHTTP1.Get('http://www.aton-c.ru/notarius.zip',st);
  st.SaveToFile('c:\notarius.zip');
  st.Free;
  ShowMessage('Ok');
end;
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием