Delphi XE5移动开发入入门手册

Delphi for Android入门指引 手册XE5 强郸能就是一套源代码就可同时研发多辅的应用程性谇懊嬉丫得绾问褂 XE5 开发 iOS App ，那么您今天就可以使用同样的 技巧来开发 Android App 。 不过开发 Android 和开发 iOS 不同的地方是在开发 Android 之前您应该先安装好 Android SDK 和 Android NDK ， 并且在 Delphi IDE 中设置好开发环境。11.安装和设置 Delphi for Android 开发环境在安装 XE5 时会同时安装 Android SDK 和 Android NDK ，您应该在 Delphi IDE 中设定 Android SDK 和 Android NDK 的安装模式，以便使 IDE 能够找到相关的档案和软件。例如笔者把 Android SDK 安装在：c:\Users\GordonLiWei\appData\Local\Android\android-sdk\Android NDK 安装在：c:\Program Files (x86)\android-ndk-r8e\如下图图示：1安装完 Android SDK 之捍行 Android SDK 管理员以便再使用它安装 您要用的 Android SDK 版本，例如下图显示了笔者使用 Android SDK 管理员 安装了 Android SDK 4.2.2 和 4.0.3 版：2沂者使用的 HTC Incredible S 是使用 Android SDK 4.0.4 版：3接着请回到 XE5 的 IDE 中， 点选 Tools|Options… 菜单， 并且点选 Options 对话盒中的 SDK Manager 选项，如下所示：4我们必须制定一竏roid 的研发组态以便在稍孩 Android App 时让 用这竏roid 的开发组态，在这竏roid 的研发组态中我们必须定义使用 的 Android SDK 版本 , Android SDK 和 Android NDK 的安装路径。

请点选上图中的 Add 按钮，在右图的 Add a New SDK 对话盒中选詃roid 平台，再于 Select an SDK version 中选詃 New… 选项，如下图 所示：接着会矯reate a new Android SDK 对话盒请您设定 Android SDK 和 Android NDK 的安装模式，如下图图示：5请在 Android SDK Base path 字段中键入 Android SDK 安装模式以及在 Android NDK Base path 字段中键入 Android NDK 的安装模式。请注意在没 有恰当设定 Android SDK 和 Android NDK 的安装模式时这 2 肝的更右方 都有警示符号，如上图所示。 一旦您如下图正确设置了 Android SDK 和 Android NDK 的安装模式之 2 肝的更右方的警示符号还会消失，如上图图示：6接着请点选 Next 按钮，您就可以如下图发现 Create a new Android SDK 对话盒正确的从 Android SDK 和 Android NDK 的安装模式中找到所有必须的 设定跟工具， 最荷以在下图的 SDK API-Level 字段中选怨用的 Android SDK 版本，如下图图示：7最骸 Finish 按钮完成 Android 的设定。

之哼需要调试使用开发的 Android 手机的驱动程信能使 Delphi IDE 部殊试。读者必须到您的手 机厂商网站下载 ，例如笔者是 使用 hTC Incredible S ，沂者到 hTC 下列的 URL 下载驱动程衕ttp://www.htc.com/tw/software/htc-sync-manager/一旦安装了 hTC 的 Sync Manager 之哼在操壮的设备管理仆 可以发现 HTC 手机： 8接下来我们就可以开始开发 Android App 了。12.开发 Delphi for Android App藉由 XE5 的一份程须，开发多父的功用，我们可以透过撰写一份 程须就可以同时开发 Android 和 iOS 的 App 。 请先制定一竢eMonkey Mobile Application 项目，并且选寓空白 的项目， 接着在项目的窗体中放在 2 弗如下方座示。 如果我们点选 IDE 右上边的设备选项，例如选詍sung Galaxy S2 那么窗体设计家才会切换 为 S2 的设计外形， 控制模块也会切换为 Android 的风溉缦峦加曳酵夹嗡荆9在从 iPhone 切换成 Android 的设备弘在 IDE 的项目管理员中确认目 标平台中的 Android 平台是仔的平台 ( 以粗体显示 ) ，如果 Android 平台不 是仔的平台，那么请使用诗撃它使它作为仔的平台。

接着请开芼roid 节点下的 Target 子节点， 如果您的 PC 已经安装了您 Android 手机的 驱动程幸 Android 手机已经连结到 PC 上 , 那么您必须可以在 Target 子节 点中发现您的 Android 手机，如下图图示。如果没有看到的话您可以在 Target 子节点上右撃尸再从突显示选单中选詅resh 选项，这时你的 Android 手机就必须会显示在 Target 子节点中了。10现在令我们在皱的『请点选我！』按钮中撰写如下的程须： procedure TForm11.Button1Click(Sender: TObject); var sMessage : String; begin sMessage := '欢迎来到 '; {$IFDEF IOS} sMessage := sMessage + 'iOS 的世界'; {$ENDIF}{$IFDEF ANDROID} sMessage := sMessage + 'Android 的世界'; {$ENDIF}ShowMessage(sMessage); end; 在里面的程须中显示程猩以促使编译程蓄来判断现在 App 执 行的平台，并且按照系统来咎须执行的内容。

