android - Delphi 在 Android 上保存文本文件

Question

我必须在我的 android 项目上上传一个文本文件，所以我使用了 IdFTP。这是代码:

Button2.Enabled:=False;
Label5.Text:='Uploading...';

Memo1.Lines.Add(Edit1.Text+':'+ComboBox1.Items.Text);
Memo1.SaveToFile('filehost.txt');

try
 IdFTP1.Connect;
  // I set the host, password and username
 IdFTP1.Put('filehost.txt');
finally
 IdFTP1.Disconnect;

我遇到了一个问题，因为当我在我的三星 (Android 2.3) 上运行该应用程序时，出现了一条错误消息，提示 无法创建文件“/filehost.txt”。不是目录。

我必须将 Memo1 的内容保存在我的 Android 设备中，然后使用 IdFTP 上传它。我该如何避免该错误？

Answer 1

您不能写入根文件夹。使用 TPath查找可写文件夹，例如从 TPath.GetTempPath() 或 TPath.GetDocumentsPath()。

或者，根本不使用文件。 TIdFTP.Put() 有一个重载版本，它上传一个 TStream 而不是一个文件，例如:

var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    Memo1.Lines.SaveToStream(MS);
    MS.Position := 0;
    ...
    IdFTP1.Put(MS, 'filehost.txt');
    ...
  finally
    MS.Free;
  end;
end;