在家帮我看看这段代码.不太懂.

Question

在家帮我看看这段代码.不太懂.
function getprinterstatus:byte;
asm
 MOV DX,$379;
 IN AL,DX;
end;procedure Tfrmreports.CheckPrinter;
VAR
 temp:byte;
begin
 temp:=getprinterstatus;
 if ((temp and $80)=0) then edit4.Text:='打印机忙'
 else if ((temp and $20)<>0) then edit4.Text:='打印机缺纸'
 else if ((temp and $10)=0) then edit4.Text:='打印机未联机'
 else if ((temp and $08)=0) then edit4.Text:='打印机出错'
 else edit4.Text:='打印机正常';
end;

Answer 1

出错是在 'IN AL,DX';

Answer 2

2000下应该不支持这样的用法。
找一个直接读写端口的控件或DLL吧。

Answer 3

直接用文件方式访问打印机(LPT1文件)

Answer 4

请问 gettit911
  用文件方式怎么做呢.

Answer 5

打印大概是用：
var
lpt:textfile;
begin
if key=#13 then
begin
assignfile(lpt,'lpt1');
rewrite(lpt);write(lpt,edit2.text);edit2.Text:='';
end;