AWS Activate主要是針對新創公司為服務對象的套件,一種是self-starter package、另一種是portfolio package給加速器、創投、創業家組織的新創企業申請。
http://www.informationsecurity.com.tw/article/article_detail.aspx?t2id=1&t3id=4&tv=24&aid=7688#ixzz4AtvFreYN
https://aws.amazon.com/tw/activate/
AppWorks Demo Day 12屆
數位經濟行業
RS232 to Internet
FastReport 支援 Delphi 10.1 Beriln
一直陪著Delphi 成長的老字號報表工具FastReport 也支援了Delphi 10.1 Berlinhttps://www.fast-report.com/en/news/373/
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
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按鈕取得內容即可
Delphi 10.1 Berlin新亮點 -FireUI Preview、ListView Designer、TAddressBook
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/