Delphi在XE5開始就提供了REST Client的元件，讓開發REST Client應用的開發者能在最短的時間開發出相關的應用，今天就利用臺北市政府資料開放平台中的臺北市旅館資料庫資料來做一個簡單的範例「台北住宿通」。讓大家瞭解Delphi 如何存取json資料，並顯示。
詳細內文請見
CodeData >> Delphi APP 開發入門（十）REST Client 開發
作者: 林壽山
目前任職於軟體公司研究開發部門，擔任專業處長，專注於.NET C# 開發，並具備豐富的POS 收銀系統與金流整合開發經驗。我精通各類支付系統的設計與開發，包含第三方支付（如綠界、藍新、歐付寶、速買配、馬來西亞 ePay/HappyPay、台新 One 碼）、行動支付（悠遊卡、一卡通、支付寶、微信支付、街口支付）、以及信用卡支付（聯合信用卡）。
熟悉多種開發技術，擅長PHP 網頁開發（CodeIgniter、Laravel 框架）、Delphi 程式設計、資料庫設計、C# WinForm/WebForm 應用開發、ASP.NET MVC、API 串接設計，並具備LINE 串接開發的豐富經驗。除了技術開發之外，我也熱衷於技術分享，曾擔任台中學校產業學院講師 5 年，培育新一代的軟體開發人才，致力於推動軟體技術的應用與創新。我對技術充滿熱忱，始終保持學習與探索的心態，期望透過軟體開發為企業與社會創造更大的價值。
台中 RAD Studio XE7 預覽研討會
Delphi程式建立有密碼的access資料庫
如何直接利用Delphi建立有password的access mdb database？
[pascal]
Use System.Win.ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var cnewmdb:variant;
begin
// 透過ADOX建立
cnewmdb := CreateOleObject(‘ADOX.Catalog’);
cnewmdb.Create(‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.MDB;Jet OLEDB:Database Password=”12345678”;’ );
// 連線
ADOConnection1.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TT2.MDB;Jet OLEDB:Database Password=”12345678”;’;
ADOConnection1.LoginPrompt:=false;
ADOConnection1.connected:=true;
end;
[/pascal]
早餐店、餐廳、飲料店餐飲POS系統
許多朋友選擇自己創業做老闆時，最常見的創業就是餐飲業為主的方式。無論是自行創業或是加盟，都需要軟硬體設備及架構，當然也有許多人會評估使用餐飲POS系統。
餐飲POS系統依結帳流程不同主要分為先結帳及後結帳二種版本。先結帳版本常見於飲料店或一般早餐店；而後結帳版本主要於餐廳為主。而使用POS系統主要的原因除了提高點餐的正確性、便利性，也可以方便以電腦做管理以及瞭解營業狀況等分析。
目前POS系統價格平均一套在50,000元上下，一套系統大約包含１、POS主機一部 ２、出單機 ３、標籤機 ４、發票機 ５、錢櫃 6、餐飲系統軟體。而除了買斷外，亦有每月3000元月租方案的POS系統商。當然除了期初的硬體成本外，出單機、標籤機、發票機也會有耗材(紙張、碳粉)的成本。以及每年與系統廠商的維護合約。
Windows 7家用進階版開啟IIS功能
Windows7家用進階版如何開啟iis功能呢?
進入控制台，程式和功能中的開啟或關閉Windows功能，勾選Internet Information Serverices(IIS)功能即可。
打手機前請先填寫資料XD
因為前陣子在測試關閉iCloud同步備份，還有誤刪了手機通訊錄，所以要請朋友們如何要跟壽山手機聯繫的話。請先填下面的頁面，壽山輸入手機後才有可能接通，實在是好多無關緊要的電話流入。對想專注開發的壽山是一大阻礙!謝謝
Delphi 動態取得fastreport下物件
在Delphi下如何取得fastreport的元件及做值的修改?
[pascal]
var i:integer;
begin
frxreport1.LoadFromFile(‘test.fr3’);
frxreport1.Report.PrintOptions.Printer := ‘Adobe PDF’;
for i:=0 to frxreport1.ComponentCount -1 do begin //取得報表內所有物件
if frxreport1.Components[i].ClassName = ‘TfrxMemoView’ then begin // 找到TfrxMemoView
//ExtractFileName(frxreport1.FileName); 取得目前報表名稱
//frxreport1.Components[i].Name; 取得元件名稱
Tfrxmemoview(frxreport1.Components[i]).Text := ‘hello world’;
end;
end;
frxreport1.Report.PrintOptions.ShowDialog := false; // 不顯示對話框
frxreport1.Report.ShowProgress := False; // 不顯示列印進度
frxReport1.PrintOptions.Copies:=3; // 列印份數
frxreport1.Report.PrepareReport(true);
frxreport1.Print;
// 線上編輯報表
// frxreport1.DesignReport;
end;
[/pascal]
RAD Studio XE7 預覽研討會
報名網址點我進入
研討會內容：
XE7 持續強化 D2D，M2M 的功能，XE7 加入了支援藍牙和低耗電藍牙 (BLE)，讓 App Tethering 可同時支持 WIFI 和藍芽。 XE7 的 FireMonkey 也再次進化並支援更多的強大功能，例如支援多螢幕顯示，支援 Immersive full-screen 模式，支援更多的 iOS 原生控制項等。XE7 的 IDE 也獲得了強化，例如支援 GIT 版本控制，新的專案管理員功能，加強的 Data Explorer 和許多其他新的功能。
“持續進化的完美” 是 RAD Studio XE7 的寫照，“持續強化的生產力” 是 RAD Studio XE7 的承諾。我們敬邀您一起來見證 XE7 再次令人驚嘆的進步，讓您在開發的領域中永遠遙遙領先。
同時我們將展示許多應用實例，包括整合各式硬體裝置廠商提供 .so 及 .jar 功能 (如：藍芽印表機、iBeacon 室內定位、條碼掃描器…等) 及網路攝影機 (IP Cam) 功能整合實機展示。萬勿錯過，請速報名。
主講人：
李 維 （Embarcadero 大中華區技術總監）
時間：
103 年 8 月 25 日 (一) 2:00~5:00pm （台北）
103 年 8 月 26 日 (二) 2:00~5:00pm （台中）
103 年 8 月 27 日 (三) 2:00~5:00pm （高雄）
103 年 8 月 28 日 (四) 2:00~5:00pm （新竹）
相關連結:
 弘光科技大學開發成功案例分享【行動點滴監控系統】 |
