?

結果：

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)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。