线程中动态创建clientsocket组件有问题
线程中动态创建clientsocket组件,其响应事件不执行,
如
void __fastcall clientsocket::Execute()
{
ClientSocket1=new TClientSocket(NULL);
ClientSocket1->Address=ip1;
ClientSocket1->Port=port1;
ClientSocket1->Open();
ClientSocket1->OnError=ClientSocketError;
}
void __fastcall clientsocket::ClientSocketError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ShowMessage("连接服务器错误");
ErrorCode=0;
ClientSocket1->Close();
delete ClientSocket1;
}
请高手指点一二