[NikOnLine]

День добрый всем.
Подскажите, как вывести в компонент Image1 изображение в формате GIF прямо с веб страницы.
Привожу пример кода, на котором зашёл в тупик:

Код:

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')); //возьмем например рисунок с форума;
 //;
 Image1.Canvas.Draw(0,0,img); //несовместимость типов;
 //;
 img.Free;
end;

И тут возникает второй вопрос возможно ли конвертировать поток типа TStringList в тип TGraphic?
Или как можно сразу закачивать с интернета в тип TGraphic и выводить в компонент Image?

--------------------------------------------------------------------------
Я не волшебник, я только учусь

[lmikle]

Грузить в поток, а потом из потока грузить в TImage.

[NikOnLine]

Вот получился такой велосипед у меня:
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 в поток с интернета напрямую?

--------------------------------------------------------------------------
Я не волшебник, я только учусь

[hkdkest]

А так тебя что не устраивает?