全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1959
推到 Plurk!
推到 Facebook!

如何透過parallel port 把command 直接傳送給印表機

尚未結案
tidal
初階會員


發表:93
回覆:32
積分:25
註冊:2003-07-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-21 17:38:44 IP:202.82.xxx.xxx 未訂閱
不用driver. 有沒有code或者範例可供參考? 感謝大大的幫忙 發表人 - tidal 於 2004/10/21 17:54:36
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-21 19:01:33 IP:211.20.xxx.xxx 未訂閱
tidal 你好
  你可以使用下列程式寫入LPT1(parallel port)    Var
   F: TextFile ;
Begin
  AssignFile(F, 'LPT1');   {F 是以 F: TextFile 宣告的}
  ReWrite(F);
  // 寫入指令(請參考設備指令說明)
   Writeln(F, Chr(27) ' Command1 Params1...');
   Writeln(F, Chr(27) ' Command2 Params2...');
  ......
  // 不要忘了關閉
  CloseFile(F);
End;
_______________________________________ 深藍的魚,祝您好運..........連連
tidal
初階會員


發表:93
回覆:32
積分:25
註冊:2003-07-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-10-22 00:05:27 IP:221.124.xxx.xxx 未訂閱
引言: tidal 你好
  你可以使用下列程式寫入LPT1(parallel port)    Var
   F: TextFile ;
Begin
  AssignFile(F, 'LPT1');   {F 是以 F: TextFile 宣告的}
  ReWrite(F);
  // 寫入指令(請參考設備指令說明)
   Writeln(F, Chr(27) ' Command1 Params1...');
   Writeln(F, Chr(27) ' Command2 Params2...');
  ......
  // 不要忘了關閉
  CloseFile(F);
End;
_______________________________________ 深藍的魚,祝您好運..........連連
那如何開啟parallel port? 和如何偵查有多少個LPT port? 感謝大大幫忙
系統時間:2024-11-21 18:52:27
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!