
前陣子接到CodeData的共筆邀約,一直想推廣Delphi的筆者馬上答應了!
接下來大概就是每週要生出一篇文章出來這樣~
目前是先以”Delphi APP 開發入門”,用超多圖片的手把手教學帶大家入門!
大型網站架構..net 架構師.rabbitMQ.redis.行動開發.APP開發教學.PHP Laravel開發..net core C# 開發.架構師之路.Delphi開發.資料庫程式.進銷存.餐飲POS系統

前陣子接到CodeData的共筆邀約,一直想推廣Delphi的筆者馬上答應了!
接下來大概就是每週要生出一篇文章出來這樣~
目前是先以”Delphi APP 開發入門”,用超多圖片的手把手教學帶大家入門!

或許您不知道Philippe Kahn是誰?但如果我跟您說Borland是他創立的大概就知道了!不過這都不是重點,最近在看一些資料,才發現Philippe Kahn在1994年離開自己創立的Borland後,1994年又創立研究無線通訊技術的Starfish software(1998年被motorola高價收購);1997年又創了LightSurf Technologies發明照相手機(2005年又被 VeriSign收購)。
只能說Philippe Kahn真的是連續創業家的典範。
報名了台中場次!其實重點是要看看有興趣的人多不多~
研討會內容:
場次:
主講人:
台中
103 年 5 月 7 日 (三)
2:00pm~5:00pm
日內瓦會議中心
台中市忠明南路303號17F
亞洲廳
報名網址: http://forms.embarcadero.com/AP14Q2TWDeveloperDirectLIVE
[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]
身邊好多朋友都在詢問,POS硬體買那一家比較好?不過說實在的!壽山是吃軟不吃硬的傢伙,所以都著重在軟體開發上面。硬體多是配合居多~不過既然大家都一直在詢問的話,就推一下朋友的老字號餐飲收銀系統公司。
銥特爾科技擁有超過十五年的餐飲、飲料、快餐POS收銀系統的經驗,硬體除了有低廉買斷的價格外,也可以利用月租的方式取得收銀機。而除了其他基本的硬體如出單機、客戶顯示器、標籤機、發票機之外,銥特爾科技也獨家取得台灣區的取餐呼叫器總代理,以及指紋門禁考勤機、來電顯示器等硬體。
POS軟體部份,有功能強大的富必達阿波羅餐飲POS系統,也有簡單易上手的安達POS系統可做選擇,如果店家需要使用行動裝置做點餐,也有無線點餐系統可供選購。
銥特爾科技粉絲頁網址 http://on.fb.me/1gSk8dl
銥特爾點餐POS系統銷售諮詢
專線電話:02-29974000 / 蕭先生 0922067818 / 潘先生 0922987818
下午在露天拍賣看到這本書叫價到2,000元(連結),對這本Delphi 徹底研究的書印象是同學口中的”聖經本”。不過好像後續的版本就沒再出了,總覺得很可惜,Delphi快速開發的特性再加上可以開發Android/iOS,應該可以再現風華,唯讀缺少一本類似這樣的書,或許對後續推廣Delphi XE4/5/6都很有幫助。
雖然捷康有出了幾本移動開發入門手冊/FireMonkey 資料庫程式 設計篇/DataSnap 開發實戰篇,可是又覺得不夠全面。
突然有股念頭想要自幹一本電子書出來,也當作自己的成果驗收好了!

BOX2D 對開發手機2D遊戲的朋友想必不陌生,隨著Delphi XE6發表後,也有有網友也將BOX2D 轉成Firemonkey元件了!
這個版本是基於Box2D v2.3.0 所改寫的,下載連結也有附上範例。


Embarcadero的Youtube頻道整理了RAD Studio XE6相關的影片
網址 https://www.youtube.com/playlist?list=PLwUPJvR9mZHixWJugJ6QlI0hCXDtT329j&feature=c4-feed-u
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]