請教各位先進, 我的環境是 : Delphi 5 + XP
以下程式, 是我用來直接透過 LPT1 驅動 TM-88 熱感印表機的方法

{$I-}
Reset(F);
{$I }
assignFile(F,'LPT1');
nIO := IOResult;
if nIO <> 0 then
MessageDlg('IOResult=' IntToStr(nIO), mtWarning, [mbOk], 0);

sStr:=待列印的印表機命令與內容

Writeln(F, sStr);
CloseFile(F);

MessageDlg 都會出現 IOResult = 102 的錯誤,
Q1. 請問到哪裡查詢 IOResult 錯誤代碼的說明

若 byPass 錯誤訊息, 有時能印! 但是,若變成沒印, 接下來, 就都印不出來了, 必須 重新進入程式, 才能印
有的電腦都不會出問題, 有的印一張就出問題
Q2. 請問, 我的程式漏動或錯誤在哪裡

找到 I/O Error 的資料

http://www.moneymachinenet.com/delphi_errors.php

大家參考, 為防止網頁遺失, KTop 是否有收錄