C++ Builder - 使用 TIdTCPServer 以编程方式创建 TCP 服务器连接

Question

我需要使用 TIdTCPServer 组件实现一个 TCP 服务器 连接。 我已经使用 GUI(拖放)及其工作完成了它。但我需要拆分表单和 TCP 实现。到目前为止我看到的示例代码总是使用 TIdTCPServer 作为 TForm 类的成员。(拖放的结果)。

我如何调用从 TForm 实现的 TCPConnection 类

TCPConnection CConnection = new TCPConnection(Owner, this);

以下是我尝试创建 TCP 服务器 连接的方法。

TCPConnection::TCPConnection(TComponent* Owner, TForm4* TSuperForm){
    IdTCPServer1 = new TIdTCPServer(Owner);
    IdTCPServer1->Bindings->Clear();
    //IdTCPServer1->Bindings->Add()->SetBinding("10.10.2.103", 774);

    IdTCPServer1->OnConnect = (TIdServerThreadEvent)(&OnConnect);
    IdTCPServer1->OnExecute = (TIdServerThreadEvent)&OnExecute;
    IdTCPServer1->OnDisconnect = (TIdServerThreadEvent)&OnConnect;
    IdTCPServer1->OnException =  (TIdServerThreadExceptionEvent)&OnException;
     IdTCPServer1->DefaultPort = 774;
    IdTCPServer1->Bindings->Add();
    IdTCPServer1->Bindings->Items[0]->IP="10.10.2.103";
    IdTCPServer1->Bindings->Items[0]->Port=774; 


    IdTCPServer1->ListenQueue = 15;
    IdTCPServer1->MaxConnections = 15;
    IdTCPServer1->TerminateWaitTime = 5000;
    IdTCPServer1->Active = true;



    this->TSuperForm = TSuperForm;

}

到目前为止代码有效。但是当我尝试访问上下文时，连接丢失并且抛出异常

void TCPConnection::OnConnect(TIdContext *AContext){
    String IP = AContext->Binding()->PeerIP;
}

void TCPConnection::OnException(TIdContext *AContext, Exception *AException)

{
    ShowMessage("Error:" + AException->ToString());    
}

Error 说 TIdTaskThreadWork (我会编辑错误，可能是错误的) 如果我不尝试访问 AContext，连接将保持没有问题。

可能是关于线程，锁定列表，......

有什么建议吗？

Answer 1

那些函数转换看起来很臭。您确定已将函数定义为 __fastcall，因为根本不需要函数转换。

如果您已正确定义它们，这应该就是您所需要的。

IdTCPServer1->OnConnect = &OnConnect;
// ... etc...