请选择 进入手机版 | 继续访问电脑版

大富翁Delphi开发技术网站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1263|回复: 0

请教高手怎么一键分享照片多张图片和文字到朋友圈

[复制链接]

1

主题

1

帖子

9

积分

新手上路

Rank: 1

积分
9
发表于 2016-4-4 00:00:07 | 显示全部楼层 |阅读模式
教程下载
支持版本: Delphi XE8 
资源分类: 网络 
发布平台: Android 
转载地址: -

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
请问大神怎么,一键分享照片多张图片和文字,微信朋友圈的,目前有个例子源码,不是一次只有分
享一张。谢谢哪位高手。指点。
以下源
unit unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Objects, FMX.StdCtrls,
  System.Actions, FMX.ActnList, FMX.StdActns, FMX.MediaLibrary.Actions,
  FMX.Graphics,
  FMX.Layouts, FMX.Memo;

type
  TForm1 = class(TForm)
    ActionList1: TActionList;
    ShowShareSheetAction1: TShowShareSheetAction;
    TakePhotoFromCameraAction1: TTakePhotoFromCameraAction;
    TopToolbar: TToolBar;
    Label1: TLabel;
    BottomToolbar: TToolBar;
    btnShare: TButton;
    btnTakePhoto: TButton;
    imgCameraPicture: TImage;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Image1: TImage;
    procedure ShowShareSheetAction1BeforeExecute(Sender: TObject);
    procedure TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.ShowShareSheetAction1BeforeExecute(Sender: TObject);
begin
  { 将Memo1.Text里的文字“准备分享” }
  if CheckBox2.IsChecked = true then
    ShowShareSheetAction1.TextMessage := Memo1.Text // 将你要分享的文章在这里赋值
  else
    ShowShareSheetAction1.TextMessage := '';
  { 将TImage control里的照片“准备分享” }
  if CheckBox1.IsChecked = true then
    ShowShareSheetAction1.Bitmap.Assign(imgCameraPicture.Bitmap)
  else
    ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);
  // 经过测试,微信只能发送文字或图片,不能同时有,所有必须将以上两行代码注释掉一行,如果两行都有,则只发送图片
  // 但以邮件方式分享却可以图片文字一起发
end;

procedure TForm1.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
begin
  { 将拍摄下的照片显示到TImage control里 }
  imgCameraPicture.Bitmap.Assign(Image);
end;

end.
转载请保留当前帖子的链接:http://www.dfwlt.com/forum.php?mod=viewthread&tid=2165 谢谢!

搜索简单,分享不易,且分享且珍惜,您难道不想分享下您的心得?如果觉得本文章好的话,您可以在我们网站上注册,然后发布您的好的心得,让大家共同进步,谢谢!

最新添加

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

申请友链|Archiver|手机版|小黑屋|大富翁Delphi开发技术网站 ( 苏ICP备12065705号-4

GMT+8, 2019-6-27 11:14 , Processed in 0.123612 second(s), 30 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表