Показать сообщение отдельно
  #3  
Старый 06.12.2012, 10:05
x128 x128 вне форума
Новичок
 
Регистрация: 03.02.2010
Сообщения: 64
Репутация: 133
По умолчанию

Код:
uses GifImg;
...
var
  f: TMemoryStream;
  gif: TGIFImage;
begin
  f:=TMemoryStream.Create;
  gif:=TGIFImage.Create;
  try
    idHTTP1.Get('http://...../image.gif',f);
    f.Position:=0;
    gif.LoadFromStream(f);
    image1.Picture.Assign(gif);
  finally
    f.Free;
    gif.Free;
  end;
end;
если версия делфи древнее 2007 тогда: uses GifImage
Ответить с цитированием