Показать сообщение отдельно
  #3  
Старый 04.01.2009, 16:28
NikOnLine NikOnLine вне форума
Прохожий
 
Регистрация: 04.01.2009
Сообщения: 2
Репутация: 10
По умолчанию

Вот получился такой велосипед у меня:
1)добавил библиотеку GIFCTRL.pas;
Код:
uses
  Gifctrl;

2)вот код изобретенного велосипеда
Код:
procedure TForm1.Button1Click(Sender: TObject);
var 
 img: TStringList;
begin
 img:=TStringList.Create;
 img.Add(idHTTP1.Get('http://www.delphisources.ru/forum/images/misc/logo_ds_forum.gif')); //возьмем например рисунок с форума;
 //;
 img.SaveToFile('c:/temp/test.gif');
 //;
 Image1.Picture.LoadFromFile('c:/temp/test.gif'); 
 //;
 img.Free;
end;

Можете показать пример загрузки GIF в поток с интернета напрямую?

--------------------------------------------------------------------------
Я не волшебник, я только учусь
Ответить с цитированием