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;
这段程序?不然程序无响印了.
兄弟姐妹们！
有没有曾告诉你，我很希望，希望你的回复！
串口的做过,不知道并口怎么检测
小票打印还有其它什么方法没？
有用过的朋友指点指点~~~~
问问打印机提供商,应该有检测打印机状态的指令
石沉大海了
提贴~~
帮顶
找厂商要打印指令,再用指令检测,不同�
相关问答：
如题。
感觉如何？交流下。
没有研究过，呵呵
有啥研究头？
那个东西，是个鸡肋，，没有什么意思，发现！！
用来做B/S架构的MIS系统的话应该可以提高界面开发的效率吧？
因为不熟悉Delphi � ......
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
如何用数组跟for打印出下面的图形
*
**
***
****
如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......
