如何使用分配文件？

Question

我正在翻译一个旧代码，在此我直接将其打印到通讯端口，LPT和COM。 最初，我使用writePrinter并能正常工作，但有一次我需要从打印机获得退货，并被告知readPrinter无法获得该退货。 所以我开始使用Assingfile。

var
  print : textfile ;
  teste12 : Ansistring;
begin

  teste := #16 + #04 + #2;
  Assignfile (print, 'COM4'); //  = PORTA DE COMUNICACAO
  rewrite(print);
  writeLn(print, teste);
  closefile(print);  //fecha o arquivo

end;

问题是三个：

1-我不希望用户告诉打印机端口。借助whitePrinter，我使用了“打印机”库，为此，我能够获得打印机驱动程序并进行直接操作，在这种情况下，我不知道该如何开门。

Obs：解决方案不能在Windows记录中搜索...不要卡在体系结构中。

我看到了一些有关AssignPrn的信息，但看起来这只能打印到默认打印机，对吗？

2-在此代码示例中，打印机应以十六进制形式接收“ 10 04 02”，但接收“” 10 04 02 0D 0A”，我认为这是指示字符串结尾的字符。 我该如何解决？

3-即使解决了以上两个问题……我也不知道如何获得退货打印机。