有一款打印机无驱动程序(本身就是如此),使用它的方法是直接写并口(好处是打印速度快)。现遇到一个麻烦,就是当打印机无纸时,它会使计算机死机。请问高手,怎么获得无纸信息,或者有其它什么办法解决!!
解决方案 »
- cxgrid 根据A列的值设定B列值的颜色
- Delphi 批量更新有问题 ApplyUpdates (少用) ,各位高手请看下代码!
- 连接Oracle数据库问题
- 关于调用文件的问题,100分在线等
- 如何将一个整数转化位十六进制的数值,并按二进制数值方式写入注册表?
- 关于入口函数
- 如何通过程序动态加载.DLL文件,如何卸载.DLL,卸载后有可以随时加载
- 快来拿分吧!《一个关于treeview的简单问题》
- 如何实现这样的功能:select * from select * from table
- 高手请进,救命
- 如果采用DCOM/COM+对象做网站的应用服务器,如何在申请的服务器上注册DCOM/COM+对象呢?
- IdTCPClient1的用法
首先要確定是不是你的程序有問題,可能性比較大
用另的軟件(word)打印測試一下
var
val: Byte;
begin
val := Byte(wert);
asm
push dx
mov dx,portadresse
mov al,val
out dx,al
pop dx
end;
end; function Inp32(portadresse: Word): Byte;
var
val: Byte;
begin
asm
push dx
mov dx,portadresse
in al,dx
mov val,al
pop dx
end;
Inp32 := Byte(val) and $00ff;
end;
// Example/Beispiel: Out32($378, 0) {= Dataport all 8 Bit Low}
Out32($378, (Inp32($378) or 1); {Dataport Bit 1 High}
Out32($378, (Inp32($378) and 254); {Datap. Bit 1, Low}