indy中的idtcpserver的问题

2007-04-26 11:42:56 305 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

「Python系列」Python基础语法/数据类型我们学习Python必然是为了找到高薪的工作，下面这些面试题是来自阿里、腾讯、字节等一线互联网大厂最新的面试资料，并且有阿里大佬给出了权威的解答，刷完这一套面试资料相信大家都能找到满意的工作。Python所有方向的技术点做的整理，形成各个领域的知识点汇总，它的用处就在于，你可以按照上面的知识点去找对应的学习资源，保证自己学得较为全面。观看零基础学习视频，看视频学习是最快捷也是最有效果的方式，跟着视频中老师的思路，从基础到深入，还是很容易入门的。Python提供了一些内置函数，可以用于数据类型之间的转换。阅读详情

我把客户端在线列表保存在一个listview里，点其中一个就可以向他发送消息。模仿demo里的chat修改，但是发送的时候老是出现访问违例。高手指点一下，代码如下：
TList *Clients=new TList;
class TSimpleClient: public TObject
{
public:
AnsiString DNS;
AnsiString Name;
AnsiString IP;
int LastLink;
Pointer Thread;
};
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TCPServerConnect(TIdPeerThread *AThread)
{
TSimpleClient *Client=new TSimpleClient;
Client->DNS=AThread->Connection->LocalName;
Client->Name=AThread->Connection->LocalName;
Client->IP=AThread->Connection->Socket->Binding->PeerIP;
Client->Thread=AThread;
Client->LastLink=ListView1->Items->Count;
TListItem *item;
item=ListView1->Items->Add();
item->Caption=AThread->Connection->Socket->Binding->PeerIP;
item->SubItems->Add(AThread->Connection->LocalName);
AThread->Data=Client;
Clients->Add(Client);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
TSimpleClient *Client;
Client=(TSimpleClient *)Clients->Items[ListView1->ItemIndex];
TIdPeerThread(Client->Thread).Connection->WriteLn("111");
}
//---------------------------------------------------------------------------

...全文