Delphi下使用并口控制打印机的方法

Delphi下使用并口控制打印机的方法

使用Delphi编程的人员如果需要在Windows下使用并口打印机逐行打印，而又不想使用Windows的驱动程序。我们这里提供一种不需要任何外来的元件的方法。
Var F:TextFile;
Str:string;
Begin
try
Str:=’ 欢迎使用票据打印机!’+Chr(10);
AssignFile(F, 'LPT1');
Rewrite(F);
Write(F, Str);
CloseFile(F);
Except
Messagedlg('数据发送失败！',mterror,[mbok],0);
End;
end;
如果需要控制并口打印机开钱箱，也只需要重新给Str如下赋值：
Str:= Chr(27)+'p'+Chr(0)+Chr(25)+Chr(255);



Delphi下使用串口控