Delphi在Android上保存文本文件

我必须在我的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”。不是目录

---

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

您无法写入根文件夹。用于查找可写文件夹，例如从

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;

可能重复的