idtcpserver的问题

[meikeer]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TList * ThreadList;
ThreadList=IdTCPServer1->Threads->LockList();
((TIdPeerThread *)ThreadList->Items[0])->Connection->WriteLn("fff");


}
连上后如果点击这按钮，在开发环境就提示出错Terminate out Time ，但是脱离开发环境后，在任务管理器中能看到程序无法关掉

[meikeer]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Client1=new TClientThread();
Client1->Host="127.0.0.1";
Client1->Port=1981;
Client1->RegName="Client one";
Client1->Start();
}
//---------------------------------------------------------------------------
void __fastcall TClientThread::Execute(void)
{
IdTCPClient->Connect(5000);

int i=0;

while(!Terminated && IdTCPClient->Connected()){
Form1->Memo1->Lines->Add(IdTCPClient->ReadLn()+IntToStr(i));
//IdTCPClient->WriteLn("ddd"+IntToStr(i));
i++;
}
}

昨天太晚了，这个是客户端的代码，Button1点击时没有错误，但是server端一发送数据就会出错

[meikeer]

void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
{
Memo1->Lines->Add(AThread->Connection->ReadLn());
//AThread->Connection->WriteLn("dddd");
//AThread->Connection->Disconnect();

}

server端在 Memo1->Lines->Add(AThread->Connection->ReadLn());时停止

[huzhangyou]

((TIdPeerThread *)ThreadList->Items[0])->Connection->WriteLn("fff");
代码本身没有问题
问题是 对方链接是否成功
可以断点跟踪进去调试一下

[meikeer]

up