我想从 FTP 服务器下载一些大文件 (GB)。 第一个文件的下载始终有效。然后，当尝试获取第二个文件时，我得到：
“套接字错误#10038。非套接字上的套接字操作。”
错误出现在“获取”上。在“获取”之后，我看到这些消息（通过 FTP 状态事件）：
Starting FTP transfer
Disconnecting.
Disconnected.
代码是这样的：
{pseudo-code}
for 1 to AllFiles do
begin
if Connect2FTP then
begin
FTP.Get(Name, GzFile, TRUE, FALSE); <--- Socket operation on non-socket" error (I also get EIdConnClosedGracefully 'Connection Closed Gracefully' in IDE, F9 will resume execution without problems, but this is OK)
Unpack(GzFile); <--- this takes more than 60 seconds
end;
end;
if FTP.Connected
then FTP.Disconnect;
--
function Connect2FTP(FTP: TIdFTP; RemoteFolder: string; Log: TRichLog): Boolean;
begin
Result:= FTP.Connected;
if NOT Result then
begin { We are already connected }
FTP.Host := MyFTP;
FTP.Username:= usr;
FTP.Password:= psw;
TRY
FTP.Connect;
EXCEPT
on E: Exception DO
Result:= FTP.Connected;
if Result then FTP.ChangeDir(RemoteFolder);
end;
end;
完整代码在这里：http://pastebin.com/RScj86R8(PAS) 或这里https://ufile.io/26b54 (ZIP)
我认为问题是在调用“Unpack”后出现的，这需要几分钟的时间。
更新：已确认：调用“Unpack”后出现问题。我删除了通话，一切都很好。在下载之间暂停（睡眠或断点）程序一段时间（我认为超过 60 秒）会产生同样的问题。
FTP 使用多个套接字连接，一个用于命令/响应，每个传输使用单独的连接。
造成套接字错误的最可能原因是中间存在 FTP 无法识别的代理/路由器/防火墙TIdFTP并且 FTP 服务器在短时间不活动后将关闭命令连接。在此期间Unpack()（或手动暂停），命令连接上没有传输命令/响应，它处于空闲状态，因此可能会因此类代理/路由器/防火墙上的超时而关闭。
在传输期间，命令连接处于空闲状态，不会在其上传输任何 FTP 命令/响应（除非您中止传输），直到传输完成。在此期间，不知道 FTP 的代理/路由器/防火墙可能会提前关闭命令连接。
为了避免这种情况，TIdFTP has a NATKeepAlive属性，可以在命令连接闲置时启用 TCP 保持活动。这通常可以防止过早关闭。
但是，当没有正在进行的传输时，TIdFTP在以下情况下禁用命令连接上的 TCP keepalive：NATKeepAlive.UseKeepAlive是真的。TIdFTP仅在传输期间使用 TCP 保持活动，并假设您不会在 FTP 命令之间执行长时间延迟。如果需要延迟一段时间，要么关闭FTP连接，要么定期发送FTP命令（例如调用TIdFTP.Noop()在计时器/线程中）。
或者，您可以尝试在连接到服务器后手动启用 TCP keep-alives，并设置NATKeepAlive.UseKeepAlive为假所以TIdFTP每次传输后不会自动禁用保持活动，例如：
function Connect2FTP(FTP: TIdFTP; RemoteFolder: string; Log: TRichLog): Boolean;
begin
Result := FTP.Connected;
if not Result then
begin { We are not already connected }
FTP.Host := MyFTP;
FTP.Username:= usr;
FTP.Password:= psw;
try
FTP.Connect;
try
FTP.ChangeDir(RemoteFolder);
// send a TCP keep-alive every 5 seconds after being idle for 10 seconds
FTP.NATKeepAlive.UseKeepAlive := False; // False by default, but just in case...
FTP.Socket.Binding.SetKeepAliveValues(True, 10000, 5000);
except
FTP.Disconnect(False);
raise;
end;
except
Exit;
end;
Result := True;
end;
end;
请注意，虽然大多数平台支持在每个连接的基础上启用 TCP 保持活动（保持活动是 TCP 规范的一部分），但设置保持活动间隔是特定于平台的。目前，Indy 支持将间隔设置为：
否则，将使用操作系统默认间隔，对于这种情况，该间隔的值可能太大也可能不会太大，具体取决于操作系统配置。
目前，除了 Windows 之外，Delphi FireMonkey 中的间隔不可自定义。
如果特定平台支持设置自定义 TCP keep-alive 间隔，但 Indy 没有实现它们SetKeepAliveValues()， 您可以使用TIdFTP.Socket.Binding.SetSockOpt()而不是根据需要手动设置值。很多平台都支持TCP_KEEPIDLE/TCP_KEEPINTVL或等效的套接字选项。