LPT1上连接打印机,如果打印机没有开机,那程序就会死掉!

才子鸣 2011-07-29 05:55:05
AssignFile(F, 'LPT1');
Rewrite(F);
Str := 'TESTSETSETSETSSETSE'+Chr(10);
Write(F, Str);


LPT1上连接打印机,如果打印机没有开机,那程序就会死掉!

以上代码在Write的时候,程序就死掉,用Try也抓不出异常!

请求支援了!
...全文
78 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
才子鸣 2011-07-29
  • 打赏
  • 举报
回复
补充:
如果打印机是开着的.那么会正常打印,如果没接打印机,或者打印机关机中.界面就会死掉,
在Write的时候,他不会报错,因为等个大概10来分钟后,才会提示说打印机故障,所以用Try也抓不到异常!

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