• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Android实例-拍摄和分享照片、分享文本(XE8+小米2) - 疯狂delphi

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Android实例-拍摄和分享照片、分享文本(XE8+小米2)

 

结果:

1.分享文本不好使,原因不明。有大神了解的,请M我,在此十分感谢。

2.如果想支持图片编辑,将Action事件的Editable改为True。

 

相关资料:

官网地址:http://docwiki.embarcadero.com/RADStudio/XE7/en/Mobile_Tutorial:_Taking_and_Sharing_a_Picture,_and_Sharing_Text_(iOS_and_Android)

 

实例代码:

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
 8   FMX.Controls.Presentation, System.Actions, FMX.ActnList, FMX.Objects,
 9   FMX.StdActns, FMX.MediaLibrary.Actions, FMX.ScrollBox, FMX.Memo;
10 
11 type
12   TForm1 = class(TForm)
13     ToolBar1: TToolBar;
14     Button1: TButton;
15     Button2: TButton;
16     Button3: TButton;
17     Image1: TImage;
18     ActionList1: TActionList;
19     TakePhotoFromCameraAction1: TTakePhotoFromCameraAction;
20     TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction;
21     ShowShareSheetAction1: TShowShareSheetAction;
22     Button4: TButton;
23     Memo1: TMemo;
24     ShowShareSheetAction2: TShowShareSheetAction;
25     procedure TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
26     procedure TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);
27     procedure ShowShareSheetAction1BeforeExecute(Sender: TObject);
28     procedure ShowShareSheetAction2BeforeExecute(Sender: TObject);
29   private
30     { Private declarations }
31   public
32     { Public declarations }
33   end;
34 
35 var
36   Form1: TForm1;
37 
38 implementation
39 
40 {$R *.fmx}
41 {$R *.NmXhdpiPh.fmx ANDROID}
42 
43 //分享图片
44 procedure TForm1.ShowShareSheetAction1BeforeExecute(Sender: TObject);
45 begin
46   ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);
47 end;
48 
49 //分享文本
50 procedure TForm1.ShowShareSheetAction2BeforeExecute(Sender: TObject);
51 begin
52   ShowShareSheetAction1.TextMessage:= Memo1.Lines.Text;
53 end;
54 
55 //调用相机
56 procedure TForm1.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
57 begin
58   Image1.Bitmap.Assign(Image);
59 end;
60 
61 //使用图片库
62 procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);
63 begin
64   Image1.Bitmap.Assign(Image);
65 end;
66 
67 end.

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab程序设计 - Ilean_J发布时间:2022-07-18
下一篇:
matlab考前预习发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap