分類: Delphi

Delphi Berlin跨平台條件編譯(Conditional compilation)

Delphi Berlin可以在不同平台裝置上執行，那程式可以依不同平台裝置跑嗎?
答案是可行的~只要透過條件編譯就可以了 範例如下

   {$IFDEF MSWINDOWS}
   LABEL1.Text := Label1.Text + '(電腦版)';
   {$ENDIF}
   {$IFDEF ANDROID}
   LABEL1.Text := Label1.Text + '(安卓版)';

   {$ENDIF}
   {$IFDEF OSX}
   LABEL1.Text := Label1.Text + '(MAC版)';

   {$ENDIF}
   {$IFDEF IOS}
   LABEL1.Text := Label1.Text + '(IOS版)';

   {$ENDIF}

初探Delphi Berlin FireUI APP Preview

Delphi 10.1 Berlin的新功能中，多了一個看起來很棒的FireUI APP Preview功能。主要的功能就是讓開發者在設計畫面時，可以馬上看到畫面長的是什麼樣子。

設定的方式如下:

在10.1的Tools→Options→中有一個 Form Designer，其中有一個 FireUI Live Preview。
fireUIPriew01

fireUIPriew02

fireUIPriew03

client端搜尋FireUI可以找到對應的app，安裝後打開APP會自動搜尋區域網路內的Server。然後連上完成後，設計師在設計的同時就可以觀看在不同裝置上的樣子了

S__11321351 S__11321352 S__11321353

Screenshot_2016-04-24-22-35-12 Screenshot_2016-04-24-22-35-28 Screenshot_2016-04-24-23-04-49

未命名 - 66

 

Embarcadero免費REST除錯工具REST Debugger

REST Debugger這個工具是Embarcadero公司免費釋放給開發REST相關服務的工程師做為測試、除錯用的工具。例如我們想從Sonsterr這個網站取得吉他譜~
一、從Songsterr的API網址
https://www.songsterr.com/a/wa/api

從裡面知道http://www.songsterr.com/a/ra/ 後面帶songs.json即可

二、開啟REST Debugger

將http://www.songsterr.com/a/ra 填入url

RESTDebugger01

進入Parameters頁籤，在Resource填入songs.json，接著按Add按鈕，填入Name pattern value:伍佰，然後按apply確認

RESTDebugger02

最後按Send request按鈕取得內容即可

RESTDebugger03

下載網址: https://www.embarcadero.com/free-tools/rest-debugger

Delphi 10.1 Berlin新亮點 -FireUI Preview、ListView Designer、TAddressBook

感謝廖啟甫大哥通知晚上的 10.1 Berlin課程，雖然沒聽完！不過有聽到了幾個不錯的功能

一、TAddressbook元件，可以存取通訊錄

二、改進Style Designer

三、超酷的可以自訂ListView Items的設計功能

四、新的字型樣式

另外還有很酷的FireUI Preview功能。

看來Delphi一直很努力的追上這幾年的不足！

未命名 - 7 未命名 - 8 未命名 - 21 未命名 - 27 未命名 - 42 未命名 - 44 未命名 - 52 未命名 - 66

Delphi 10 Andriod/iOS開發小筆記(常常更新)

System.IOUtils.TPath.GetHomePath

PlatformSample pathPath ID
Windows XPC:\Documents and Settings\<username>\Application DataCSIDL_APPDATA
Windows Vista or laterC:\Users\<username>\AppData\RoamingFOLDERID_RoamingAppData
Mac OS X/Users/<username>NSUserDirectory
iOS Device/private/var/mobile/Containers/Data/Application/<application ID>
iOS Simulator/Users/<username>/Library/Developer/CoreSimulator/Devices/<Device ID>/data/Containers/Data/Application/<application ID>
Android/data/data/<application ID>/filesContext.getFilesDir

For Android, set the Remote Path to assets\internal

For iOS, set the Remote Path to StartUp\Documents

// XE3 : DBJSON
// Seattle: System.JSON
var
  LJsonArr   : TJSONArray;
  LJsonValue : TJSONValue;
  LItem     : TJSONValue;
begin
   memo1.Lines.Clear;
   LJsonArr    := TJSONObject.ParseJSONValue(TEncoding.utf8.GetBytes(memo2.Lines.Text),0) as TJSONArray;
   for LJsonValue in LJsonArr do
   begin
      for LItem in TJSONArray(LJsonValue) do
        memo1.lines.add(Format('%s : %s',[TJSONPair(LItem).JsonString.Value, TJSONPair(LItem).JsonValue.Value]));
     memo1.Lines.Add('');
   end;
end;

參考: http://blogs.embarcadero.com/davidi/2013/11/23/43005/

30天學會Delphi手機應用程式開發書籍撰寫

先前有外國人 sam lu的 100 days of Swift的學習專案，後來 allenwong也在Github發佈了 30DaysofSwift 。於是開始著手寫一本 30天學會Delphi手機應用程式開發的計畫~

為什麼會用30天?不是60天或100天呢?

主要是因為Embarcadero的產品試用是30天~也就是剛好可以試用到完 🙂

有興趣購買的可以到我的FB社團觀看最後的消息

1459602665782

Facebook Delphi Developer【Delphi開發者】 社團

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

借測Star TSP650II出單機撰寫行動POS

因為看到iChef列印電子發票的精美，所以找到台灣代理Star機器的大睿。不過因為借測的機器太過於熱門，其實是整整借了幾乎一整年才借到TSP650II這台出單機。今天收到後，就開始如火如荼的做測試，準備讓最後的Mobile POS系統中最後的電子發票、出單使用。

12832482_10153294891021541_2858365044269518802_n

10419968_10153294890961541_4466878536807084461_n
大睿股份有限公司 營業部 傅郁婷
TEL：+886-2-2763-2715
FAX：+886-2-2763-2192
台北市八德路四段245巷31號1樓

Delphi 10 在Android、iOS取得內部IP方式

在寫應用程式時，常常需要知道機器的IP是什麼！答案相當簡單～只要拉出IdIPWatch這個元件
然後透過 IdIPWatch裡的LocalIP這個屬性就可以了！
相較於以前要透過Winsock來撰寫!一整個方便多了~更重要的是可以同時在Windows/Mac跟iOS/Android上面跑~

Delphi10 Seattle後的Delphi 11叫Berlin?

最近瞄到官方的資料，內容為

QA description
*.info.plist doesn’t contain NSAllowsArbitraryLoads key to enable http, although “Enable HTTP protocol request” project option is checked. The issue is reproduced with Seattle Update 1, but works fine on Berlin 24.0.22128.5503.

乍看之下沒啥，不過最後那句but works fine on Berlin 24.0.22128.5503.。告訴了下一版本Berlin的存在！
三不五時瞄一下QC的文件，果然有驚喜！