关于打印问题－－100分 ( 积分: 100 )

小弟刚刚开始学习Delphi，有一个打印问题请教各位高手：
请问不用如何能将存在硬盘上的文件直接发送到打印机的并口？
如：我在D盘下有个1.txt文件，执行OpenDialog控件选择文件，并在edit1中显示路径，然后按button控件打印文件，中间不调用Memo、RichEdit等控件load文件，不知道应该怎样实现。
小弟刚加入大富翁，能力有限，只能提供100分，请各位大虾帮助。

小弟刚刚开始学习Delphi，有一个打印问题请教各位高手：
请问不用如何能将存在硬盘上的文件直接发送到打印机的并口？
如：我在D盘下有个1.txt文件，执行OpenDialog控件选择文件，并在edit1中显示路径，然后按button控件打印文件，中间不调用Memo、RichEdit等控件load文件，不知道应该怎样实现。
小弟刚加入大富翁，能力有限，只能提供100分，请各位大虾帮助。

我不知道您的问题里的要求是需不需要并口的，要是需要并口的话(但是看您的问题好像也只能用并口来解决)，解决方案如下：
下面是具体的代码：
var
port, prnfile: file;
buffer: array [1..128] of Char;
Read: Integer;
begin
if Opendialog1.Execute then
begin
Edit1.Text:=OpenDialog1.FileName;
AssignFile(prnfile, OpenDialog1.FileName);
end;
Reset(prnfile, 1);
AssignFile(port, 'LPT1');
Rewrite(port, 1);
repeat
BlockRead(prnfile, buffer, SizeOf(buffer), Read);
BlockWrite(port, buffer, Read);
until EOF(prnfile) or (Read <> SizeOf(buffer));
CloseFile(prnfile);
CloseFile(port);
end;
上面的代码在D7+WINXP下编译通过

已经可以了，谢谢度应668^_^