Delphi XE5封裝了一些Android相關的api
Androidapi.Jni
Androidapi.JNI.Os
Androidapi.JNI.JavaTypes
Androidapi.JNIBridge
Androidapi.JNI.App
如果在程式中需要呼叫其他的.apk 或 .jar的話呢~則需要使用到
Androidapi.JNI.Dalvik
Androidapi.JNI.GraphicsContentViewText
FMX.Helpers.Android
標籤: Delphi
Delphi XE5深入技術研討會
由李維大師所主持的Delphi XE5深入技術研討會，研討會過後二天，台灣QCom(捷康)就寄來了相關的文件了！
• 瞭解 Delphi XE5 如何在 Android / iOS 環境中運行
• 通往 Android / iOS 環境的重要觀念，類別 / 介面和方法
• 動態呼叫？靜態呼叫？
• 會使用下列幾個實例來說明：
– Delphi XE5 未封裝的 API
– BlueTooth
– Bar Code
– 其他第 3 方函式庫
延伸閱讀：
李維大師部落格 IT : 是工作還是嗜好?
捷康科技／Embarcadero 應用程式開發工具 http://embarcadero.qcomgroup.com.tw/
Delphi XE5深入技術研討會 from 壽山 林
Delphi輸入法切換
由於微軟內附的螢幕小鍵盤還真的有點小，加上POS餐飲系統開發需要螢幕小鍵盤，所以乾脆自己寫一個”大”鍵盤。
裡面需要做輸入法的切換，所以分享給大家。
需要Uses到Winapi.imm;
[pascal]
Uses Winapi.Imm;
[/pascal]
1取得所有的輸入法名稱
[pascal]
var
i: integer;
begin
for i := 0 to screen.imes.count – 1 do
begin
ComBoBox1.Items.Add(screen.Imes.strings[i]);
end;
end;
[/pascal]
2切換到輸入法
[pascal]
var
I: integer;
myhkl: hkl;
begin
if ComboBox1.Text <> ” then
begin
if Screen.Imes.Count <> 0 then
begin
I := screen.Imes.indexof(ComboBox1.Text);
if I >= 0 then
myhkl := hkl(screen.Imes.objects[i]);
activatekeyboardlayout(myhkl, KLF_ACTIVATE);
end;
end;
end;
[/pascal]
3關閉輸入法
[pascal]
begin
ImmSimulateHotKey(Handle, IME_THOTKEY_IME_NONIME_TOGGLE);
ComBobox1.Text := ”;
end;
[/pascal]
4取得目前輸入法
[pascal]
var
IMEHandle: THandle;
Idx: Integer;
IMEName: String;
begin
IMEName := ”;
ImeHandle := GetKeyBoardLayOut(0);
for Idx := 0 to Pred(Screen.Imes.Count) do
if HKL(Screen.Imes.Objects[Idx]) = ImeHandle then
IMEName :=Screen.Imes[Idx];
ShowMessage(IMEName);
end;
[/pascal]
GitHub連結： https://github.com/superlevin/DelphiIme
Delphi Xe5 with InfoPower on GooglePlay
InfoPower是一套資料庫開發的元件，現在Woll2Woll Software也將它搬上FireMonkey並且支援Android了！
它們也在Googleplay上放了一個InfoPower FireMonkey Demo 的app讓大家下載試用。
不過壽山看來怎麼好像是在Android上跑Windows 呢?大家可以試看看好了！
相關連結：
Woll2Woll Software website : http://www.woll2woll.com/infopower.html
Delphi 使用idhttp下載顯示進度列及檔案大小
在更新程式時，需要知道目前下載到多少百分比及大小怎麼做？
在Delphi使用idhttp及IdAntiFreeze（防止程式看起來當掉）二個元件就可以做得到。順便列下關鍵程式碼
[pascal]
procedure TForm1.BtnDownloadClick(Sender: TObject);
var
tStream: TMemoryStream;
begin
tStream := TMemoryStream.Create;
try
IdHTTP1.Get(EdtSource.Text, tStream);
tStream.SaveToFile(EdtTarget.Text);
ShowMessage(‘Download Success!’);
except
ShowMessage(‘Download Fail！’);
end;
tStream.Free;
end;
procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
Label1.Caption := BytesToStr(aWorkCount);
ProgressBar1.Position := aWorkCount;
Update;
end;
procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Int64);
begin
ProgressBar1.Max := aWorkCountMax; // Set File total size
Label2.Caption := BytesToStr(aWorkCountMax);
Update;
end;
[/pascal]
Github原始碼下載 : https://github.com/superlevin/downloadwithprocessbar
使用Delphi XE5開發的監視器行動APP
國外的工程師利用 Delphi XE5 操作 Digifort IP 監控系統並取得監視畫面，還可以控制門的開關。
XE5開發的好處還是Android與iOS系統通吃。
Delphi XE5也可以開發 Google Glass應用
來源: Jim McKeeth
中午看到 Jim McKeeth秀出了他把Delphi XE5開發的程式裝在Google Glass上面了！
利用 SysCheck 找到Google Glass處理器是 ARMv7 PRocessor rev 3 (v71) ，系統版本則是 4.0.4 ，符合 Delphi XE5的需求。
在設計上可以使用 Google Mirror API 或 GDK。
Google Mirror API是基於REST and JSON 的API，可以輕鬆使用Delphi XE5最新的TRESTClient元件做到。
David I 在ZendCon2013的分享影片
Embarcadero裡的David I是我蠻崇拜的前輩，當了44年開發者也不厭倦。
在ZendCon裡示範用Delphi XE5使用 APIs, REST/JSON控制LED、quadcopter以及其他硬體。
- Apple Developer – http://developer.apple.com/
- Android Developers – http://developer.android.com/
- Z-Wave Alliance – http://www.z-wavealliance.org/
- Zigbee Alliance – http://www.zigbee.org/
- VeraLite – http://www.micasaverde.com/
- Pebble Watch – http://developer.getpebble.com/
- Leap Motion – http://www.leapmotion.com/developers
- Philips Hue – http://www.meethue.com/
- Nest – http://nest.com/
- FullPower Technologies – http://www.fullpower.com/
- Sphero – http://www.gosphero.com/
- Parrot AR Drone – http://ardrone2.parrot.com/
- Ford Developer Program – https://developer.ford.com/
- GM Developer Program – https://developer.gm.com/
Delphi XE5 Update1釋出
早上打開XE5發現有新的update了
http://docwiki.embarcadero.com/RADStudio/XE5/en/Release_Notes_for_XE5_Update_1
修正的bug如網頁連結:http://edn.embarcadero.com/article/43468
下載連結
- Update 1 installer (patches an existing install of RAD Studio, Delphi or C++Builder XE5)
- ISO with Update 1 (full set of install files for Delphi and C++Builder XE5, including Update 1)
Delphi XE3 簡訊發送問題
把手上的Delphi7自動發送簡訊系統轉到XE3，發現一直出現亂碼。
後來找到原因是IdHTTP.URL.ParamsEncode的問題，在Delphi7跟Delphi XE3處理出來的結果是不同的，於是在網路上找到一段改編自Delphi 7的版本。果然就行了！
[pascal]
function EnCode(ACode: string): string;
var
I: Integer;
Hex: string;
Code: AnsiString;
begin
Code := AnsiString(ACode);
for I := 1 to Length(Code) do
case Code[i] of
‘ ‘: Result := Result + ‘+’;
‘A’..’Z’, ‘a’..’z’, ‘*’, ‘@’, ‘.’, ‘_’, ‘-‘,
‘0’..’9′, ‘$’, ‘!’, ””, ‘(‘, ‘)’:
Result := Result + Code[i];
else
begin
Hex := IntToHex(ord(Code[i]), 2);
if Length(Hex) = 2 then
Result := Result + ‘%’ + Hex
else
Result := Result + ‘%0’ + hex;
end;
end;
end;
[/pascal]