Delphi XE6透過backendpush發推播訊息

昨天在Codedata發表的那篇「Delphi APP 開發入門(七)通知與雲端推播」,網友問說可不可以自己寫一個Windows程式推播?當然是可以的!

一、到 Kinvey 中Addons -> Business Logic -> Custom Endpoints

Custom-Endpoints01

二、按下New新增,增加一個名稱為sendMessage的Endpoints

Custom-Endpoints02 Custom-Endpoints03

三、建立完成後在函數裡面加上下面的程式碼(如果對Custom Endpoints有興趣可以參考Custom Endpoints guide

Custom-Endpoints04

  var iOSAps = request.body.iosaps;
  var push = modules.push;
  var iOSExtras = request.body.iosextras;
  var androidPayload = request.body.androidpayload;
  var androidmessage = androidPayload.message;
  var message = request.body.message;
  push.broadcastPayload(iOSAps, iOSExtras, androidPayload);
  response.complete( 200 );

四、接著回到程式部份,我們要在KinveyProvider1的PushEndpoint 屬性設定為在kinvey新增的endpoint名稱’sendMessage’。接著在畫面上增加BackendPush1,將Provider 設定為 KinveyProvider1

五、在畫面上新增Edit元件以及Button元件,在Button的onclick元件中寫上程式碼如下

procedure TForm1.Button1Click(Sender: TObject);
begin
  backendpush1.GCM.Message := edit1.Text;
  backendpush1.Push;
end;

這樣就可以了!一樣附上原始碼供大家參考
https://github.com/superlevin/XE6KinveyPush

作者: 林壽山

林壽山 軟體公司專案經理,第三方支付設計,金流設計,行動支付設計,支付寶,微信,街口支付,信用卡機,擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計

在〈Delphi XE6透過backendpush發推播訊息〉中有 1 則留言

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *

這個網站採用 Akismet 服務減少垃圾留言。進一步瞭解 Akismet 如何處理網站訪客的留言資料