Delphi XE5 不同平台使用 SSL/HTTPS

以前在 Delphi 使用 Tidhttp元件時，需要額外載入 OpenSSL的 dll。Delphi XE5開始支援多裝置、多平台的時候，該如何解決呢？

昨天在 Coderage 8時，Olaf Monien的分享，記錄下來避免忘記！不過文中提到Android目前似乎還沒有XD

連結:

Delphi XE5 : SSL / HTTPS on different platforms with TIdHTTP and TRESTClient

http://www.monien.net/delphi-xe5-ssl-https-on-different-platforms-with-tidhttp-and-trestclient/

Day4 – Delphi XE5 簡易BMI計算器

今天教大家設計BMI計算機，

1首先開啟一個空白專案

2新增一個ListBox

3將aligh 設為 alClient(填滿)

4將GroupingKind 設成 gsGrouped

5將StyleLookup 設定 transparentlistboxstyle

6在畫面上按右鍵開啟 Items Editor

7下拉TListBoxGroupHeader後按Add Item

8接著下拉 TListBoxItem 後按 Add Item

9新增如上圖

10點上面的LiboxGroupHeader1修改Text 為 BMI計算機，TextAligh設為 taCenter(置中)

11陸續修改其他如上圖

12新增TEdit元件

13修改屬性Aligh 為 alRight

14將KeyboardType改成 vktNumberPad (預設開啟數字鍵盤)

15新增一個Button

16將Aligh 設為 alClient

17 Text設為計算

18新增Label

19設定完畫面如圖

20將edit1.text,edit2.text的TextAligh屬性設為 taTrailing (置右)

21都設定完之後，可以下拉成不同機器

22可以看得到在ios、android會自動轉換成各自的風格

23接著在畫面的計算按鈕點二下，輸入上圖的程式

[pascal]
procedure TForm1.Button1Click(Sender: TObject);
var
BMI:double;
begin
BMI := StrToFloat(FormatFloat(‘#.##’,(StrToFloat(Edit2.text) /
( (StrToFloat(Edit1.Text)/ 100) * (StrToFloat(Edit1.Text)/100 )))));
Label1.Text := FloatToStr(BMI);
end;
[/pascal]

24 可以雙點不同的平台，看看跑出來的效果

25 Windows

26 iPhone

27 Android

Github 程式下載 https://github.com/superlevin/delphixe5bmicalc

Day3 – Delphi XE5簡易手電筒

在經過前二天的安裝以及設定之後，今天來教大家寫一個最簡單的app-手電筒。十分鐘就可以完成了唷 🙂

1新增空白專案

2接著我們要在畫面上放上二個元件，在右下角的元件盤中搜尋打上tswitch，這是一個開關的元件。直接在TSwitch快點二下

3第二個元件是TCameraComponent，從名稱就知道跟相機有關的，沒錯，因為手電筒就是打開相機的閃光燈。一樣也是搜尋到之後快點二下即可。

4二個元件放上去的畫面

5接下來點選畫面上的CameraComponent1元件，然後左下角的Active打勾成為 True

6接下來點選畫面上的Switch元件，然後將左下角的屬性視窗點Events頁籤，往下找到OnSwitch快點右邊空白處二下

7在裡面輸入以下的程式

[pascal]
if Switch1.IsChecked then begin
if CameraComponent1.HasFlash then
CameraComponent1.TorchMode := TTorchMode.tmModeOn;
end else begin
if CameraComponent1.HasFlash then
CameraComponent1.TorchMode := TTorchMode.tmModeOff;
end;
[/pascal]

稍微講解一下，如果Switch是打開的(Switch1.IsChecked)，檢查相機是不是有閃光燈(CameraComponent1.HasFlash)，確定有的話，就將相機的TorchMode(燈光)打開(tmModeOn)，相反的就是關掉(tmModeOff)。

打完收功！按下F9之後，就是您的第一個APP程式叫「手電筒」XD

範例程式碼下載: https://github.com/superlevin/delphixe5flashlight

實機操作畫面:

Day2 – Delphi XE5 開發Android、Mac/iOS設定

Android設定

1開始功能表→Embarcadero RAD Studio XE5→Android Tools

2開啟之後，其實就是Android SDK Manager的畫面

3點選上面功能表Tools→Manage AVDs就可以看到delphi xe5在安裝時會自動新增一個rsxe5_android模擬器

4如果您已安裝好自己android手機的usb驅動程式，可以進入命令字元模式(執行→cmd)，然後輸入 adb devices，如果正確的話就會列出您的手機。

