Levin's Blog-林壽山的c# .net奇幻旅程

初探Delphi Berlin FireUI APP Preview

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

設定的方式如下:

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

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

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

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

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

下載網址: 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一直很努力的追上這幾年的不足！

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/