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.
转载于:https://www.cnblogs.com/FKdelphi/p/4813734.html
Android实例-拍摄和分享照片、分享文本(XE8+小米2)相关推荐
- Android实例-解决虚拟键盘遮挡问题(XE8+小米2)
Android实例-解决虚拟键盘遮挡问题(XE8+小米2) 参考文章: (1)Android实例-解决虚拟键盘遮挡问题(XE8+小米2) (2)https://www.cnblogs.com/FKde ...
- Android实例-录音与回放(播放MP3)(XE8+小米2)
结果: 1.增加ActionList中的Action时,需要跳到Master界面,不能在Android4Phonel界面下. 2.如果不打开权限的话,会提示"该设备不支持停止录音操作&quo ...
- Android实例-获取安卓手机WIFI信息(XE8+小米2)
结果: 1.必须打开Access wifi state权限,不打开权限会出图二的错误. 相关资料: http://blog.csdn.net/lyf_lyf/article/category/1735 ...
- 分享45个Android实例源码
分享45个Android实例源码,很好很强大.收藏吧!!! 分享45个android实例源码,很好很强大 http://www.apkbus.com/android-20978-1-1.html an ...
- 分享45个android实例源码,很好很强大
链接地址:http://www.apkbus.com/android-20978-1-1.html 分享45个android实例源码,很好很强大 http://www.apkbus.com/andro ...
- 分享45个android实例源码,很好很强大.收藏吧!!!
添加微信号:apkbus,回复"视频"即可获取400套免费 Android开发 视频教程 分享45个android实例源码,很好很强大 http://www.apkbus.com/ ...
- android之微信分享文本
Android微信开发分享文本 1.xml文件说明 添加CheckBox,分享至微信好友还是微信朋友圈 2.将APP_ID注册到微信中: api.registerApp(APP_ID); 3.创建Ed ...
- 分享45个android实例源码,很好很强大.收藏吧!!! http://www.apkbus.com/forum.php?mod=viewthreadtid=20978 (出处: Android开
分享45个android实例源码,很好很强大.收藏吧!!! http://www.apkbus.com/forum.php?mod=viewthread&tid=20978 (出处: Andr ...
- android span字体修改,Android TextView使用SpannableString设置复合文本的方法详解
本文实例讲述了Android TextView使用SpannableString设置复合文本的方法.分享给大家供大家参考,具体如下: TextView通常用来显示普通文本,但是有时候需要对其中某些文本 ...
最新文章
- C++——拷贝构造函数
- java——-反省机制(代码例子)-
- 统一的定义导航栏的背景颜色(NavigationController)
- 我对Spring的理解
- 无需SherlockActionbar的SlidingMenu使用详解(二)——向Fragment中添加ViewPager和Tab
- mysql binlog size_设置max_binlog_size和expire_logs_days参数,设置mysql数据库bin log清除机制...
- python基础3之文件操作、字符编码解码、函数介绍
- 关于redis说法正确的是_还不会正确使用Redis?这几个技巧让你的程序快如闪电...
- Android随笔-include、merge、ViewStub
- 学生适合做什么html网站,学生个人网页制作html
- 前端 配色网站 自用 免费 颜色很全
- HDL4SE:软件工程师学习Verilog语言(十)
- python暑假培训班
- MYSQL基础教程书籍
- Java算法每日练习
- EKL-日志收集系统安装
- docker出现request cancele le waiting for connection Client. Timeout exceeded while awaiting headers问题
- 2022-2028年中国担保贷款行业市场全景调查及投资潜力研究报告
- Kaggle八门神器(一):竞赛神器之XGBoost介绍
- 分布式计算机联锁系统,基于MAS的分布式计算机联锁系统研究