Delphi XE6 GCM+Kinvey推播

詳盡原文刊登於 Codedata

當APP不在前景執行時,能夠用自己的平台或伺服器發送通知給行動的一項技術。在iOS平台上有APNS(Apple Push Notification Service),而Android平台上則叫做GCM(Google Cloud Messaging),在今天我們先以Android的GCM搭配BaaS服務Kinvey為例子。

Google Cloud Messaging

1.進入網站 https://console.developers.google.com
07
2.輸入專案名稱跟專案ID
08
3.完成後,記得專案編號(等等在其他設定會用到)
09
4.接著點選API 找到 Google Cloud Messageing for Anroid 後按關閉按鈕打開

1112

五、點選建立新的金鑰

13

六、點選伺服器金鑰

14

七、如果沒有特別允許使用IP可以略過後按建立就行了

 

15

八、一樣要記得API金鑰
17

kinvey申請

在行動裝置的開發領域目前有個BaaS(後端即服務:Backend as a Service)的技術概念。BaaS是指為行動裝置開發者提供整合雲端的基礎服務,像是資料/文件的儲存或是帳號管理、訊息推送、社群網路整合等….
而在Delphi XE6中支援二個熱門的服務為Kinvey及Parse,在這邊我們以Kinvey做為例子。
1.進入Kinvey網站(http://www.kinvey.com/)按下Sign Up註冊
01

2.註冊帳號只要電子郵件跟密碼就行了

02

3.點選Individual 個人帳戶的Get Started即可

 

 

03

4.接著建立一個新的專案,平台的話選擇Other(其他)的REST API即可
04
5.建立完成後,右下角的API Keys要記下來06

6.接著我們要建立可以存取服務的使用者,點選上面的Addons,在Core內有Users點入22

7.接著點選Add User新增使用者23

8.只要輸入帳號密碼就可以,我們建立一個test使用者24

9. 建立完成後可以看見使用者列表

25

10.接著建立待會使用的 Push Notification,一樣在Addons的目錄下有一個Messaging,裡面有一個Push

18

11.接著我們將剛才在Google控制台的專案編號填入Project ID、API金鑰填入API Key,接著按下Save GCM Configuration。右上角會由inactive轉為active。這樣就完成了相關的申請跟設定,不過先別關掉它。等等會再使用到!19 20 21

程式開發

1.我們延續剛才的通知範例,在畫面加上ListView元件,將Align設為Bottom

螢幕快照 2014-06-17 下午3.40.05

2.接著在畫面上放上二個元件,一個是TKinveyProvider以及TPushEvents

螢幕快照 2014-06-17 下午3.40.38

螢幕快照 2014-06-17 下午3.41.01

3.PushEvents1中的AutoActivate、AutoRegisterDevice設為True以及Provider指定KinveyProvider1

螢幕快照 2014-06-17 下午3.41.33

4.設定 OnPushReceived事件,在裡面的程式寫上

螢幕快照 2014-06-17 下午3.42.21

1
2
3
4
5
procedure TForm1.PushEvents1PushReceived(Sender: TObject;
  const AData: TPushData);
begin
  ListView1.Items.Add.Text := AData.Message;
end;

5.接著在KinveyProvider1設定相關參數
螢幕快照 2014-06-17 下午3.43.31

6.最後開啟專案目錄下的AndroidManifest.template.xml(這個檔案是Delphi編譯過程中產生AndroidManifest.xml的範本檔。

在幾個位置加入設定
.<%uses-permisson%>後面加上

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<!-- GCM connects to Google Services. -->
    <uses-permission android:name="android.permission.INTERNET" />
    <!-- GCM requires a Google account. -->
    <uses-permission android:name="android.permission.GET_ACCOUNTS" />
    <!-- Keeps the processor from sleeping when a message is received. -->
    <uses-permission android:name="android.permission.WAKE_LOCK" />
    <!--
     Creates a custom permission so only this app can receive its messages.
     NOTE: the permission *must* be called PACKAGE.permission.C2D_MESSAGE,
     where PACKAGE is the application's package name.
    -->
    <permission android:name="%package%.permission.C2D_MESSAGE"
    android:protectionLevel="signature" />
    <uses-permission android:name="%package%.permission.C2D_MESSAGE" />
    <!-- This app has permission to register and receive data message. -->
    <uses-permission
    android:name="com.google.android.c2dm.permission.RECEIVE" />

.</intent-filter></activity> 後面加上

1
2
3
4
5
6
7
8
<receiver
android:name="com.embarcadero.gcm.notifications.GCMNotification" android:exported="true"
android:permission="com.google.android.c2dm.permission.SEND"
  <intent-filter>
    <action android:name="com.google.android.c2dm.intent.RECEIVE" />
    <category android:name="%package%" />
  </intent-filter>
</receiver>

接著就可以執行程式了!
程式執行後,我們回到Kinvey網站,輸入要推播的訊息後按 Send Push Notification
pushmessage

可以看到程式的Listview會出現推播的訊息。

1907712_10152077090231541_3460962835102390423_n

最後附上原始碼

https://github.com/superlevin/xe6notification

RAD Studio XE6, Delphi XE6, C++ Builder XE6網路研討會

看到信箱躺著網路研討會的訊息,覺得還不錯分享給大家了!其實我還蠻常三更半夜參加Embarcadero總公司發佈的研討會~

報名連結

如果您苦於尋找快速, 強大的移動平台和Windows/Mac開發工具, 那麼您一定要來體驗一下RAD Studio XE6, Delphi XE6, C++ Builder XE6, 因為RAD Studio XE6可讓您使用一套程式碼同時開發Windows, iOS/Android和Mac平台的應用程式.
邀請您一起來探討 XE6 新的 VCL/Windows 及 FMX multi-device 開發優勢,讓您的 app 應用開發更上層樓。

日期: 2014 年 6 月 17 日星期二
時間: 10:00 AM – 11:00 AM CST

delphi XE6 switch元件簡繁體問題

XE6的Switch元件增加了多國語系的功能,不過很遺憾的是它在中文的部份只認得zh,不會分辨zh_CN、zh_TW、zh_SG跟zh_HK。但是幸好Delphi是可以自己修正原始碼的 🙂

 

將 Program Files\Embarcadero\Studio\14.0\source\fmx下的

FMX.Styles.Switch.pas與FMX.Platform.Android.pas複製到自己專案的目錄下

 
FMX.Styles.Switch.pas
第42行修改如下
[pascal]
// 2014.5.29 by lin shou shan
// 修正switch文字只有簡體中文問題
//LocalizedStates: array [0..6] of TStatesForLocale = (
LocalizedStates: array [0..7] of TStatesForLocale = ( // by lin shou shan
(Locale: ‘en’; OnText: ‘ON’; OffText: ‘OFF’),
(Locale: ‘jp’; OnText: ‘ON’; OffText: ‘OFF’),
(Locale: ‘ja’; OnText: ‘ON’; OffText: ‘OFF’),
(Locale: ‘ko’; OnText: ‘ON’; OffText: ‘OFF’),
(Locale: ‘de’; OnText: ‘AN’; OffText: ‘AUS’),
(Locale: ‘fr’; OnText: ‘OUI’; OffText: ‘NON’),
//(Locale: ‘zh’; OnText: #25171#24320; OffText: #20851#38381) // by lin shou shan
(Locale: ‘zh_CN’; OnText: #25171#24320; OffText: #20851#38381), // by lin shou shan
(Locale: ‘zh_TW’; OnText: ‘開’; OffText: ‘關’) // by lin shou shan
);
[/pascal]
FMX.Platform.Android.pas
第3330行修改如下
[pascal]
function TPlatformAndroid.GetCurrentLangID: string;
var
Locale: JLocale;
begin
Locale := TJLocale.JavaClass.getDefault;
Result := JStringToString(Locale.toString); // 回傳 zh_TW 2014.5.29 lin shou shan
//Result := JStringToString(Locale.getISO3Language); // lin shou shan
//if Length(Result) > 2 then // lin shou shan
// Delete(Result, 3, MaxInt); // lin shou shan
end;
[/pascal]

Delphi設定dcu、exe輸出路徑

Delphi在編譯時,預設的DCU(Delphi compiled unit)是與exe檔案在一塊。在程式還小的時候還好~

01

不過當uses的資源以及程式越來越大的時候,就發現資料夾過於雜亂了

02

我們可以到Project->Options設定

03

在第一個選項Delphi Compiler選擇Target為All configurations

04

更改輸出的執行檔跟dcu路徑就行了。

05

不得不佩服Philippe Kahn這位先知看到穿戴式裝置未來

或許您不知道Philippe Kahn是誰?但如果我跟您說Borland是他創立的大概就知道了!不過這都不是重點,最近在看一些資料,才發現Philippe Kahn在1994年離開自己創立的Borland後,1994年又創立研究無線通訊技術的Starfish software(1998年被motorola高價收購);1997年又創了LightSurf Technologies發明照相手機(2005年又被 VeriSign收購)。

目前他是在2003年創的Fullpower Technologies裡,主要就是穿戴式裝置, MotionX技術就是由這家公司發展出來的。

只能說Philippe Kahn真的是連續創業家的典範。

 

5/7 Delphi XE6 發表研討會台中場

報名了台中場次!其實重點是要看看有興趣的人多不多~

研討會內容:

  • 令人震撼的新技術 – App Tethering
  • 最先進且業界唯一的完整 C++ for Android 開發工具
  • 最具潛力的雲端技術 – BaaS
  • 強化的執行效率和品質
  • 以及更多的新功能

場次:

  • 103 年 5 月 6 日 (二) 2:00~5:00pm (台北)
  • 103 年 5 月 7 日 (三) 2:00~5:00pm (台中)
  • 103 年 5 月 8 日 (四) 2:00~5:00pm (高雄)
  • 103 年 5 月 9 日 (五) 2:00~5:00pm (新竹)

主講人:

  • Marco Cantu, Product Manager of RAD Studio, Embarcadero
  • 李 維, Embarcadero 大中華區技術總監

台中
103 年 5 月 7 日 (三)

2:00pm~5:00pm
日內瓦會議中心
台中市忠明南路303號17F
亞洲廳

 

報名網址: http://forms.embarcadero.com/AP14Q2TWDeveloperDirectLIVE

Delphi POS – 透過USB Printer打開錢櫃

[pascal]
procedure USBOpenCashDrawer(PrinterName: String);
var
// use winspool
Handle, hDeviceMode: THandle;
N: DWORD;
DocInfo1: TDocInfo1;
Device, Driver, Port: array [0 .. 255] of char;
ThePrinter: string;
code:ansistring;
begin
ThePrinter := PrinterName;
Code := chr(27) + chr(64)+ chr(27) + chr(112) + chr(0) + chr(50) + chr(200);

Printer.PrinterIndex := Printer.Printers.Indexof(ThePrinter);
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
PrinterName := Format(‘%s’, [Device]);
if not WinSpool.OpenPrinter(PChar(PrinterName), Handle, nil) then
begin
// ShowMessage(‘Error : ‘ + IntToStr(GetLastError));
Exit;
end;
with DocInfo1 do
begin
pDocName := ‘Test’;
pOutputFile := nil;
pDataType := ‘RAW’;
end;

WinSpool.StartDocPrinter(Handle, 1, @DocInfo1);
WinSpool.StartPagePrinter(Handle);
WinSpool.WritePrinter(Handle, PAnsiChar(Code), Length(Code), N);
WinSpool.EndPagePrinter(Handle);
WinSpool.EndDocPrinter(Handle);
WinSpool.ClosePrinter(Handle);

end;
[/pascal]

【胡思亂想】有點想來自寫一本Delphi XE5/6的電子書

下午在露天拍賣看到這本書叫價到2,000元(連結),對這本Delphi 徹底研究的書印象是同學口中的”聖經本”。不過好像後續的版本就沒再出了,總覺得很可惜,Delphi快速開發的特性再加上可以開發Android/iOS,應該可以再現風華,唯讀缺少一本類似這樣的書,或許對後續推廣Delphi XE4/5/6都很有幫助。

21305118420210_703

雖然捷康有出了幾本移動開發入門手冊/FireMonkey 資料庫程式 設計篇/DataSnap 開發實戰篇,可是又覺得不夠全面。

突然有股念頭想要自幹一本電子書出來,也當作自己的成果驗收好了!

http://embarcadero.qcomgroup.com.tw/images/publish/delphi_xe5_mobile_cover.jpg

 

Box2D for Delphi XE6下載

BOX2D 對開發手機2D遊戲的朋友想必不陌生,隨著Delphi XE6發表後,也有有網友也將BOX2D 轉成Firemonkey元件了!

這個版本是基於Box2D v2.3.0 所改寫的,下載連結也有附上範例。

Box2D 2.30 for Delphi XE5/Xe6

http://i0.wp.com/www.fmxexpress.com/wp-content/uploads/2014/04/box2d.jpg