var PhotoService: IFMXPhotoLibrary; begin if TPlatformServices.Current.SupportsPlatformService(IFMXPhotoLibrary, IInterface(PhotoService)) then begin PhotoService.AddImageToSavedPhotosAlbum(ImageViewer.Image); Hint('已经保存到相册'); end else Hint('此接口平台不支持保存.'); end;
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。又不靠它 delphi 吃饭,怕甚?