Delphi 支援 Android / iOS的行動裝置開發已經一段時間了！許多人好奇開發出來的APP到底可不可以在 Google Play 或是 Apple Store上架?
Embarcadero整理了一個「RAD Studio Application Showcase」網頁，讓大家知道有那些已上架的APP。
當然如果您要回報你使用Delphi、C++ Builder或RAD Studio開發且上架的程式，也可以透過這個表單送出。
facebook建立了一個Delphi Developer Forum
由於比較常在Facebook上出沒，所以索性在Facebook建了一個「Delphi Developer【Delphi開發者】」，主要討論的是所有Delphi開發的大小事以及新知。
也期待有更多人踏入Delphi for Mobile的開發 🙂
JOHAPPY! 玩遊戲！拿獎品！揪HAPPY!即將開站
由前GOMAJI的行銷處品牌經理及創立Facebook上「我是XX人」系列粉絲團版主Ben所創立的JOHAPPY!再過9天要開站了！
擁有多年行銷經驗的Ben，這次創辦了JOHAPPY的服務，據說將以遊戲化的服務做行銷～到底會有什麼樣創新的手法呢？9天後就能揭曉囉！
JOHAPPY! 玩遊戲！拿獎品！揪HAPPY!
104 台北市中山區民權東路三段35號14樓
02-2508-0877
ben@johappy.com
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 – 連結 Kinect
Delphi XE5影片-利用REST Debugger快速開發
Delphi POS餐飲系統開發支援多國語言作法
開發餐飲POS或是其他系統，如果想打入國際市場的話，都會考量多國語系的問題，大部份就是使用mapping的方式。
在Delphi裡面的做法也很簡單~
先取得form上面的元件數(ComponentCount)
接下來用一個迴圈去比對即可。
資料表也可以開成一個
表單名稱、元件名稱、語言1、語言2、語言3的欄位…
不過因為裡面使用了infopower的wwdbgrid元件，寫在formcreate或formshow都抓不到值，後來是放到FormActivate才順利抓到
以下提供簡單的範例
[pascal]
var
sFormName:String;
i:integer;
begin
sFormName:= Self.Name; // 表單名稱
for i:=0 to self.ComponentCount -1 do begin
if Components[i] is TLabel then begin
if (TLabel(components[i]).Caption <>”) then begin
TLabel(components[i]).Caption := 取得語系….;
end;
end;
if Components[i] is TButton then begin
if (TButton (components[i]).Caption <>”) then begin
TButton (components[i]).Caption := 取得語系….;
end;
end;
end;
end;
[/pascal]
wwDBGrid的話關鍵有:
s:= TwwDBGrid(Components[i]).DataSource.DataSet.Fields[j].FieldName;
TwwDBGrid(Components[i]).ColumnByName(s).DisplayLabel
TwwDBGrid(Components[i]).ColumnByName(s).GroupName
Delphi透過MySQL存入檔案備份
MySQL存Blog的大小
TINYBLOB – 255 bytes
BLOB – 65535 bytes
MEDIUMBLOB – 16,777,215 bytes (2^24 – 1)
LONGBLOB – 4G bytes (2^32 – 1)
透過資料庫存取的方式重點：
TBlobField – LoadFromStream、SaveToStream
Tmemorystream – LoadFromFile、SaveToFile(.Position :=0)
存入資料庫
[pascal]
var
astream : Tmemorystream;
begin
AStream := TMemoryStream.Create;
try
astream.LoadFromFile(filename);
AStream.Position := 0;
if adotable1.Active then
begin
adotable1.Edit;
TBlobField(adotable1.FieldByName(‘t2’)).LoadFromStream(AStream);
adotable1.Post;
end;
finally
AStream.free;
end;
end;
[/pascal]
存回檔案
[pascal]
var
Ms:Tmemorystream;
begin
Ms := Tmemorystream.Create;
try
if adotable1.Active then
begin
TBlobField(adotable1.FieldByName(‘t2’)).SaveToStream(Ms);
Ms.Position := 0;
MS.SaveToFile(sname);
end;
finally
ms.Free;
end;
end;
[/pascal]
MySQL預設的BLOB為1M
別忘了 My.ini調整
max_allowed_packet = XXM
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網站
Delphi使用記憶體模擬表格的kbmmemtable
雖然在Delphi有clientdataset可以使用，但美中不足的是必需在程式部署時附上midas.dll，或是在程式中uses MidasLib。最近看到國外在討論的kbmmemtable，由於在寫餐飲的POS功能所以也來測試一下。
因為kbmmemtable不需要BDE支援，所以不用特別去設定DatabaseName, TableName和TableType這些屬性。
建立欄位很簡單，
with kbmMemTable1.FieldDefs do
begin
Clear;
Add(‘t01’, ftInteger, 0, false);
end;
建立index也只需要
Add(‘Index01’, ‘value’, []);
接著就可以像一般的ttable一樣，append新增edit修改delete刪除等動作…..
然後呢也可以直接讓datasource指定它，讓kbmmemtable的值顯示在dbgird上面。
它支援loadfromdataset的功能，如果需要cache資料在程式裡不要連結資料庫時，就可以利用這個功能。另外也可以支援savetofile的功能，共有二種
1)二進位資料
SaveToBinaryFile
LoadFromBinaryFile
2)csv格式
SaveToFile
LoadFromFile