fmx 获取相册文件名路径

FMX（FireMonkey）是Delphi的一个框架，主要用于跨平台的移动应用和桌面应用程序开发。当你想要获取相册文件名路径时，在FMX环境中，通常涉及到访问用户设备的照片库。这通常通过`TFilePicker`组件或者第三方库来实现，比如`Indy`库中的`TIdPhotos`。

以下是一个简单的示例：

uses
  FMX.Controls,
  FMX.Forms,
  Indy Phototools;

type
  TForm1 = class(TForm)
    FilePicker1: TFilePicker;
    procedure FilePicker1Browse(Sender: TObject);
  private
    procedure GetAlbumFiles(const FolderPath: string);
  public
    { Form Designer generated code }
  end;

procedure TForm1.GetAlbumFiles(const FolderPath: string);
begin
  TIdPhotos合影Albums.Values.Do(
    function(ImageSet: TImageSet) begin
      ImageSet.Files.Values.Do(
        procedure(File: TImageFile) begin
          Memo1.Lines.Add(File.Path); // 这里将文件路径添加到Memo组件中
        end
      );
    end
  );
end;

procedure TForm1.FilePicker1Browse(Sender: TObject);
var
  AlbumPath: string;
begin
  if FilePicker1.FilterIndex = 0 then // 假设我们选择的是图片库
  begin
    AlbumPath := FilePicker1.Directory;
    if DirectoryExists(AlbumPath) then
    begin
      GetAlbumFiles(AlbumPath);
    end;
  end;
end;

在这个例子中，`FilePicker1Browse`事件触发时，你会得到所选照片库的路径，然后调用`GetAlbumFiles`函数来遍历并获取每个照片集下的文件路径。记得安装`Indy`库并且设置正确的权限才能访问用户照片。