这里还有 delphi programmer 吗？Coding 遇到瓶颈！

kionglee

最近在帮朋友写一套 POS system.
我有遇到一个问题就是
如何开 cash drawer, when button do event
请问大师有这样的经验吗？
可以分享吗？

我的 coding:

当 user press button, 然后就 call function :

procedure OpenDrawer;
var
F: TextFile;
PDStr: string;
begin
PDStr := Chr(27) + 'p' + Chr(0) + Chr(100) + Chr(250);
AssignFile(F, 'LPT1');
try
   Rewrite(F);
   Write(F, PDStr);
finally
   CloseFile(F);
end;
end;

就是无法send task 给 printer print ..

以下是 cash drawer 的 setting
communication port : LTP1
boud rate : 300
trigger drawer command : chr(27)+'p'+chr(0)+chr(100)+chr(250)

使用的事 codesoft DP-7645III 的 receipt printer.