用Delphi如何进行并口通信？

Question

下面是VB通过并口让票据打印机直接打印的代码，如果将它改写成Delphi的代码？
Open "lpt1:" For Output As #1
Print #1, Chr(27); "@";                                 '打印机复位
Print #1, Chr(27); "x0";
Print #1, Chr(27); "a"; Chr(1);                         '送纸
Print #1, Chr(27); "x1";
Print #1, "                      " + num1
Print #1, ""
Print #1, "             " + in1 + "                 " + in2
Print #1, ""
Print #1, "             " + name1 + "               " + userid
Print #1, ""
Print #1, "           " + Date$ + "         " + Time$
Print #1, ""
Print #1, "" '取消倍高打印
Print #1, Chr(27); "d0";                                 '切纸
Print #1, Chr(10)
Close #1

Answer 1

用spcomm
delphi中也有chr，其他的直接用就行了

Answer 2

看错了，原来是并口，
VAR
lpt :TextFile
BEGIN
AssignFile( lpt, ’LPT1’ );
ReWrite( lpt );
Write( lpt, ’打印测试’ );
Write( lpt, #12 ); //打印机换页
CloseFile( lpt );
END