Delphi XE5讀出Android IMEI ID

首先要uses
[pascal]
uses
FMX.Platform.Android,
Androidapi.JNI.Telephony,
Androidapi.JNI.Provider ,
Androidapi.JNIBridge,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.JavaTypes,
FMX.Helpers.Android;
[/pascal]
接著放上Button,在Click事件打上
[pascal]
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);

[/pascal]

來電顯示盒開發客戶來電顯示、餐飲POS系統

1969356_10151941406576541_1629331919_n

最近客戶寄來了一台好像比Apple TV還小的黑盒,原來它的名字叫來電顯示盒。

客戶想要開發系統的原因是,因為有些公司希望能根據來電顯示,就能找出用戶資料的CRM系統。像是送水、送瓦斯、送飲料等服務業,甚至是有VIP客戶的企業,根據來電就馬上知道是誰。

來電顯示盒的構造還蠻簡單的,我收到的是1線的來電顯示盒,還有2線及4線的來電顯示盒。都是一條USB線以及一個盒子。而接線的方式也是相當容易~程式開發上也有完整的函式庫可供調用!
如果有需要做來電顯示客服的朋友也可以來詢問我呦!
未命名 - 2

未命名 - 1
 
未命名 - 3

1510668_10151941406126541_557378943_n  1607128_10151941406841541_1647349747_n  10170885_10151941406416541_1396725756_n