Delphi for iOS开发指南(11):在iOS应用程序中拍照并共享照片

Delphi for iOS开发指南(11):在iOS应用程序中拍照并共享照片

 

 

 

在开始这篇教程之前，你应该预先阅读并按下面的这篇教程实际操作过：

 

• iOS开发指南(4):：在iOS应用程序中使用不同风格的Button组件

 

这篇教程涵盖了下面常用的任务：在iOS应用程序中如何使用照片。

 

这些功能由Actions提供，你只需要为每个任务编写一句代码。

 

一个Action绑定一个或多个用户界面元素，例如菜单项，工具栏按钮，以及其他控件。

 

Actions提供两种用途：

 

• Action可以表示用户界面元素的通用属性－例如控件是否启用，或者CheckBox是否勾选。
• Action可以响应控件触发的事件－例如当用户点击一个按钮或是选择一个菜单项。

 

在这篇教程中，你将会学习到如何将每个你想要支持的功能Action赋给用户界面元素（例如按钮）。

 

 

 

 

 

为应用程序建立用户界面

 

这个示例程序的用户界面十分简单，如下图所示：

 

 

将下面这些组件放在Form Designer上：

 

• TToolBar组件
• 三个TButton组件。每个按钮使用不同的图标。
• 为这三个按钮分别设置它们的StyleLookup属性为cameratoolbuttonbordered，searchtoolbuttonbordered，以及actiontoolbuttonbordered。
• TImage组件
• 设置Align属性为alClient。
• TActionList组件

 

 

 

 

 

使用iOS Device的摄像头拍照

 

你可以定义一个Action来使用iOS Device上的摄像头拍照，通过使用下列步骤：

 

1．在Form Designer上，选择用来拍照的那个按钮。

2．在Object Inspector中，从Action属性的下拉列表中选择。

3．选择New StandardAction｜Media Library｜TTakePhotoFromCameraAction：

4．在Events页，展开Action结点，然后双击OnDidFinishTaking事件。

5．添加如下代码到OnDidFinishTaking事件处理过程：

 

 
procedure TForm1.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
begin
  Image1.Bitmap.Assign(Image);
end;

 

 

 

 

这段代码将iOS Device摄像头拍下的照片赋给TImage组件的Bitmap属性。

 

 

 

 

 

使用iOS Device照片库里的照片

 

你可以使用如下步骤定义一个Action来使用照片库中的照片：

 

1．在Form Designer上，选择一个你想要用来选择照片的按钮。

2．在Object Inspector中，点击Action属性的下拉列表，选择New StandardAction|Media Library|TTakePhotoFromLibraryAction。

3．在Events页，展开Action节点，然后双击OnDidFinishTaking事件。

4．在OnDidFinishTaking事件处理程序中添加如下代码：

 

procedureTForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);

begin

  Image1.Bitmap.Assign(Image);

end;

 

 

上面这段代码将照片库中的照片赋给TImage组件的Bitmap属性。

 

 

 

 

 

 

 

 

共享或打印照片

 

在iOS应用中，你可以共享照片到社交网站（例如FaceBook和TWitter）上，你也可以发送照片给打印机，使用照片作为邮件附件，赋给联系人，等等。

这种多共享服务被称为Share Sheet Functionality，你可以按照下面的步骤来实现这些功能：

 

1．在Form Designer上，选择一个用来共享照片的按钮。

2．在Object Inspector中，在Action属性中点击下拉列表，然后选择New StandardAction|Media Library|TShowShareSheetAction。

3．在Events页，展开Action节点，然后双击OnBeforeExecute事件。

4．在OnBeforeExecute事件处理过程中添加如下代码：

 

procedureTForm1.ShowShareSheetAction1BeforeExecute(Sender: TObject);

begin

  ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);

end;

 

 

上面这段代码将TImage组件的照片赋给“Share SheetFunctionality”.

 

在你在服务列表中选择FackBook之后，你可以使用你的组件来上传照片到FaceBook上：

 

 

 

 

 

 

 

 翻译的不好，请大家贱谅！

欢迎加入OrangeUI For FMX 技术支持QQ群10900297