急呀！如何在线程中正确使用TClientSocket???

[julang]

我new了多个线程，每个线程中都有一个TClientSocket来发送消息，
其ClientType为ctNonBlocking（接收端程序的TServerSocket的
ServerType=stNonBlocking）, 但是很奇怪，当我的程序焦点转移
（如最小化或最大化、点到其他程序）时会出现异常。

请问各位大哥，怎样在线程里正确使用TClientSocket控件？？？

[Sun2001]

http://www.csdn.net/expert/topic/105/105218.shtm

[julang]

我的问题跟那个例子不一样，我的线程执行没问题，而且消息发送也成功了，
但是就是焦点转移时会异常，特别时最大化或最小化时，真是搞不懂了！！！

void __fastcall TMsgSendThread::Execute()
{
AnsiString asUserHost;

//---- Place thread code here ----
try
{
for (int i=0; i<m_iMsgCount; i++)
{
//等待TClientSocket上次发送工作完成
while (m_bAddMsgSocketing)
Application->ProcessMessages();

m_iCurrSendMsgNo = m_iStartNo+i;

asUserHost = m_slstHostIPs->Strings[m_iCurrSendMsgNo];
csktSendIt->Close();
csktSendIt->Address = asUserHost;
csktSendIt->Open();

m_bAddMsgSocketing = true;

}

while (m_bAddMsgSocketing)
Application->ProcessMessages();

}
catch(Exception &e)
{
m_bAddMsgSocketing = false;
csktSendIt->Close();
}

}

csktSendIt是在线程中new出来的!

[julang]

up up up!!!

[julang]

怎么没人答复啦！！！！