Indy FTP、大文件和 NAT 路由器

Question

多年来，我一直使用 Indy 通过 FTP 传输文件，但一直未能为以下问题找到满意的解决方案。

当用户在路由器后面上传大文件时，有时会发生以下情况：文件上传正常，但同时命令通道由于超时而断开连接。通常，直接连接到服务器时不会发生这种情况，因为服务器“知道”数据通道上正在发生传输。不过，有些路由器并没有意识到这一点，并且命令通道已关闭。

许多程序会定期发送 NOOP 命令以保持命令通道处于活动状态，即使这不是标准 FTP 规范的一部分。我的问题：我该怎么做？我是否在 OnWork 事件中发送 NOOP 命令？这是否会以某种方式造成任何附带损害，例如，我是否需要处理一些响应？我该如何最好地解决这个问题？

Answer 1

我们使用几种方法来处理这个问题：(1) 在传输期间在控制通道上启用TCP/IP keepalives，(2) 在连接断开后正常恢复，(3) 支持恢复中断的传输。

很多 FTP 客户端会在一切空闲时发送 NOOP，但我不知道是否有任何在数据传输期间发送它们，因为在这种情况下您需要处理响应，并且许多服务器不会发送直到数据传输完毕。

1. Indy 10.5.8 (Delphi XE2) 原生支持 TCP/IP 保持活动。只需使用 TIdFTP 的 NATKeepAlive 属性即可。

   对于以前的版本，分配 OnDataChannelCreate/OnDataChannelDestroy 事件：

   const
     KeepAliveIdle = 2 * SecsPerMin;
     KeepAliveInterval = 2 * SecsPerMin;
     IOC_VENDOR = $18000000;
     SIO_KEEPALIVE_VALS = DWORD(IOC_IN or IOC_VENDOR or 4);
   
   type
     tcp_keepalive = record
       onoff: u_long;
       keepalivetime: u_long;
       keepaliveinterval: u_long;
     end;
   
   procedure TFtpConnection.DataChannelCreated(Sender: TObject;
     ADataChannel: TIdTCPConnection);
   var
     Socket: TIdSocketHandle;
     ka: tcp_keepalive;
     Bytes: DWORD;
   begin
     // Enable/disable TCP/IP keepalives.  They're very small (40-byte) packages
     // and will be sent every KeepAliveInterval seconds after the connection has
     // been idle for KeepAliveIdle seconds.  In Win9x/NT4 the idle and timeout
     // values are system wide and have to be set in the registry;  the default is
     // idle = 2 hours, interval = 1 second.
     Socket := (FIdFTP.IOHandler as TIdIOHandlerSocket).Binding;
     if Win32MajorVersion >= 5 then begin
       ka.onoff := 1;
       ka.keepalivetime := KeepAliveIdle * MSecsPerSec;
       ka.keepaliveinterval := KeepAliveInterval * MSecsPerSec;
       WSAIoctl(Socket.Handle, SIO_KEEPALIVE_VALS, @ka, SizeOf(ka), nil, 0, @Bytes,
         nil, nil)
     end
     else
       Socket.SetSockOpt(Id_SOL_SOCKET, Id_SO_KEEPALIVE, Id_SO_True)
   end;
   
   procedure TFtpConnection.DataChannelDestroy(ASender: TObject;
     ADataChannel: TIdTCPConnection);
   var
     Socket: TIdSocketHandle;
   begin
     Socket := (FIdFTP.IOHandler as TIdIOHandlerSocket).Binding;
     Socket.SetSockOpt(Id_SOL_SOCKET, Id_SO_KEEPALIVE, Id_SO_False)
   end;
   

2. 若要在文件已成功传输后正常恢复，只需在最后重新连接并执行 SIZE 或 LIST 以获取文件大小。如果它们匹配，则文件已成功传输，您无需执行任何其他操作。如果服务器支持，也可以发送XCRC命令获取CRC值，与本地文件对比。

3. 如果你想真正健壮，也可以查看TIdFTP.CanResume。如果设置了服务器支持 REST 命令，那么您可以通过将true 传递给TIdFTP.Get/Put 的AResume 参数来从中断的地方继续传输。

   李>