首頁 > 資訊科技 > Delphi開發 > [Delphi]常見的ESC/POS功能用法
2010
06-14

[Delphi]常見的ESC/POS功能用法

最近在幫朋友寫服飾POS軟體,發現熱感印表機好像很少人用耶(google都很少有教學),最後是在大陸同胞那邊找到資源,相較之下好像我們台灣比較「暗度」一點。

[delphi]
Procedure Tform1.Btn1Click(Sender:Tobject);
var
f:textfile;
begin

Assignfile(f , 'LPT1');
rewrite(f);
edt1.text := 'C100656026M';
write(f, chr(27) + 'a' + chr(49) ) ; //最後一碼 48:文字靠左對齊 49:置中對齊
write(f, chr(27) + '!' + chr(6) ) ; // 英文字放大倍率
write(f, chr(28) + '!' + chr(1) ) ; // 中文字放大倍率
write(f, chr(29) + 'w' + chr(1) ) ; // 條碼寬度,最小單位 1,2,3
write(f, chr(29) + 'h' + chr(36) ) ; // 條碼高度
write(f, chr(29) + 'H' + chr(3) ) ; // 條碼值要印在哪裡?( 0:不印,1:條碼上面,2:條碼下面,3:條碼上下都印)
write(f, chr(29) + 'f' + chr(1) ); //HRI字體
writeln(f, chr(29) + 'k' + chr(73) + chr(14) + '{B' + edt1.text + chr(0); // 列印條碼
write(f, Chr(28) + Chr(40) + Chr(76) + Chr(2) + Chr(0) + Chr(66) + Chr(49) ); // FS (L 送紙到定位點
write(f, Chr(29) + Chr(86) + Chr(0) ); //切紙
closefile(f);
end;
[/delphi]

 

最後修改日:
作者:蔡 小翰

常見問題:

  1. 文章可以轉貼嗎?可以,不過請要註明出處並標示本站連結。
  2. 載點可以轉貼嗎?可以,歡迎隨意盜連,無須告知。
  3. 反盜版聲明:本站支持正版軟體,請勿討論破解版、快樂版、註冊碼、註冊機、序號...等違法主題。
  4. 檔案無法解壓縮或解壓縮時發生錯誤?請使用7-Zip解壓縮
  5. 更多細節請參閱使用條款及免責聲明


發表迴響