我有一个 Delphi XE5 Android 应用程序,它连接到在 PC 上运行的 Indy FTP 服务器(服务器是 Indy 10 IdFTPServer 演示)。我通过 FTP 从服务器获取相同的文件(每 2 秒)并在我的 Android 设备上的标签中显示内容(24 个字符)。它总是工作 16 次,然后 android 应用程序退出。从服务器的角度来看,它报告“10054,对等连接重置”
这是代码:
procedure TForm3.FetchTimerTimer(Sender: TObject);
var
str : string;
begin
inc(FetchCnt);
aStream.Position := 0;
FTP.Get('Time1.txt', aStream);
aStream.Position := 0;
str := aStream.ReadString(255);
CmdLabel.text := inttostr(FetchCnt) + ') ' + str;
end;
16 是一个神奇的数字吗?在第 16 次 FTP 之前按预期工作。获得想法?