| 教育部赴公民營研習會【行動 app 開發技術研習】 |
| Delphi XE6 FireMonkey for Mobile 六小時免費訓練 |
| 網路研討會第二場 -雲端儲存 (範例程式下載) |
| Delphi APP 開發入門連載 |
| Facebook 社團 -【Delphi & C++ 移動開發】 |
Delphi 多螢幕程式
在設計餐飲程式時，會遇到外接第二螢幕做為客戶顯示或展示廣告。在Delphi如何撰寫?
判斷系統螢幕數量
[pascal]
screen.MonitorCount
[/pascal]
將畫面移至第N螢幕(第一螢幕為0、第二螢幕為1…..)
[pascal]
self.Top := screen.Monitors[0].Top;
self.left := screen.Monitors[0].left;
[/pascal]
Delphi超強大日期函式庫
uses System.DateUtils;
[pascal]
// 取得某一天所在的星期一及星期天
procedure TForm1.Button1Click(Sender: TObject);
var dw1,dw7,dnow:tdatetime;
begin
dnow:=StrtoDatetime(edtnow.Text);
dw1:=(StartOfTheWeek(dnow));
edtw1.Text := Datetimetostr(dw1);
dw7:=(Endoftheweek(dnow));
edtw7.Text := Datetimetostr(dw7);
end;
[/pascal]