一段向打印机写数据的过程,请各位指教,为何在98下能正常,在win2k下总出错? ( 积分: 100 )

  • 主题发起人 主题发起人 deepfar
  • 开始时间 开始时间
D

deepfar

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位指教,为何在98下能正常打印,在win2k下总出错?
procedure Tprint.printdata(text: string);
var F: TextFile;
begin
AssignFile(F, LPT1);
Rewrite(F);
Write(F, text);
CloseFile(F);
end;
 
请各位指教,为何在98下能正常打印,在win2k下总出错?
procedure Tprint.printdata(text: string);
var F: TextFile;
begin
AssignFile(F, LPT1);
Rewrite(F);
Write(F, text);
CloseFile(F);
end;
 
你把出错信息写出来呀.
你可以把代码放到2K的电脑上调试一下子.
 
原因很多
1: 你那个2k的打印机驱动没有装,或者有问题。
2: 你可以改 成这样试试!
asignfile(f,'com2');
rewrite(f);
writeln(f,text));

closefile(f);
 
asignfile(f,'LPT1');
rewrite(f);
writeln(f,text));

closefile(f);
 
后退
顶部