程式設計 – 第 30 頁 – Levin's Blog-林壽山的c# .net奇幻旅程

Marco Cantu用Delphi XE6展示藍芽搖控Mini Cooper?

Delphi K.Top

在Delphi K.Top上看到Qcom放上的照片，是Marco Cantu在展示手機搖控Mini Cooper。後來在網路上看到是透過藍芽操作的 BeeWi – BBZ201 – Mini Cooper S Bluetooth Car。

Jim McKeeth有把Delphi XE6的原始碼放在
https://github.com/jimmckeeth/BeeMiniCtrl/tree/XE5/AppMethod

不得不佩服Philippe Kahn這位先知看到穿戴式裝置未來

或許您不知道Philippe Kahn是誰？但如果我跟您說Borland是他創立的大概就知道了！不過這都不是重點，最近在看一些資料，才發現Philippe Kahn在1994年離開自己創立的Borland後，1994年又創立研究無線通訊技術的Starfish software(1998年被motorola高價收購);1997年又創了LightSurf Technologies發明照相手機(2005年又被 VeriSign收購)。

目前他是在2003年創的Fullpower Technologies裡，主要就是穿戴式裝置， MotionX技術就是由這家公司發展出來的。

只能說Philippe Kahn真的是連續創業家的典範。

5/7 Delphi XE6 發表研討會台中場

報名了台中場次！其實重點是要看看有興趣的人多不多～

研討會內容：

令人震撼的新技術 – App Tethering
最先進且業界唯一的完整 C++ for Android 開發工具
最具潛力的雲端技術 – BaaS
強化的執行效率和品質
以及更多的新功能

場次：

103 年 5 月 6 日 (二) 2:00~5:00pm （台北）
103 年 5 月 7 日 (三) 2:00~5:00pm （台中）
103 年 5 月 8 日 (四) 2:00~5:00pm （高雄）
103 年 5 月 9 日 (五) 2:00~5:00pm （新竹）

主講人：

Marco Cantu, Product Manager of RAD Studio, Embarcadero
李維, Embarcadero 大中華區技術總監

台中
103 年 5 月 7 日 (三)
2:00pm~5:00pm
日內瓦會議中心
台中市忠明南路303號17F
亞洲廳

報名網址：　http://forms.embarcadero.com/AP14Q2TWDeveloperDirectLIVE

Delphi POS – fastreport出單機不固定長度單據

POS餐飲系統開發時，許多朋友常會遇到報表長度問題。像是出單機會依照內容多寡而出現長短不一的狀況。那在報表長度如何設定呢？

fastreport裡的page options內有一個Endless page height　打勾就行了!

Delphi POS – 透過USB Printer打開錢櫃

[pascal]
procedure USBOpenCashDrawer(PrinterName: String);
var
// use winspool
Handle, hDeviceMode: THandle;
N: DWORD;
DocInfo1: TDocInfo1;
Device, Driver, Port: array [0 .. 255] of char;
ThePrinter: string;
code:ansistring;
begin
ThePrinter := PrinterName;
Code := chr(27) + chr(64)+ chr(27) + chr(112) + chr(0) + chr(50) + chr(200);

Printer.PrinterIndex := Printer.Printers.Indexof(ThePrinter);
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
PrinterName := Format(‘%s’, [Device]);
if not WinSpool.OpenPrinter(PChar(PrinterName), Handle, nil) then
begin
// ShowMessage(‘Error : ‘ + IntToStr(GetLastError));
Exit;
end;
with DocInfo1 do
begin
pDocName := ‘Test’;
pOutputFile := nil;
pDataType := ‘RAW’;
end;

WinSpool.StartDocPrinter(Handle, 1, @DocInfo1);
WinSpool.StartPagePrinter(Handle);
WinSpool.WritePrinter(Handle, PAnsiChar(Code), Length(Code), N);
WinSpool.EndPagePrinter(Handle);
WinSpool.EndDocPrinter(Handle);
WinSpool.ClosePrinter(Handle);

end;
[/pascal]

【胡思亂想】有點想來自寫一本Delphi XE5/6的電子書

下午在露天拍賣看到這本書叫價到2,000元(連結)，對這本Delphi 徹底研究的書印象是同學口中的”聖經本”。不過好像後續的版本就沒再出了，總覺得很可惜，Delphi快速開發的特性再加上可以開發Android/iOS，應該可以再現風華，唯讀缺少一本類似這樣的書，或許對後續推廣Delphi XE4/5/6都很有幫助。