分類: Delphi

不得不佩服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　打勾就行了!

未命名 - 1

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都很有幫助。

21305118420210_703

雖然捷康有出了幾本移動開發入門手冊/FireMonkey 資料庫程式 設計篇/DataSnap 開發實戰篇，可是又覺得不夠全面。

突然有股念頭想要自幹一本電子書出來，也當作自己的成果驗收好了！

http://embarcadero.qcomgroup.com.tw/images/publish/delphi_xe5_mobile_cover.jpg

 

Box2D for Delphi XE6下載

BOX2D 對開發手機2D遊戲的朋友想必不陌生，隨著Delphi XE6發表後，也有有網友也將BOX2D 轉成Firemonkey元件了！

這個版本是基於Box2D v2.3.0 所改寫的，下載連結也有附上範例。

Box2D 2.30 for Delphi XE5/Xe6

http://i0.wp.com/www.fmxexpress.com/wp-content/uploads/2014/04/box2d.jpg

 

Delphi使用SPComm沒辦法觸發ReceiveData

SPComm 在連線Com機器時，時候沒辦法觸發 ReceiveData，後來才知道StartComm後要留點時間給它喘氣(連線)。所以加上sleep~

[pascal]
var
s:Ansistring;
begin
RepCom.StartComm;
s := Chr(16) + Chr(4) + Chr(1) ;
sleep(50);
RepCom.WriteCommData(PAnsiChar(s),Length(s));
end;
[/pascal]

Delphi XE6(RAD Studio XE6)讓部落格流量增加?

blogstatus

自從XE4之後，發現自己的部落格有個很妙的現象！

只要遇到 Embarcadero有發表新的RAD STUDIO版本，

部落格的流量就會增加！

昨天 RAD STUDIO XE6發表後也是如此，呈現一柱擎天的現象～

不過老實說台灣關注 Delphi 或 RAD STUDIO的人數真的少很多

除了小弟之外，大概就是

縹緲’s blog

賈氏柏的屋簷下

自己也有在FB成立社群

Delphi Developer【Delphi開發者】

歡迎大家多多聯繫囉！

Delphi執行時拖拉、改變元件大小

應要求在程式執行時還要可以拉拖、改變元件大家～
分享一個不錯的函數
[pascal]
procedure DragResizeControl(WinControl: TControl; Shift: TShiftState;X, Y, Precision: integer);
var
SC_MANIPULATE: Word;
begin
if (X<=Precision) and (Y>Precision) and (Y<WinControl.Height-Precision) then begin
SC_MANIPULATE := $F001;
WinControl.Cursor := crSizeWE;
end else if (X>=WinControl.Width-Precision)
and (Y>Precision) and (Y<WinControl.Height-Precision) then begin
SC_MANIPULATE := $F002;
WinControl.Cursor := crSizeWE;
end else if (X>Precision)
and (X<WinControl.Width-Precision) and (Y<=Precision) then begin
SC_MANIPULATE := $F003;
WinControl.Cursor := crSizeNS;
end else if (X>Precision)
and (X<WinControl.Width-Precision) and (Y>=WinControl.Height-Precision) then begin
SC_MANIPULATE := $F006;
WinControl.Cursor := crSizeNS;
end else if (X<=Precision) and (Y<=Precision) then begin
SC_MANIPULATE := $F004;
WinControl.Cursor := crSizeNWSE;
end else if (X>=WinControl.Width-Precision) and (Y<=Precision) then begin
SC_MANIPULATE := $F005;
WinControl.Cursor := crSizeNESW ;
end else if (X<=Precision) and (Y>=WinControl.Height-Precision) then begin
SC_MANIPULATE := $F007;
WinControl.Cursor := crSizeNESW;
end else if (X>=WinControl.Width-Precision) and (Y>=WinControl.Height-Precision) then begin
SC_MANIPULATE := $F008;
WinControl.Cursor := crSizeNWSE;
end else if (X>5) and (Y>5) and (X<WinControl.Width-5)
and (Y<WinControl.Height-5) then begin
SC_MANIPULATE := $F009;
WinControl.Cursor := crSizeAll;
end else begin
SC_MANIPULATE := $F000;
WinControl.Cursor := crDefault;
end;

if Shift=[ssLeft] then begin
ReleaseCapture;
WinControl.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);
end;
end;
[/pascal]
如用方法很簡單，在元件的MouseMove裡加上
[pascal]
DragResizeControl((Sender as TWinControl),Shift,X,Y,10);
[/pascal]