线程中动态创建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;
}
请高手指点一二
如
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;
}
请高手指点一二
...全文
相关推荐
delphi socket(ClientSocket,ServerSocket)简单实例
- 异步模式:如果需要在用户界面线程之外处理网络操作,可以设置Socket组件的Active属性为True,并在OnExecute事件中处理数据读写。
Delphi 下ServerSocket和ClientSocket 的通信实例
在Delphi编程环境中,ServerSocket和ClientSocket是用于实现网络通信的重要组件,它们分别代表了服务器端和客户端的角色。
ClientSocket
**性能优化**:在大量用户并发连接时,考虑使用线程池管理客户端Socket,避免过多线程消耗资源。3.
DELPHI+ServerSocket+ClientSocket+代码+Socket开发
"DELPHI7使用ServerSocket和ClientSocket组件进行Socket开发的实例,包含建立连接、数据传输和维护Socket连接的代码示例。"在DELPHI中,ServerSo
ClientSocket.zip
在实际开发中,客户端和服务器端的Socket通信还需要考虑多线程、异步处理、数据格式化等问题,以提高程序的性能和可扩展性。


网络及通讯开发