Mac/iOS設定

1到apple網站下載xcode並安裝(網址 https://developer.apple.com/xcode/)

2安裝完成後，打開xcode，進入選單Preferences中安裝Command line tools

3將C:\Program Files\Embarcadero\RAD Studio\12.0\PAServer中的RADPAServerXE5.pkg複製到mac上安裝，完成後就會出現RAD PAServer XE5

測試設定是否成功

Android APP開發

1打開 delphi XE5主程式，點選 File -> New -> FireMoneky Mobile Application – Delphi 新增專案

2選擇blank application(空白專案)

3自動建立一個手機app的空白專案

4預設是執行到android上(粗體)，其他也可以直接執行在iOS的實機或模擬器上

5從右下角的Tool Palette(工具盤)，點一下TButton，再回到手機畫面的空白處拖拉出您要的大小

6再到左下角的Object Inspector(物件檢視器)，下拉到Text的部份，把Button1改成Hello World

7點開右邊的project1，把android下面target的部份設定成PC36100(壽山的HTC手機)，接著點選功能表的RUN→RUN(或直接按F9)

8實機拍攝的狀況

iOS APP開發

延續上面的1~6的步驟。

0在mac機器上打開paserver，並輸入密碼(一定要輸入)，並取得該主機的ip(可以打開終端機輸入ifconfig)

1在ios simlulator點二下變粗體後，按右鍵Properties在profile的地方下拉，按add new

2輸入設定檔名稱按下一步(next)

3輸入執行paserver的主機ip以及密碼，沒問題的話按test connection會出現成功訊息

4設定好後按finish，接著點ok，就可以按f9執行了

5模擬器執行畫面如上，恭禧您！已經學會iOS跟Android APP設計的第一步了。

系列文章

Day1 – Delphi XE5試用安裝

Day2 – Delphi XE5 開發Android、Mac/iOS設定

Day1 – Delphi XE5試用安裝

在接下來的30天裡，壽山要挑戰教大家利用Delphi XE5的30天Free Trials(試用版)，從delphi的門外漢，到可以設計Android、iOS程式的初學者。

首先，第一天先教大家如何申請試用版本以及安裝。

系統需求

記憶體:1 GB (2 GB以上更好)
硬碟空間: 需3-24 GB 的空間
光碟機(安裝程式用)
基本的GPU – Any vendor DirectX 9.0 class or better (Pixel Shader Level 2)
處理器: Intel® Pentium® or compatible, 1.6 GHz minimum (2GHz+ recommended)
顯示器:1024×768 or higher-resolution monitor
滑鼠:
系統版本:
- Microsoft® Windows 8 (32-bit and 64-bit)
- Microsoft® Windows 7 SP1 (32-bit and 64-bit)
- Microsoft® Windows Vista™ SP2 (32-bit and 64-bit) requires administrator rights
- Microsoft® Windows Server® 2008 (32-bit and 64-bit)

其他需求

Mac/iOS

需要有一台OS X 10.7以上版本的電腦(可以買一台便宜的Mac mini 約二萬左右)跑paserver編譯程式。

上面需裝有XCode以及裝上command line tools。

Android

如果需要開發android程式，手機的處理器需是 ARM7 規格，版本需求是

Android Gingerbread (2.3.3-2.7)
Ice Cream Sandwich (4.0.3 and 4.0.4)
Jelly Bean (4.1.x, 4.2.x and 4.3.x)

接著要安裝您的手機的USB驅動程式，以及打開手機的USB 偵錯模式

下載篇

1到embarcadero官網(http://www.embarcadero.com)，點選Logo旁的free trials

2進入後，可以看到embarcadero有提供許多產品試用版下載試用，我們點選 Delphi XE的下載

3點入後，會詢問你要下載那個版本Delphi XE5 Architect – 30 day trial 還是 Embarcadero RAD Studio XE5 Architect – 30 day trial。我們點選 Delphi XE5 Architect – 30 day trial 的download就好。

4接下來會要求您註冊會登入帳號，如果沒有的話就打左邊的基本資料註冊一個。5都完成之後，會自動下載程式，並且會寄一封電子郵件告知您試用版本的序號是什麼。

安裝篇

下載完之後，接著我們開始安裝。

1雙點剛才下載的delphi_xe5_esd的程式二下開啟安裝程式。

2選擇語系English，按ok，接著按下一步(Next)。

3使用者條款，在I accept the license agreement打勾按Next

4到剛才註冊的信箱收信，會收到一封embarcadero寄來的試用序號，把信中的Serial Number(s)輸入到Serial Number裡面

5會再詢問要安裝其他語系到裡面嗎?直接按下一步

6會告訴您系統所需空間，以及安裝那些程式進去，按下一步(next)

7因為可以開發Android程式，所以會幫您安裝 android sdk跟 android ndk，繼續下一步

8出現android sdk的使用者條款，一樣勾選I accept the license agreement按下一步

9選單名稱跟出現在那位使用者的選單上，直接按下一步

10安裝路徑，直接下一步

11檔案關聯，一樣點選下一步

12在程式安裝或更新中，需要下載檔案的路徑位置，沒有問題的話就下一步

13確定沒有問題就要開始安裝囉!直接按下一步

14安裝程式會開始下載需要的檔案安裝，需要等待一段時間，泡杯茶喝杯咖啡(安裝時間就估個一小時吧)

15安裝完成!

參考資料

DELPHI XE5 產品概觀(捷康科技)http://embarcadero.qcomgroup.com.tw/xe5/products/delphi.html

DELPHI XE5 線上手冊 http://docwiki.embarcadero.com/RADStudio/XE5/en/Main_Page

系列文章

Day1 – Delphi XE5試用安裝

Day2 – Delphi XE5 開發Android、Mac/iOS設定

Delphi XE5學習中文書

有網友反應看到DELPHI XE5高效率的Android iOS APP開發功能很想學，但一直找不到中文的書籍~對不少英文能力不是很強的人，即使看到這套很神奇的工具，沒有中文參考書的情況下只好卻步。

其實台灣的捷康科技有出版幾本書籍，大家可以參考，不過因為沒有在書局舖貨的情況下，大家都不曉得。分享給大家!

購書網址: http://embarcadero.qcomgroup.com.tw/publish_books.html

delphi xe5 移動開發入門手冊

XE5

delphi xe4 firemonkey、datasnap

【工商服務】APP整合開發養成班

致力於 APP 開發教學的沈志宗大哥給的訊息，轉貼給朋友們知道一下！

中部的朋友們，久等了！

您要為期三個半月的 APP 整合開發養成班？
或是假日在職班？

年底到了，如果想轉行，又不是資訊相關科系，可以大膽報名「APP 整合開發養成班」

如果自己或親戚朋友有剛退伍、剛畢業的小孩，也不是資訊相關科系，擔心找不到好工作的，也可以大膽報名「APP 整合開發養成班」

如果在北部，當然是選擇中央大學資策會 (http://goo.gl/jH2PU)

另外，如果你不想浪費時間在電視前看宮廷爭奪劇，認為該把握生命利用時間寫 App 多掙些生活費用，每個月多個 US$100~200 也好，那就可以大膽報名「假日在職班」。

我建議您到資策會，不只是因為我在那裡教，也不是資策會比較厲害，只是值得你信賴！

好吧，這裡就有連結可以報名 (http://iphone.to/) 手機也可以！

Delphi XE5實作仿Facebook Slide Menu

既然Delphi XE5可以開發Android、iOS的程式，那可不可以設計像Facebook一樣的選單呢(如上圖)?答案是可以的！

接下來就手把手教大家操作。

1首先開一個空的Mobile Project，在上面放一個ListBox元件，將Aligh設定為alClient

2接下來回到ListBox元件按右鍵進入 Item Editor，建立如下圖的選單

3.接下來再放上一個Panel，一樣把Aligh設定成alClient，接著在上面放一個ToolBar

4.在ToolBar上放一個SpeedButton，設定StyleLookup為detailstoolbuttonbordered

5.回到Panel元件，設定Position的X ，下拉選擇 Create New TFloatAnimation

6.接著在SpeedButton 的 OnClick事件

[pascal]
var
FloatAnimationX: single;
begin
FloatAnimationX:=Self.ClientWidth – 60;

if (panel1.Position.X=FloatAnimationX) then begin
FloatAnimation1.StartValue:= FloatAnimationX;
FloatAnimation1.StopValue:= 0;
end
else begin
FloatAnimation1.StartValue:= 0;
FloatAnimation1.StopValue:= FloatAnimationX;
end;

<del datetime="2013-10-01T09:44:53+00:00">AnimateDrawer</del>FloatAnimation1.Start;
end;
[/pascal]

結果就會變成如下圖了！

如果你要在Panel加上陰影的話，只要在Panel加上即可