Delphi APP 開(kāi)發(fā)入門(mén)(九)拍照與分享.pdf

《Delphi APP 開(kāi)發(fā)入門(mén)(九)拍照與分享.pdf》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、DelphiAPP開(kāi)發(fā)入門(mén)（九）拍照與分享在眾多行動(dòng)APP中，除了遊戲類之外，熱門(mén)的APP不外乎都會(huì)與拍照、分享、地圖等相關(guān)的技術(shù)有關(guān)聯(lián)，今天筆者就與朋友們分享DelphiXE6強(qiáng)大的功能，只要透過(guò)簡(jiǎn)單的設(shè)定以及短短二行程式就能實(shí)作出一個(gè)擁有拍照及分享到Facebook的APP。一、開(kāi)啟新專案後，我們?cè)诋?huà)面上佈置放置Toolbar元件二、接著我們要實(shí)作"拍照"以及"分享"的功能，所以在ToolBar上放置二個(gè)Button，並藉由Button的StyelLookup屬性分別設(shè)為CameraToolbutton與ActionToolButton3.接著我們要放置一個(gè)Image，把拍照後的相片顯示在

2、手機(jī)上，將Align設(shè)為Client填滿。4.最後放上ActionList元件完成畫(huà)面佈置。5.接著我們要實(shí)作拍照功能很簡(jiǎn)單，只要在拍照的按鈕上選擇Action->NewStandardAction->MediaLibrary->TTakePhotoFromCameraAction。沒(méi)錯(cuò)！DelphiXE6把複雜的拍照功能封裝起來(lái)，只要透過(guò)設(shè)定就行了！6.由於我們要將拍完的照片顯示在畫(huà)面的Image裡，所以在OnDidFinishTaking裡要加上以下的程式碼procedure1TForm1.TakePhotoFromCameraAction1DidFinishTaking(Image:2T

3、Bitmap);3begin4Image1.Bitmap.Assign(Image);//把照片指定到Image中end;7.接著要實(shí)作分享功能，也是很簡(jiǎn)單只要在分享的按鈕上選擇Action->NewStandardAction->MediaLibrary->TShowShareSheetAction。8.同樣的，在分享前我們要把照片設(shè)定到分享的內(nèi)容中，所以需要在OnBeforeExecute(分享框執(zhí)行前)，將照片指定到上面。procedure1TForm1.ShowShareSheetAction1BeforeExecute(Sender:2TObject);3begin4ShowShar

4、eSheetAction1.Bitmap.Assign(Image1.Bitmap);end;我們已經(jīng)把程式寫(xiě)好了看一下執(zhí)行的結(jié)果吧GitHub原始碼下載https://github.com/superlevin/XE6CameraAndShare