TBitmap -> TJPEGImage и TgifImage

[Steepe_Hare]

Скажите, а почему нельзя передать TBitmap объектам TJPEGImage и TgifImage?

    Frame := gif.Add(Bitmap1);

    JPEGImage.Assign(Bitmap1);

Получаю ошибки

Project Project1.exe raised exception class GIFException with message 'Object type not supported for operation'.
Project Project1.exe raised exception class EConvertError with message 'Cannot assign a TBitmap to a TJPEGImage'.

 

Можно как-то конвертнуть? Спасибо заранее.

[enatechno]

1 час назад, Steepe_Hare сказал:

Можно как-то конвертнуть? 

Для конвертации можете использовать TBitmapCodecManager. Например, так я его использую для сохранения файлов в различном формате:
 

var
  aExtention,
  aFileName:    string;
  aFileStream:  TFileStream;
  aSaveParams:  TBitmapCodecSaveParams;
  aSurf:        TBitmapSurface;
  aBitmap:      TBitmap
.....

    aFileStream := TFileStream.Create(aFileName, fmCreate);
    try
      aSurf := TBitmapSurface.Create();
      try
        aSurf.Assign(aBitmap);
        aSaveParams.Quality := 70;
        TBitmapCodecManager.SaveToStream(aFileStream, aSurf, aExtention, @aSaveParams);
      finally
        FreeAndNil(aSurf);
      end;
    finally
      FreeAndNil(aFileStream);
    end;

Для сохранения jpg использую aExtention='.jpg' и т.д.



И почему Вы используете  TJPEGImage и TgifImage? Они разве есть в FMX? TImage.Bitmap читается из файла так:
 

var
  aImage: TImage;
  aFileName: string;
...
aImage.Bitmap.LoadFromFile(aFileName);

 

[Равиль Зарипов (ZuBy)]

TBitmap это общий класс для работы с картинками, он всеядный

Это не VCL где нужно подбирать класс под расширение файла

[Pax Beach]

7 часов назад, ZuBy сказал:

TBitmap это общий класс для работы с картинками, он всеядный

Это не VCL где нужно подбирать класс под расширение файла

А как эту же задачу выполнить в VCL?

[Равиль Зарипов (ZuBy)]

1 час назад, Pax Beach сказал:

А как эту же задачу выполнить в VCL?

модули Jpeg, PngImg (для gif не помню как называется), там есть нужные классы