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

COM port讀寫的問題

尚未結案
KimoKimo
一般會員


發表:2
回覆:1
積分:0
註冊:2002-11-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-03-27 10:48:40 IP:203.75.xxx.xxx 未訂閱
請教各位: 我有一個需透過com port監看的系統(會對他作讀寫動作) 系統開機時會出現開機訊息,這時我必須輸入Ctrl-C強迫它進入命令列模式 否則他會進到別的選單模式 現在我用SPCOMM可以讀到系統的開機訊息,但是我用timer的timer事件 持續輸入^C時卻無法讓系統進入命令列模式.請問我該怎麼辦?
ko
資深會員


發表:28
回覆:785
積分:444
註冊:2002-08-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-03-27 16:26:47 IP:61.221.xxx.xxx 未訂閱
KimoKimo你好: 你確定ontimeclick有被觸發嗎?
------
======================
昏睡~
不昏睡~
不由昏睡~
KimoKimo
一般會員


發表:2
回覆:1
積分:0
註冊:2002-11-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-03-27 17:40:21 IP:203.75.xxx.xxx 未訂閱
我貼上我寫的部份程式如下,請各位參考看看問題在哪裡.. 收 procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var i: Integer; S: String; Temp, Result: String; begin SetLength(S,BufferLength); Move(Buffer^,pChar(S)^,BufferLength); If Trim(S)='Boot>' then Timer1.Enabled:=False; end; 發 procedure TForm1.Timer1Timer(Sender: TObject); var Temp: String; begin Temp:=#$5E#$43#$0D; Edit1.Text:=Temp; comm1.WriteCommData(pchar(Temp),Length(Temp)); end; //timer1的interval為1000
ko
資深會員


發表:28
回覆:785
積分:444
註冊:2002-08-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-03-31 12:48:01 IP:61.221.xxx.xxx 未訂閱
KimoKimo你好:  
引言: procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var i: Integer; S: String; Temp, Result: String; begin SetLength(S,BufferLength); Move(Buffer^,pChar(S)^,BufferLength); If Trim(S)='Boot>' then Timer1.Enabled:=False; end;
這裡你關閉了timer,卻沒有在開啟,可能因此timer就不在動作了
------
======================
昏睡~
不昏睡~
不由昏睡~
系統時間:2024-03-29 4:47:02
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!