Indy問題 |
尚未結案
|
kendjoe
一般會員 發表:14 回覆:18 積分:6 註冊:2005-02-02 發送簡訊給我 |
不好小弟,是一個剛踏入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);
}
|
kendjoe
一般會員 發表:14 回覆:18 積分:6 註冊:2005-02-02 發送簡訊給我 |
|
conundrum
尊榮會員 發表:893 回覆:1272 積分:643 註冊:2004-01-06 發送簡訊給我 |
|
kendjoe
一般會員 發表:14 回覆:18 積分:6 註冊:2005-02-02 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |