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

BCB 使用 Indy 元件時的問題

 
mufou
一般會員


發表:10
回覆:15
積分:10
註冊:2003-07-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-03-14 21:54:56 IP:211.78.xxx.xxx 未訂閱
有附上程式 主要是Client Server互相傳送文字訊息 (Memo裡的文字) 而在Client連到Server時,就會順便將自己的Memo裡的文字傳到Server去 但在這個時候Server那邊就會有問題    我現在是已經可以正常運作了 將Memo元件的ScrollBars設成none就行了 請問可以解釋這是為什麼嗎    也順便看看有沒有什麼好的解決方法....多謝    以下為主要的部分,詳細部分需看我的程式..    [client] Form1->IdTCPClient1->Host=Edit1->Text;     Form1->IdTCPClient1->Port=4001;     Form1->IdTCPClient1->Connect(3000);        Form1->IdTCPClient1->WriteLn("join discussion");     Form1->IdTCPClient1->WriteLn(Form1->ansRichEdit1->Lines->Count);     for(int i=0;i<Form1->ansRichEdit1->Lines->Count;i ){ Form1->IdTCPClient1->WriteLn(Form1->ansRichEdit1->Lines->Strings[i]); } ======================================= [server] AnsiString rqCommand=AThread->Connection->ReadLn(); tmpEdit1->Text=AThread->Connection->Socket->Binding->PeerIP; tmpEdit1->SelStart=tmpEdit1->Text.Length()-1; tmpEdit1->SelLength=1; user=tmpEdit1->SelText.ToInt(); if(rqCommand=="join discussion") { tmpEdit1->Text=AThread->Connection->ReadLn(); switch (user) { case 1: RichEdit1->Clear(); for(int i=0;iText.ToInt();i ){ RichEdit1->Lines->Add(AThread->Connection->ReadLn()); } break; case 2: RichEdit2->Clear(); for(int i=0;iText.ToInt();i ){ RichEdit2->Lines->Add(AThread->Connection->ReadLn()); } break; case 3: RichEdit3->Clear(); for(int i=0;iText.ToInt();i ){ RichEdit3->Lines->Add(AThread->Connection->ReadLn()); } break; } }
附加檔案:66868_code.rar
系統時間:2024-11-23 12:05:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!