請問各位前輩: 本人用同樣程式碼控制發票機(LPT1 port),為何vb 可以列印而delphi卻一動也不能動呢? vb及delphi程式如下: -- vb 程式開始-- Private Sub Command1_Click() Dim hand As Long hand = FreeFile Open "LPT1" For Output As #hand Print #hand, Chr(27) "@" '啟動同步列印 Print #hand, Chr(27) "z" Chr$(1) '啟動同步列印 Print #hand, Chr(27) "PB1" & "頁:1" Print #hand, Chr(27) "PB1" "------------------------" Print #hand, Chr(27) "PB1" & "元" 'Print #hand, Chr(27) Chr(27) "VB" 'Print #hand, Chr(27) Chr(27) "G" Close #hand End Sub ------------ vb 程式結束-- ==== delphi 程式開始 ==== procedure TForm1.Button1Click(Sender: TObject); var F : TextFile; begin AssignFile(F, 'LPT1');//port可以設定（在一般設定裡設定） ReWrite(F); Write(F,chr(27) '@'); Write(F,chr(27) 'z' chr(1)); Write(F,chr(27) '123456'); Write(F,chr(27) '---------------'); CloseFile(f); end; ==== delphi 程式結束 ===== 請各位前輩幫忙,謝謝!

I'm not good at VB  class="code">writeln(F,chr(27) '@'); ... etc ... http://pywong.hk.st

謝謝william.不過試了後還是不行.

注意! 作業系統若為nt or xp 在delphi 中不能直接用

 
  AssignFile(F, 'LPT1');//port可以設定（在一般設定裡設定）      ReWrite(F);

因為不接受直接驅動i/o模式.

我覺得這好像是問題的核心,因為我是用windows xp在開發. 請問有方法解決嗎?感淚不盡!

另外補充一點,我試了在LPT1 port上若同樣程式碼去控制出單機則是可以列印的,但發票機卻不行...好奇怪吔!

我的做法是用com Port來做 因為用LPT PORT做的話容易被廠商的驅動程式影響穩定性很差 所以我都是用RS232去丟資料的 目前也沒什麼問題 但我用的方式跟你有點不同 我是用OpenFile的方式做

謝謝各位的幫忙,我已找到答案了. 若有遇到和我一樣的問題解決如下: 若使用LPT Port要印"test"的字串則字串前加上==> chr($1b) 'PB1' ex. Write(F,chr($1b) 'PB1test'); 若使用com port要印"test"的字串則字串前加上==> chr($1b) 'P' ex. Write(F,chr($1b) 'Ptest');

以前我曾試過用AssignFile(F, 'LPT1');
但是好像用LPT的話,會受限制於廠商的驅動程式
後來試過最好的方法是用COM Port
開檔的方法我不是用AssignFile,
而是用CreateFile,比AssignFile好用

aHandle := CreateFile( PChar(temp),
GENERIC_READ OR GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
0,
0 );

補充一下
temp := 'LPT1';

其實還是可以的
使用環境 Win 2000 sp4
===================引 用 文 章===================
注意! 作業系統若為nt or xp 在delphi 中不能直接用

 
  AssignFile(F, 'LPT1');//port可以設定（在一般設定裡設定）

  ReWrite(F);

因為不接受直接驅動i/o模式.