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

MySQL求出二經緯度之間的距離(公尺)

假設自己的經緯度為 LAT,LNG
資料庫欄位_LAT,_LNG,_NAME,
SELECT CEIL((((ACOS(SIN((LAT*PI()/180)) * SIN((_LAT*PI()/180))+COS((LAT*PI()/180))
* COS((_LAT*PI()/180)) * COS(((LNG- _LNG)*PI()/180))))*180/PI())*60*1.1515*1.609344)*1000)
AS DISTANCE,_NAME
FROM TABLE_NAME
ORDER BY DISTANCE ASC
算出距離幾公尺

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

System.IOUtils.TPath.GetHomePath

Platform Sample path Path ID
Windows XP C:\Documents and Settings\<username>\Application Data CSIDL_APPDATA
Windows Vista or later C:\Users\<username>\AppData\Roaming FOLDERID_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>/files Context.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上面跑~

Opera開發團隊公佈JavaScript可控制Bluetooth的API文件

最近Opera的開發團隊發表了Web Bluetooth API的文件，也就是說以後可以使用JavaScript控制Bluetooth的硬體了。
目前在Google Play新版本的Opera Beta已經有支援Web Bluetooth的功能。
當然這部份只是草擬而已，但能付諸實際應用也指日可待。

原始連結
https://dev.opera.com/articles/web-bluetooth-intro/

連續30天30個Swift專案，學習Swift好資源

1-mvHITQUjZHgV1ZXsRaqKKQ
Sam Lu先前寫了一篇100 Days of Swift的文章，不過比較可惜的是並沒有開放原始碼出來讓大家一起學習。不過有位Allen Wong網友，效法Sam Lu做了30 Days Of Swift的計畫，更難能可貴的是他老兄開放了所有原始碼給大家參考。對有興趣自學Swift語言的朋友是很好的學習教材。
github cover

https://github.com/allenwong/30DaysofSwift
http://samvlu.com/