可用CREATEFILE以PRN为文件名生成一个文件,检测返回值,若成功则打印机可用,否则显示打印机故障。生成关于PRN的文件句柄后,可象普通文件一样向文件写入内容,比如WRITE,写完后关闭文件。
//从并行端口读取打印机状态
function GetPrinterStatus:byte;
asm
MOV DX,$379;
IN AL,DX;
end;
//获取打印机是否出错
function CheckPrinter:boolean;
var
temp:byte;
begin
temp:=GetPrinterStatus;
Result:=not ( ((temp and $80)=0) //打印机忙
or ((temp and $20)<>0) //打印机缺纸
or ((temp and $10)=0) //打印机未联机
or ((temp and $08)=0) ); //打印机出错;
end;
//从并行端口读取打印机状态
function GetPrinterStatus:byte;
asm
MOV DX,$379;
IN AL,DX;
end;
//获取打印机是否出错
function CheckPrinter:boolean;
var
temp:byte;
begin
temp:=GetPrinterStatus;
Result:=not ( ((temp and $80)=0) //打印机忙
or ((temp and $20)<>0) //打印机缺纸
or ((temp and $10)=0) //打印机未联机
or ((temp and $08)=0) ); //打印机出错;
end;
解决方案 »
- 江苏人民发来慰问:祝坚守在D版的广大战友身体健康 节日快乐!
- 关于邮箱附件问题?
- 20万条记录用cds或者直接用query的 append 方法插入到数据库中,应该注意哪些细节来,提高处理的速度?
- 哪位兄弟姐妹能告诉我,哪里可以....
- 谈谈Delphi的字符串比较
- 使用时发生的问题:'Query1: CommandText does not return a result set'
- 请教IdSocksServer的问题
- 生日出差加班痛苦中………………
- 急:请教ODAC访问Oracle数据库,查询汉字字段的问题!!!
- 问题
- !!!请问各路高手:MDI窗体运行时,如何保存子窗体?
- 在edit1内只能输入数字或字母,应怎么做
在 IN AL,DX; 时 报错 :Privileged instruction
我用的是网络打印机