串口打印机的控制 ( 积分: 100 )

串口打印机的控制

var
code_bar1: Textfile;
begin
Assignfile(code_bar1,'COM1'); // 打开串口
try
Rewrite(code_bar1); // 准备写文件
Writeln(code_bar1,'Hello'); //写入字符或者打印机控制命令
finally
CloseFile(code_bar1);
end;
end;

谢谢