Delphi XE5讀出Android IMEI ID

首先要uses

uses
  FMX.Platform.Android,
  Androidapi.JNI.Telephony,
  Androidapi.JNI.Provider ,
  Androidapi.JNIBridge,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.JavaTypes,
  FMX.Helpers.Android;

接著放上Button,在Click事件打上

var
  obj: JObject;
  tm: JTelephonyManager;
  IMEI: String;
begin
  obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
  if obj <> nil then
  begin
    tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
    if tm <> nil then
      IMEI := JStringToString(tm.getDeviceId);
  end;
  if IMEI = '' then
      IMEI := JStringToString(TJSettings_Secure.JavaClass.getString(                        SharedActivity.getContentResolver,                        TJSettings_Secure.JavaClass.ANDROID_ID));
 
  ShowMessage('IMEI :' + #13 + IMEI);
 

Delphi XE5 Firemonkey實作仿Flappy Bird遊戲

FMX Express 上看到的「Flappy Bird Clone Source Code For Delphi XE5 Firemonkey On Android And IOS

Delphi XE5 Firemonkey Flappy Bird

有興趣研究Delphi XE5如何寫出Mobile遊戲的可以下載程式碼。

下載連結:
Download Flappy Firemonkey Prototype Source Code For Delphi XE5 Firemonkey.

Download Flappy Firemonkey 3D Prototype Source Code For Delphi XE5 Firemonkey 3D or download the Win32 binary.

Delphi XE5 Firemonkey Flappy Bird Clone

Delphi XE5開發的Mobile APP有那些上架?

Delphi 支援 Android / iOS的行動裝置開發已經一段時間了!許多人好奇開發出來的APP到底可不可以在 Google Play 或是  Apple Store上架?

Embarcadero整理了一個「RAD Studio Application Showcase」網頁,讓大家知道有那些已上架的APP。

android ios

當然如果您要回報你使用Delphi、C++ Builder或RAD Studio開發且上架的程式,也可以透過這個表單送出。

facebook建立了一個Delphi Developer Forum

由於比較常在Facebook上出沒,所以索性在Facebook建了一個「Delphi Developer【Delphi開發者】」,主要討論的是所有Delphi開發的大小事以及新知。

也期待有更多人踏入Delphi for Mobile的開發 🙂

 

 

網址: https://www.facebook.com/groups/585770898163978/

Delphi Xe5二行程式碼搞定iOS讀取QR、UPC、EAN條碼

TMS Software 看到TMSFMXZBarReader這個元件,只要在要出現Barcode Scanner的地方寫一行

TMSFMXZBarReader1.show

取得掃到的內容則是在TMSFMXZBarReader的GetResult的AResult(文字)

元件下載網址: http://www.tmssoftware.net/public/TMSFMXZBarReaderPkgDXE5.zip

   

 

相關網址:
ZBar bar code reader

Delphi XE5 Android Kitkat Style下載

Delphi XE5提供 Andoird 4.4 Kitkat的樣式下載,使用的方式也相當簡單

1)在畫面上放一個TStyleBook元件

2)將 AndroidLight.fsf 或 AndroidDark.fsf 載入到TStyleBook元件

3)在 form oncreate事件加上~

{$IFDEF ANDROID}

if TOSVersion.Check(4, 4) then StyleBook := StyleBook1;

{$ENDIF}

下載網址: embarcadero網站