如何使用Delphi实现android和ios的共享文本选项

Question

我使用Delphi 10.1.2 Berlin开发android和iOs移动应用程序。我面对issue Facebook文本共享选项。

我怎样才能使用SDK实现Facebook文本共享选项？ 而且我没有找到任何明确的帮助文件，可以使用Delphi在FB中共享文本。 请帮助我，并提前致谢。

Answer 1

这是多平台版本：

{$IFDEF iOS}
uses   
  FMX.Platform, FMX.MediaLibrary;  

procedure ShareTextWith(const aText: string);
var
  vSharingService: IFMXShareSheetActionsService;
begin
  TPlatformServices.Current.SupportsPlatformService(IFMXShareSheetActionsService, vSharingService);
  vSharingService.Share(nil, aText, nil);

end;
{$ENDIF}

此外，您可以对这两个平台使用ShowShareSheetAction。