PCで実行されているIndy FTPサーバーに接続するDelphi XE5 Androidアプリがあります(サーバーはIndy 10 IdFTPServerデモです)。サーバーから同じファイルを (2 秒ごとに) FTP.Get し、その内容 (24 文字) を Android デバイスのラベルに表示します。常に 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 の後まで期待どおりに動作します。アイデアを得る ?