カメラロールにビットマップを保存する

概要

TBitmap のインスタンスをカメラロールに保存したい！

実装

超簡単！

IFMXPhotoLibraryインターフェースを TPlatformServices から取り出して、AddImageToSavedPhotosAlbum を呼べば完了！

uses
  FMX.Platform, FMX.MediaLibrary;

procedure SaveToCameraRoll(const iBmp: TBitmap);
var
  PhotoLib: IFMXPhotoLibrary;
begin
  if
    TPlatformServices.Current.SupportsPlatformService(
      IFMXPhotoLibrary,
      PhotoLib)
  then
    PhotoLib.AddImageToSavedPhotosAlbum(iBmp);
end;

おまけ

この IFMXPhotoLibrary は Android でも定義されていて、適切な場所に保存してくれます！