现在请分扁庚 App 编译以及执行在 iOS 和 Android 手机中， 就可 以发现如下的执行结果： 11执行在 iPhone 5 手机 :执行在 Android(HTC Incredible S) 手机 :12从后面的场景我们可以看见一份 App 项目和程须成功执行在 iPhone 5 和 Android 手机中虽然分泵 iOS 和 Android 外观风覆⑶夷芄桓莶煌 的手机系统执行相对应的程须。 XE5 成功的签署了一份程须执行于多 辅的承诺。13.开发 Android 的 App基本上在您学会了怎样使用 Delphi 开发 iOS App 耗餐毖Щ崃巳绾 开发 Android App ，意 2 腐平台都使用同样的 FireMonkey 看开 发，不过因为这 2 腐平台仍然使用不同的系统构架，亿某些用途方面还 是有所差异，开发人员只应该知道这种变化所在就可以解揪小节讨论的内容 就是其中一釜的差别点：分发和部矢。 现在令我们说梦开发一竏roid 手机上的 App ，在这庚 中笔者使用 IBLite For Android 锥例，由于本范例使用了以诓渴独 App 到笔者的 hTC 手机时必须部施额外的档案。

在 本 范 例 中 笔 者 将 使 用 Interbase Windows 桌 面 版 的 范 例 数 据 库 Employee.GDB ， 并且要把其中的 employee 数据表中的数据显示在 TListView 组件中： 13请先建立一竢eMonkey Mobile Application 项目，并且选寓空白 的项目，在窗体中放入 TFDConnection ，TFDQuery ，TFDGUIxWaitCursor 和 TFDPhysIBDriverLink 等 4 羹：设定 TFDConnection 组件链接到 Interbase Windows 桌面版的实例数据 库 Employee.GDBdelphi xe7教程， 如下所示 ( 使用诗撃 TFDConnection 组件即可扑 对话盒 ) ： 14设定 TFDQuery 组件的下述特点值： 特性Connection SQL FDConnection1 select * from employee特性值更喊体中加入一竔stView 组件， 设定它的 Aligh 特性值为 alClient 。 请在 IDE 中开艱Connection ， TFDQuery 组件，再点选 View|Live Binding Designer 选单以芁ive Binding 设计家，在 Live Binding 设计家 中连结 employee 数据表的 FIRST_NAME 字段到 TListView 组件的 Item.Text 特性，再连结 employee 数据表的 PHONE_EXT 字段到 TListView 组件的 Item.Detail 特性，如下所示：15在连结完 Live Binding 之贺毕 TFDConnection ， TFDQuery 组件， 冶我们部蔄ndroid 手机时因为是在 Android 手机的环境中，乙们 需要撰写程须来谍据库实际的位置。

接 着 在 窗 体 的 OnCreate 事 件 处 理 函 式 中 撰 写 如 下 的 程 码 以 开 艱Connection ， TFDQuery 组件： procedure TForm10.FormCreate(Sender: TObject); begin try FDConnection1.Connected := True; FDQuery1.Active := True; except 16on ex : Exception do ShowMessage(ex.Message); end; end; 在 TFDConnection 组件中我们必须在它的 OnBeforeConnect 事件处理 函式中从恰当的位置加载 Employee.GDB ，从以下的程须中我们可以看见 根据您使用的手机系统是 iOS 籄ndroid 而有不同的加载位置： const EMPLOYEEDB = 'employee.gdb';procedure TForm10.FDConnection1BeforeConnect(Sender: TObject); begin {$IFDEF IOS} FDConnection1.Params.Values['Database'] := GetHomePath + PathDelim + 'Documents' + PathDelim + EMPLOYEEDB; {$ENDIF}{$IFDEF ANDROID} FDConnection1.Params.Values['Database'] := TPath.GetDocumentsPath + PathDelim + EMPLOYEEDB; {$ENDIF}FDConnection1.Params.Values['Username'] := 'sysdba'; FDConnection1.Params.Values['Password'] := 'masterkey'; end;procedure TForm10.FormDestroy(Sender: TObject); begin FDConnection1.Connected := False; end; 接 着 请 开 灵 (Project|Deployment)delphi xe7教程， 点 选 部 灵 中 的 『 Add Files 』按钮把 Employee.GDB 档案加入至部圣中：17设定 Employee.GDB 的『 Remote Path 』营： .\assets\internal\ 再加入 IBLite For Android 的部狮文件到部圣中 :设定它的『 Remote Path 』营： .\assets\internal\interbase\license\18最弘仍然执行此范例 Android App ，就可以在 Android 手机中发现这 庚 App 成功的执行了， 例如下图就是此实例 App 在笔者的 hTC Incredible S 中执行的场景：如果应把此范例 Android App 改成 iOS 的 App 也十分的棘我们只需 要再使用部书设定好 Employee.GDB 和 IBLite For iOS 的部狮档的 部蕀ote Path 即可 :19在项目管理员中双撃 iOS Device 平台，再再次编译，部识例 App ，例 如下图就是此实例 App 在笔者 iPhone 5 中执行的结果画面：一腐项目同时在 Android 和 iOS 平台上执行的 App 。本书到此也告一段落了更胡使用 Delphi XE5 开发 iOS/Android App 愉快20

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-137316-1.html