不好小弟，是一個剛踏入bcb這領域，有一些問題一直不知如何是好。 小弟也好找很多文章但就是~~一直找不到解決方法，可請各前輩救救我 問題： 我用了IdTCPServer1和IDTCPClient這兩元件做連接傳送資料， 而在connect上都沒問題，但在disconnect就會出現error， 這個問題站上的文章好像有說這是indy的bug，但我應怎麼做呢。 請大大救救我… CLient程式碼如下： void __fastcall TForm1::Button1Click(TObject *Sender) { if (Button1->Caption == "Connect") { IdTCPClient1->Host=Edit2->Text; IdTCPClient1->Port=Edit3->Text.ToInt(); IdTCPClient1->Connect(0); if (IdTCPClient1->Connected() == true) { Button1->Caption = "Disconnect"; Button2->Enabled=true; } }else{ IdTCPClient1->Disconnect(); if (IdTCPClient1->Connected() == false) { Button1->Caption = "Connect"; Button2->Enabled=false; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPClient1Disconnected(TObject *Sender) { Caption = "Disconnect"; } //--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPClient1Connected(TObject *Sender) { Caption = "Connect"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { IdTCPClient1->WriteLn(Edit1->Text); } Server端程式碼如下 void __fastcall TForm1::Button1Click(TObject *Sender) { if (IdTCPServer1->Active == false) { //IdTCPServer1->Bindings=Edit1->Text; IdTCPServer1->DefaultPort=Edit2->Text.ToInt(); IdTCPServer1->Active = true; if (IdTCPServer1->Active == true) { Button1->Caption = "Deactive"; Label1->Caption="Active"; } }else{ IdTCPServer1->Active = false; if (IdTCPServer1->Active == false) { Button1->Caption = "Active"; Label1->Caption="Deactive"; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread) { AnsiString asTemp; asTemp = AThread->Connection->ReadLn(LF, IdTimeoutInfinite, -1); Memo1->Lines->Add(asTemp); }

嗚~~不知道是不是我問的問題太簡單了~還是怎樣~~ 居然沒有理我~~~ 各前輩請您救救我......

1 試看看這篇 http://delphi.ktop.com.tw/topic.php?topic_id=36068 2 各前輩請您救救我 這樣的東西 可以不要出現嗎? 新手上路 建議先看版規一下ok http://delphi.ktop.com.tw/ktop12.htm 先學這招 再到處問都通用啦 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20571

^^ 嗯~~謝謝conundrum 的教導，小弟一定會改進。 也謝謝conundrum提供的文章，其實早在之前我有找到這篇文章但我只看的懂bcb(小弟剛學)，不過我真的很高興得到此議件。 再次感謝conundrum ^___^

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.