線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1026
推到 Plurk!
推到 Facebook!

請問這是什麼元件(有照片)

答題得分者是:Roach
bt1
一般會員


發表:38
回覆:14
積分:10
註冊:2003-06-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-09 10:38:38 IP:140.124.xxx.xxx 未訂閱
學長給我一個安裝BCB5的RS232的comport元件,但是都沒有help,讓我很難對它下手,所以請教網友幫我看一下這元件是叫什麼?在把可下載?? 謝謝!!
Roach
中階會員


發表:61
回覆:104
積分:98
註冊:2002-11-05

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-08-10 18:40:10 IP:210.68.xxx.xxx 未訂閱
那個元件該不會是你學長自己寫的吧 與其去 > 貼一個給你參考 //--------------------------------------------------------------------------- #> #>Caption = "Updated in a thread" > sizeof(inbuff) ) { PurgeComm( hComm,PURGE_RXCLEAR ); return; } ReadFile( hComm,inbuff,cs.cbInQue,&nBytesRead,NULL ); inbuff[cs.cbInQue]='\0' ; if( cs.cbInQue > 0 ) { Form1->Label1->Caption = inbuff ; // Form1->Memo1->Text = Form1->Memo1->Text inbuff ; } } //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; HANDLE hComm; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Read232 = new TReadThread(true); Read232->FreeOnTerminate = true ; char *ComNo ; DCB dcb; String Temp="COM2" ; ComNo = Temp.c_str(); hComm = CreateFile( ComNo,GENERIC_READ | GENERIC_WRITE , 0 , NULL , OPEN_EXISTING , 0 , 0 ); if( hComm == INVALID_HANDLE_VALUE ) { ShowMessage("開啟通信埠有問題 2 "); return; } GetCommState( hComm,&dcb ); dcb.BaudRate = CBR_56000 ; dcb.ByteSize = 8 ; dcb.Parity = NOPARITY ; dcb.StopBits = ONESTOPBIT ; if( !SetCommState(hComm,&dcb) ) { ShowMessage(" 設定通信埠錯誤 "); CloseHandle(hComm); } Read232->Resume(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { Read232->Terminate(); if( hComm!=INVALID_HANDLE_VALUE ) CloseHandle(hComm); exit(EXIT_SUCCESS); } //---------------------------------------------------------------------------< >< >< >< > 試車總是問題多
bt1
一般會員


發表:38
回覆:14
積分:10
註冊:2003-06-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-08-11 14:36:23 IP:140.124.xxx.xxx 未訂閱
謝謝你!! 我去買這書看看..!!
系統時間:2024-04-29 6:14:49
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!