如何將一個文本文件傳送到LPT1口?

Question

我在寫一個列印程式,需要將一文本文件傳送到LPT1口,請指點.

Answer 1

MyFile: TextFile;
begin
  Assignfile(MyFile,'lpt1');  // or 'com1'
  Rewrite(MyFile);
Writeln(MyFile, 你的内容);

Answer 2

MyFile: TextFile;
begin
  Assignfile(MyFile,'lpt1');  // or 'com1'
  Rewrite(MyFile);
Writeln(MyFile, 你的内容);

Answer 3

在Win 2000里，OS已经封杀了所有的中断，但是它把设备看成为文件
用API CreateFile ,直接把你的数据写入端口就可以了

Answer 4

直接用写文件的方法。不过，如果在dos底下，这么做：
copy xxx.txt lpt