pos打印问题 ( 积分: 100 )

我做了个POS，小票打印用直写LPT端口，方法简单，如下
procedure PRINT_STR(S:STRING);
VAR
MYFile:TextFile;
begin
TRY
Assignfile(MyFile,'lpt1');
Rewrite(MyFile);
Writeln(MyFile,S);
FINALLY
CloseFile(MyFile);

end;
end;

现该POS已使用，正常请况下都能完成打印，但有时会出以下问题：
问题1 打印顺序颠倒，本应先打 STR1，然后打STR2，但打印机却先打出STR2，然后再打STR1；
问题2 当打印出错时，想清空打印机缓冲中的内容，如何实现？

我做了个POS，小票打印用直写LPT端口，方法简单，如下
procedure PRINT_STR(S:STRING);
VAR
MYFile:TextFile;
begin
TRY
Assignfile(MyFile,'lpt1');
Rewrite(MyFile);
Writeln(MyFile,S);
FINALLY
CloseFile(MyFile);

end;
end;

现该POS已使用，正常请况下都能完成打印，但有时会出以下问题：
问题1 打印顺序颠倒，本应先打 STR1，然后打STR2，但打印机却先打出STR2，然后再打STR1；
问题2 当打印出错时，想清空打印机缓冲中的内容，如何实现？

好,帮顶


--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net
80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/