Delphi XE4、XE5、および XE6 の両方でテストを行いました。
この公式 iOS シェアシート デモ コードを使用する場合はこちら
次のようになります。
procedure TShareSheetForm.ShowShareSheetAction1BeforeExecute(Sender: TObject);
begin
ShowShareSheetAction1.Bitmap.Assign(imgCameraPicture.Bitmap);
end;
procedure TShareSheetForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
begin
imgCameraPicture.Bitmap.Assign(Image);
end;
または実際に何が起こるかに近い:
TPlatformServices.Current.SupportsPlatformService(IFMXShareSheetActionsService, IInterface(FSharingService));
FSharingService.Share(btnSocialPicShare, '...', imgSocialPic.Bitmap);
Twitterのみを表示します-少なくともiOS7でテストする場合
Google で検索したところ、Instagram と Facebook (現在) の両方で特別な処理が必要なようです。
例: Instagram: https://instagram.com/developer/iphone-hooks/#
例: Facebook https://developers.facebook.com/docs/ios/share
Delphiを使用してiOS7でFacebook / Instagramなどで画像共有が機能したことはありますか?