【Delphi Multi-Device Application】 拍照與分享

 畫面貼上
  TSpeedButton (拍照)
  TSpeedButton (分享)
  TActionList
  TImage (圖像)

【拍照】

ActionList -> New Standard Action ... -> TTablePhotoFromCameraAction

TablePhotoFromCameraAction -> OnDidFinishTaking 事件，將圖像填入Image1

Code: Image1.Assign(Image);

SpeedButton1.Action 指向 ActionList1.TaskPhotoFromCameraAction1做連動

【分享】

ActionList -> New Standard Action ... -> TShowShareSheetAction

ShareSheetAction1 -> OnDidFinishTaking 事件

Code: ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);

SpeedButton2.Action 指向 ActionList1.ShowShareSheetAction1做連動

參考:https://www.shuzhiduo.com/A/ZOJPkygPzv/