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

在BCB中簡單控制Serial Port ( RS232)!!!

尚未結案
Torpedo
一般會員


發表:5
回覆:7
積分:2
註冊:2002-10-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-26 21:55:58 IP:211.75.xxx.xxx 未訂閱
如果你想簡單控制Com Port可以用匯入ActiveX控制項(MSCOMM32.OCX)的方式來處理,使用方式跟在VB中使用幾乎一樣,簡單又方便. Torpedo >===)
bruce0211
版主


發表:157
回覆:668
積分:279
註冊:2002-06-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-27 08:19:13 IP:61.227.xxx.xxx 未訂閱
長官 這篇算是"發表"還是算是"問題" ?? 若算是"發表" 這種沒有範例說明的發表 有說跟沒說好像一樣....
Torpedo
一般會員


發表:5
回覆:7
積分:2
註冊:2002-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-09-27 15:28:20 IP:211.75.xxx.xxx 未訂閱
那你是要找解答還是...???    ps:記得先import mscomm32.ocx 步驟:   1.點選Component->Import ActiveX control   2.選擇Microsoft Comm Control   3.按Install按鈕    好了之後在"ActiveX" Tabs選項內會出現一台小電話直接拉到Form既可. Good Luck!    /*************程式************************/ #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "MSCommLib_OCX" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { MSComm1->CommPort = 2; MSComm1->Settings ="9600,N,8,1"; MSComm1->InputLen = 0; MSComm1->PortOpen = true; Button2->Enabled = false; Button1->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { MSComm1->Output = Edit1->Text; } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { if( MSComm1->InBufferCount > 0 ) { Edit2->Text = MSComm1->Input; } }
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-09-27 15:48:40 IP:140.135.xxx.xxx 未訂閱
Torpedo您好: 謝謝您的熱心分享,我想bruce0211版主並沒有惡意的 因為您 > 例如: 標題您用<>[問題]在 > 順心< > <>~我也是在學習的階段,回答的不好請您多多見諒與指教~
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-09-27 16:01:52 IP:61.64.xxx.xxx 未訂閱
taishyang 版主 其實此篇原是po在 會員作品發表區(限本人創作發表) 區 bruce0211 版主是在那時 才po給Torpedo 網友 認真來說是 新網友 po錯區 並po錯標題 由於已經移區 所以現在看起來 有點爭議 不過 網友Torpedo 這是為了 維護ktop的文章 以讓別人可以容易查詢 所以才會有現在的狀況 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
Torpedo
一般會員


發表:5
回覆:7
積分:2
註冊:2002-10-31

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-09-27 16:47:54 IP:211.75.xxx.xxx 未訂閱
第一次Post所以不是很了解情況不好意思. 總是吸收別人的經驗也希望能幫助別人~共勉之 Torpedo >===)
n38870035
一般會員


發表:2
回覆:14
積分:3
註冊:2003-07-19

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-10-11 15:09:20 IP:140.134.xxx.xxx 未訂閱
引言: 第一次Post所以不是很了解情況不好意思. 總是吸收別人的經驗也希望能幫助別人~共勉之 Torpedo >===) http://xjj7758521.myetang.com/TMSComm.htm這個網站有vb mscomm的用法 不過需登錄此物件所以我覺得還是用win api比較好用
Torpedo
一般會員


發表:5
回覆:7
積分:2
註冊:2002-10-31

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-10-12 21:45:10 IP:218.167.xxx.xxx 未訂閱
Thanks!n38870035: 沒想到不經意的Post一個主題盡然有這麼多的回應謝謝大家指教. 本身工作的關係其實在程式方面要找到志同道合的真的是鳳毛麟角,有時候真覺得自己入錯行了. 你程式寫的再好也沒人會去care... 我想我會多跟大家交流交流的.
系統時間:2024-05-19 13:35:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!