Delphi小票打印机是否是否存在？
打印小票，先把要打印的内容输入到文本中，
再调LPT1打印文本
如果没有装打印机的话,怎样让它跳出
// 向LPT口打印一个文本文件
procedure TPosFrm.PrintFile(AFileToPrint: string);
var
Port, FileToPrint: TextFile;
ALine: string;
begin
AssignFile(FileToPrint, AFileToPrint);
Reset(FileToprint);
AssignFile(Port, 'LPT1');
Rewrite(Port);
while not Eof(FileToPrint) do
begin
Readln(FileToPrint, ALine);
Writeln(Port, ALine);
end;
CloseFile(Port);
CloseFile(FileToPrint);
end;
这段程序?不然程序无响印了.
兄弟姐妹们！
有没有曾告诉你，我很希望，希望你的回复！
串口的做过,不知道并口怎么检测
小票打印还有其它什么方法没？
有用过的朋友指点指点~~~~
问问打印机提供商,应该有检测打印机状态的指令
石沉大海了
提贴~~
帮顶
找厂商要打印指令,再用指令检测,不同�
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
Delphi 像亡国的南宋，试问这语言还有前途吗？
Win32开发不如C#；
面像对像开发不如JAVA；
系统开发不如VC++6.0；
能用性不如VB6.0；
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗？
......
总之，这个应该是个小BUG。
随便建个txt文档
第一行68个s加一个回车
第二行98个s加一个回车
第三行17个s加一个回车
总共183个s加三个换行，大小189字节。
接着用FileOpen和FileRead把文件 ......
