2

我已经在 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 上测试时

搜索谷歌后，似乎 Instagram 和 Facebook（现在）都需要特殊处理：

例如 Instagram： https ://instagram.com/developer/iphone-hooks/#

例如 Facebook https://developers.facebook.com/docs/ios/share

有没有使用 Delphi 在 iOS7 中与 Facebook / Instagram 等进行图像共享？

4

0 回答 0