有哪些信誉好的足球投注网站- 1、本文档共11页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Delphi APP 開發入門（九）拍照與分享
在眾多行動APP 中，除了遊戲類之外，熱門的APP 不外乎都會與拍照、分享、地圖等相關
的技術有關聯，今天筆者就與朋友們分享 Delphi XE6 強大的功能，只要透過簡單的設定以
及短短二行程式就能實作出一個擁有拍照及分享到 Facebook 的APP 。
一、開啟新專案後，我們在畫面上佈置放置Toolbar 元件
二、接著我們要實作拍照以及分享的功能，所以在ToolBar 上放置二個 Button ，並藉
由 Button 的StyelLookup 屬性分別設為CameraToolbutton 與ActionToolButton
3.接著我們要放置一個Image ，把拍照後的相片顯示在手機上，將Align 設為 Client 填滿。
4.最後放上ActionList 元件完成畫面佈置。
5.接著我們要實作拍照功能很簡單，只要在拍照的按鈕上選擇 Action - New Standard
Action -Media Library - TTakePhotoFromCameraAction 。沒錯！Delphi XE6 把複雜
的拍照功能封裝起來，只要透過設定就行了！
6.由於我們要將 拍完的照片顯示在畫面的Image 裡，所以在 OnDidFinishTaking 裡要加
上以下的程式碼
procedure
1 TForm1.TakePhotoFromCameraAction1DidFinishTaking(Image:
2 TBitmap);
3 begin
4 Image1.Bitmap.Assign(Image); // 把照片指定到Image 中
end;
7.接著要實作分享功能，也是很簡單只要在分享的按鈕上選擇 Action - New Standard
Action -Media Library - TShowShareSheetAction 。
8.同樣的，在分享前我們要把照片設定到分享的內容中，所以需要在OnBeforeExecute(分
享框執行前) ，將照片指定到上面。
procedure
1 TForm1.ShowShareSheetAction1BeforeExecute(Sender:
2 TObject);
3 begin
4 ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);
end;
我們已經把程式寫好了
看一下執行的結果吧
GitHub 原始碼下載 /superlevin/XE6CameraAndShare
文档评论（0）