如何设置 Indy 自定义 TIdIOHandler？

Question

我想为我的 Indy TCP 客户端使用自定义 TIdIOHandler，但我不知道如何设置它。我创建了一个新的 IOHandler 类，注册了TIdIOHandler.RegisterIOHandler，然后我将TIdTCPClient.CreateIOHandler 与我的新处理程序引用一起使用。现在，当我尝试写信给TIdTCPClient.Socket 时，我得到“抽象错误”异常...除了我的示例之外，我还需要配置其他东西吗？

  TIdEnhancedIOHandler = class(TIdIOHandlerSocket)
  public
    function Acknowledge(Command: Cardinal = 0): Boolean;
  end

{this is a client in a thread}
constructor TMyTCPClient.Create(const AHost: String; APort: Word);
begin
 inherited Create;
 FreeOnTerminate:= True;
 TIdEnhancedIOHandler.RegisterIOHandler;
 TCPClient:= TIdTCPClient.Create;
 TCPClient.CreateIOHandler(TIdEnhancedIOHandler);
 TCPClient.ConnectTimeout:= 1000;
 TCPClient.ReadTimeout:= -1;
 TCPClient.Host:= AHost;
 TCPClient.Port:= APort;
 RetSuccess:= False;
 RetMessage:= 'Unknown error.';
end;

procedure TMainClient.Execute;
var CMD: Cardinal;
begin
 TCPClient.Connect;
 TCPClient.Socket.Write(CMD);
end;

Answer 1

从 Indy Help 我了解到...

帮助是旧的，并且有过时的信息。

我必须使用 CreateIOHandler 并指定我的自定义 IOHandler 类。

你可以这样做，但实际上你不需要这样做。在调用TIdTCPClient.Connect() 之前，您可以简单地将自定义类的实例直接分配给TIdTCPClient.IOHandler 属性，例如：

TCPClient := TIdTCPClient.Create;
TCPClient.IOHandler :- TIdEnhancedIOHandler.Create(TCPClient);
...

我这样做了，我得到一个异常，说这个类没有安装。

这意味着 Indy 的内部 GIOHandlerClassList 不包含任何从您指定给 CreateIOHandler() 的类类型派生的类类型。

我该如何安装它？保存列表的变量GIOHandlerClassList 是私有的...

您需要在运行时调用自定义类类型的公共 RegisterIOHandler() 或 SetDefaultClass() 类方法，例如在您单元的 initialization 部分中，例如：

initialization
  TIdEnhancedIOHandler.RegisterIOHandler();

然而，Indy 中唯一真正使用CreateIOHandler() 的是TIdSimpleServer，因此在这种情况下无需“注册”您的自定义类。

另一方面，如果没有分配IOHandler，TIdTCPClient.Connect() 会调用TIdIOHandler.MakeDefaultIOHandler()，并且使用由TIdIOHandler.SetDefaultClass() 设置的GIOHandlerClassDefault（也调用RegisterIOHandler()）。因此，如果您希望 TIdTCPClient 为您创建自定义类类型的对象，您至少需要调用 SetDefaultClass()，例如：

initialization
  TIdEnhancedIOHandler.SetDefaultClass();

无论哪种方式，RegisterIOHandler()/SetDefaultClass() 都应该只调用一次，例如在程序启动时。

---

更新：您收到一个抽象错误，因为您从TIdIOHandlerSocket 派生您的类，这是一个抽象 类，因为它没有实现@987654347在TIdIOHandler 中声明为abstract 的@ 和WriteDataToTarget() 方法。您需要从 TIdIOHandlerStack 派生您的类，它从 TIdIOHandlerSocket 派生并实现这些方法。