Delphi XE5 Android问题定位文件

Question

我有问题找到并打开一个文件，我已经存储在我的手机从我的电脑。尽管这个答案有很好的解决方案，但我还是无法让它工作。我在一台HTC Sensation Z710e上运行

下面是我试图运行的代码：

function GetSDCardPath: string;
var MusicPathLength: integer;
    MusicPath, SDCardPath: string;
begin
 MusicPath:=System.IOUtils.TPath.GetSharedMusicPath;
 MusicPathLength:=Length(MusicPath);
 SDCardPath:=Copy(MusicPath, 0, MusicPathLength-5);
 Result:=SDCardPath;
end;

procedure TForm3.Button1Click(Sender: TObject);
var sr:TSearchRec;
begin
  CardPath:=TPath.Combine(GetSDCardPath,'*.*');

  if (FindFirst(CardPath,faNormal,sr)=0) then
  begin
    repeat
      Memo1.Lines.Add(sr.Name);
    until FindNext(sr)<>0;
    FindClose(sr);
  end;
end;

我用下面的代码做了第二次测试，我显然可以存储文件，因为文件名出现在文件列表中，但它似乎没有存储在SD卡上，至少没有显示为我的外部驱动器F：在我的pc.TPath。GetDocumentsPath应该指向SD卡，不是吗？

procedure TForm3.Button1Click(Sender: TObject);
var sr:TSearchRec;
begin
  CardPath:=TPath.Combine(TPath.GetDocumentsPath,'*.*');
  Memo1.Lines.Add(CardPath);

  if (FindFirst(CardPath,faAnyFile,sr)=0) then
  begin
    repeat
      Memo1.Lines.Add(sr.Name);
    until FindNext(sr)<>0;
    FindClose(sr);
  end;
end;

procedure TForm3.WriteClick(Sender: TObject);
var
  s: string;
  F:TextFile;
begin
  Memo1.Lines.Clear;
  s := TPath.Combine(TPath.GetDocumentsPath,'file2.txt');
  AssignFile(F,s);
  ReWrite(F);
  Writeln(F,'Test');
  CloseFile(F);
end;

首先，我单击“写入”按钮写入文件，然后通过单击按钮1列出目录中的文件。卡片路径是/data/data/com。恩巴卡德罗。TestApp2/files/。我有一个Android/data/com。恩巴卡德罗。TestApp 2/文件/文件夹在我的pc设备上可见，但没有文件。文件是否存储在我的设备中？

Answer 1

我终于找到了解决这个问题的方法。通过使用TPath。GetSharedDocumentsPath我可以看到从PC上的应用程序保存的文件，如果设备没有被连接为驱动器保存时（在本页提到）。E. i.当使用应用程序时，电脑不能同时使用SD卡作为驱动器。