[R语言] Delphi直接实现分享图片功能

编程语言发布于：2021-07-31 10:55 | 阅读数：248 | 评论：0

1487 主题	0 回帖	1537 积分

网站编辑

积分: 1537

发消息

procedure TCustomCameraViewDoc.ShareTextClick(Sender: TObject);
var
  FSharingService: IFMXShareSheetActionsService;
begin
  inherited;
  //分享照片
  TPlatformServices.Current.SupportsPlatformService(IFMXShareSheetActionsService, FSharingService);
  if FSharingService<>nil then
  begin
   FSharingService.Share(nil, '', ImageViewer1.Bitmap);
  end;
end;

先上代码，Delphi 支持跨平台开发app,早就实现了标准的Action，用于拍照、分享等功能实现，如果不用这标准的Action,那怎么办呢？
按上面的代码即可，直接取得IFMXShareSheetActionsService实例，并调用Share方法。
需要引用两个单元：FMX.Platform, FMX.MediaLibrary;

免责声明：

1. 本站所有资源来自网络搜集或用户上传，仅作为参考不担保其准确性！

2. 本站内容仅供学习和交流使用，版权归原作者所有！© 查看更多

3. 如有内容侵害到您，请联系我们尽快删除，邮箱：kf@codeae.com

分享到： QQ好友和群 QQ空间

返回列表

江南才子 LV4

1537 经验

1487 文档

[R语言] Delphi直接实现分享图片功能

相关帖子

龙蜥开发者说：我眼里的龙蜥社区：一个包容的大家庭 | 第 10 期

腾讯视频扫码在哪里找到

电脑关不了机按哪个键可以关机?

电脑竖屏了变回来如何操作

迅雷影音关闭弹幕步骤

ModelBox开发体验：使用YOLOv3做口罩检测

javascript怎么实现窗口置顶

JavaScript怎样实现点击出现图片效果

使用原生querySelectorAll和forEach来实现点击切换

免插件、DZ内置JS轻松实现外链访问二次确认对话提示框

江南才子 LV4