foxpro中chr(27)+'p'+chr(250)+chr(10)可以控制另外一个设备,DELPHI怎么实现,请赐教!!!(100分)

  • 主题发起人 主题发起人 fzbxh
  • 开始时间 开始时间
F

fzbxh

Unregistered / Unconfirmed
GUEST, unregistred user!
1.我现在正在搞一个POS前台程序,以前是用FOXPRO编写的.
SET PRINT ON
SET DEVI TO PRINT
@PROW(),0 SAY CHR(27)+'P'+CHR(250)+CHR(10)
SET PRINT OFF
SET DEVI TO SCREEN
写上面五名话就可以打开接在POS打印机上的钱箱.
我现在正在用DELPHI复工,但不知怎样才能打印钱箱,请大侠help我!!!
Ragdoll@yeah.net

2.我买了一本DELPHI网络精华,按例子用函数OPENPRINTER和DocumentProperties操作打印机,但都不行.
OpenPrinter(PChar(PrinterName)),Handle,nil)
Nil不行吗 -------------------------------->|
DocumentProperties使用时也出错:
DocumentProperties(0,PrinterObject,Pchar(DevName),Devs,Devs,0);
_________

下划线处的两个参数出错,我搞不清楚了.............

3. 我使用针打的打印机,我希望打印一行后,打印机不转纸,就好像DOS中的
FOXPRO打印一样,可有方法!!!

以上问题请您帮忙解决一下,万分感谢!
 
真的只要几句话就可以打开钱箱? 明天我到商店试一试... :-)~~~~~~
 
用过Escape函数吗?
 
这是往并口写数据呀
找个控件打开并口,然后写如那些数据就可以了

to cakk
//真的只要几句话就可以打开钱箱?
真的,不过各种钱箱,控制指令不同
 
<pre><pre class="text">
<A HREF="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=102267">请看这里,以前的答案</A>
</font></pre>
 
多人接受答案了。
 
后退
顶部