안드로이드 파이어몽키 지정된폴더에 파일목록 불러오기

Rad Studio 11 최신버전에서도 구동이 가능합니다.

 

 

uses Androidapi.Helpers; // JStringToString 및 StringToJstring 쓰기위해서는 추가 해주시길.

procedure TForm1.Button1Click(Sender: TObject);
var TmpFile : JFile;
    TmpFileList: TJavaObjectArray<JFile>;
Begin
 TmpFile := TJFile.JavaClass.init(StringToJstring('앱 폴더경로'));
 TmpFileList := TmpFile.listFiles;
  for var I : integer := 0 to TmpFileList.Length-1 do
   ListView1.Items.Add.Text := ExtractFileName(JStringToString(TmpFileList.Items[i].toString));
end;



파일명만 출력하실분은 밑에

ListView1.Items.Add.Text := ExtractFileName(JStringToString(TmpFileList.Items[i].toString));

파일경로 출력하실분은 밑에

ListView1.Items.Add.Text := JStringToString(TmpFileList.Items[i].toString);



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


첨부된 파일에는 내부경로 가져올때 쓰시면됩니다

uses Androidapi.Helpers, DPF.Android.OS; // DPF.Android.OS에서는 TJEnvironmen 포함으로 들어가있는것입니다^^

procedure TForm1.Button1Click(Sender: TObject);
var TmpFile : JFile;
    TmpFileList: TJavaObjectArray<JFile>;
Begin
  var TmpStr: string := JStringToString(TJEnvironmen.JavaClass.getExternalStorageDirectory.getAbsolutePath)+'/Download';
 TmpFile := TJFile.JavaClass.init(StringToJstring(TmpStr));
 TmpFileList := TmpFile.listFiles;
  for var I : integer := 0 to TmpFileList.Length-1 do
   ListView1.Items.Add.Text := ExtractFileName(JStringToString(TmpFileList.Items[i].toString));
end;