Pos打印机编程的Assignfile(MyFile,lpt1)问题,急!
代码如下：
MyFile: TextFile;
begin
Assignfile(MyFile,'lpt1'); // or 'com1'
Rewrite(MyFile);
Writeln(MyFile, 控制码); //控制码 如：chr(27)+'a'
System.CloseFile(MyFile);
每次第一次执行此代码时，就出现io error 103
如果没有打开pos打印机，就会出现死机现象，不知道怎样解决？
var
MyFile: TextFile;
FileName: string;
begin
FileName := nmg_StrPath+'lpt1';//nmg_StrPath 在窗体CREATE的时候动态赋值
//还有你文件名若需要指定是什么类型可以加后缀，也可以指定位置，这里我只做个比方
if not FileExists(FileName) then //这句话来判断文件是否存
begin
AssignFile(MyFile,FileName);
Rewrite(MyFile,FileName);
CloseFile(MyFile);
end
else begin
Assignfile(MyFile,FileName); // or 'com1'
Append(MyFile);
Writeln(MyFile, 控制码); //控制码 如：chr(27)+'a'
CloseFile(MyFile);
end;
