[milkfake]

Всем привет. Использую Delphi 2008. Подскажите простой способ преобразовать загруженную в TPicture Gif картинку в байтовый массив.

[lmikle]

Ну, например, сохранить в поток в памяти (TMemoryStream).

[milkfake]

Сообщение от lmikle

Ну, например, сохранить в поток в памяти (TMemoryStream).

А конструкция Image1.Picture.Bitmap.SaveToStream(); разве не преобразует Gif в BMP?

[lmikle]

Нет, и такая конструкция в корне неверна. Ты какой библиотекой пользуешься для работа с ГИФом? Я использую GIfImage, в этом случае у меня будет этот код выглядеть так:

Код:

If Image1.Picture.Graphic Is TGIFImage Then
  (Image1.Picture.Graphic As TGIFImage).SaveToStream(AStream);

[milkfake]

Сообщение от lmikle

Нет, и такая конструкция в корне неверна. Ты какой библиотекой пользуешься для работа с ГИФом? Я использую GIfImage, в этом случае у меня будет этот код выглядеть так:

Код:

If Image1.Picture.Graphic Is TGIFImage Then
  (Image1.Picture.Graphic As TGIFImage).SaveToStream(AStream);

Огромное спасибо. Как не пытался подключить этот юнит из 7ки - никак не получалось. Даже 2007 начал качать. А тут просто взял и подключил. Магия =)