打印文件传入指定的（lpt）端口，分不够在加急待解决！！！！！！！！！！

macula55 2003-08-19 04:33:15

delphi中如何将一个已经做好的打印文件发送到指定的LPT端口打印，不是直接送入打印机。（在DOS下可以使用如下命令：copy 1.prn lpt1）

...全文

104 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

macula55 2003-08-19

打赏
举报

请问：
write(PRNFileName,CHR(27)+'p'+CHR(0)+CHR(60)+CHR(255) );
有什么作用？

WWWWA 2003-08-19

打赏
举报

var
PrnFileName: TextFile;
begin
Assignfile(PrnFileName,MoneyPort);(lpt1 com1)
Rewrite(PrnFileName);

write(PRNFileName,CHR(27)+'p'+CHR(0)+CHR(60)+CHR(255) );
CloseFile(PRNFileName);

WWWWA 2003-08-19

打赏
举报

var
PrnFileName: TextFile;
begin
Assignfile(PrnFileName,MoneyPort);(lpt1 com1)
Rewrite(PrnFileName);

write(PRNFileName,CHR(27)+'p'+CHR(0)+CHR(60)+CHR(255) );
CloseFile(PRNFileName);