各位走过路过的大富翁朋友，哪位用Delphi做过控制POS钱箱开关的朋友请帮一个忙。 (50分)

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-28

• #1

[?]打印机的型号是：EPSON TM-T88II Partial cut
以下是我查的打印机数据：
ESC　p　　产生钱箱驱动脉冲
格式：
　 ASCII：　ESC　 p　 m n1 n2
　十进制：　27 112 m n1 n2
　十六进制：　1B 70 m n1 n2
说明：
产生钱箱驱动脉冲。
m＝0,1,48,49 0≤n1≤n2≤255
驱动脉冲形式为：
解释:
打开钱箱脉冲时间为n1×2毫秒。
关闭钱箱脉冲时间为n2×2毫秒。
如何写指令控制钱箱的开与关?[?][?]，请各位大富翁朋友帮一个忙，我在此有礼了。

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-28

• #2

真的是没有人做过吗？能提供一下提示什么的吗？[]

 

D

dos1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-28

• #3

to : Sdelphi_fu
我有控控制POS钱箱开关的程序(没有源码),设置个热键就可以打开，不知道可不可以在你那用呢
你留个mail吧

 

A

auleaf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-28

• #4

我这儿是用发CSR这个给串口,不知你那儿是怎么搞的!
FHeadCashDraw := #27 + 'p' + #0 + '2' + #200 ;

 

K

kofoun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-28

• #5

那个程序用到汇编,看看汇编的资料,!

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #6

todo
s1234 兄:
我的EMail:martin_fu@163.net ,希多多指教。
to auleaf 兄:
你的“我这儿是用发CSR这个给串口,不知你那儿是怎么搞的!
FHeadCashDraw := #27 + 'p' + #0 + '2' + #200 ;”是什么意思，小弟我不明白，
能详细解释一下好吗？

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #7

to auleaf 兄：
如何用CSR发给串口？我不明白。能解释一下好吗？

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #8

to kofoun 兄:
多谢，我把汇编全“丢”了。如何发串口的指令？

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #9

to auleaf 兄:
你好，我按你的：FHeadCashDraw := #27 + 'p' + #0 + '2' + #200，
发了指令，但是还是不行。一点反应都没有。[?]

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #10

钱箱类型是："Sart CB - 82" [?]

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #11

顾客显示屏控制显示倒是正常，
就是钱箱的开关控制有问题，
一点反应都没有，各位大侠能帮一下吗？[?]

 

小

小李飞哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-29

• #12

procedure OpenMoneyBox;
var
RPrinter:TextFile;
s:string;
begin
// 建立打印连接并打印数据
Assignfile(RPrinter,'LPT1');
// 设置打印机
Rewrite(RPrinter);
// 准备写文件
s:=Chr(27)+ 'p'+ Chr(0) + Chr(60)+ Chr(240);
Writeln(RPrinter,Chr(27)+ 'p'+ Chr(0) + Chr(60)+ Chr(240));
// 向后倒纸！
CloseFile(RPrinter);
// 关闭打印机，结束打印
end;

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #13

to 小李飞哥 兄:
我试了一下,还是不行，第一次箱弹了出来，第二次，第三次、、
就不行了，而打印机只管退纸了，钱箱也弹不出来。
还有哪位大富翁朋友能帮一下忙吗？

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #14

to 小李飞哥 兄:
你好,多谢你的指点,经我反复测试:有时钱箱关不到位,就弹不出来;
还有就是能不能在钱箱弹开时,通过发指令,使钱箱自动关上???[?][?]
希各位大侠指点一下,分不够再加.

 

C

cyf_00002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #15

给串口发送条指令，可以打开钱箱，有时钱箱关不到位,就弹不出（是你硬件不支持）
还有就是能不能在钱箱弹开时,通过发指令,使钱箱自动关上（看你硬件支持不支持）
每个钱箱的指令都不一样，看来小李飞哥的适合你，
如果第一次可以，后面不可以，你可以在弹开钱箱前加条初始化指令，
程序员应该养成自己动手的习惯吧

 

Z

zhms

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #16

其实打开串口发指令而已，并无神奇之处。

 

C

crabking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #17

procedure Tftouchform.openmoney;
begin
printachar(#27);
printachar(#112);
printachar(#0);
printachar(#50);
printachar(#100);
end;

procedure Tftouchform.printachar(achar:char);
asm
mov ah,0h
mov al,achar
mov dx,0h
int 17h
end;
在win98可用啊!
在Win2000没有用的

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #18

TO crabking:
好的,那我试一下.

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #19

to crabking:
你好，你的汇编指令不错，美中不足之处就是WIN2K下不能操作。
还有就是能不能用指令控制关钱箱[?][?]，如果真的不行我就要关贴了，
多谢以上各位大侠的热心帮忙，扰其是小李飞哥和crabking两位大侠。

 

S

Sdelphi_fu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-05

• #20

多人接受答案了。