Delphi iOS：调用默认应用打开文件或显示应用选择器失败求助

问题核心 #

你当前代码弹出空面板的原因主要有3个关键错误：

• NSURL 创建方式错误：本地文件路径不能用 URLWithString，这个方法用于网络URL，本地文件必须用 fileURLWithPath 生成正确的file scheme URL。
• UTI 设置过于宽泛：public.data 是通用类型，极少有应用会注册响应这个类型，需要根据文件实际扩展名设置对应的UTI，或者让系统自动推断。
• 交互控制器生命周期与弹出位置问题：UIDocumentInteractionController 没有被持有，可能被提前释放；同时用空Rect弹出菜单会导致位置异常，影响系统识别可用应用。

修正后的代码 #

procedure Base64StringToFileAndOpen(const base64String: string; Filename: string);
var
  decodedBytes: TBytes;
  filePath: string;
  fileStream: TFileStream;
  interactionController: UIDocumentInteractionController;
  NSU: NSURL;
  fileExt: string;
  uti: NSString;
  rootVC: UIViewController;
begin
  // 解码Base64字符串为字节数组
  decodedBytes := TNetEncoding.Base64.DecodeStringToBytes(base64String);

  // 生成临时文件路径
  filePath := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetTempPath, Filename);

  // 写入文件
  fileStream := TFileStream.Create(filePath, fmCreate);
  try
    fileStream.WriteBuffer(decodedBytes[0], Length(decodedBytes));
  finally
    fileStream.Free;
  end;

  // 1. 用fileURLWithPath创建本地文件的NSURL
  NSU := TNSURL.Wrap(TNSURL.OCClass.fileURLWithPath(StrToNSStr(filePath)));
  interactionController := TUIDocumentInteractionController.Wrap(TUIDocumentInteractionController.alloc.init);
  interactionController.setURL(NSU);

  // 2. 根据文件扩展名获取正确的UTI，或让系统自动推断
  fileExt := System.IOUtils.TPath.GetExtension(Filename).ToLower;
  if fileExt = '.pdf' then
    uti := StrToNSStr('com.adobe.pdf')
  else if fileExt = '.docx' then
    uti := StrToNSStr('org.openxmlformats.wordprocessingml.document')
  else if fileExt = '.xlsx' then
    uti := StrToNSStr('org.openxmlformats.spreadsheetml.sheet')
  else
    // 如果是其他格式，让系统通过文件URL推断UTI
    uti := TNSURL.Wrap(NSU).typeIdentifier;

  interactionController.setUTI(uti);

  // 3. 用可见视图的Rect弹出菜单，同时确保控制器被持有
  if SharedApplication.keyWindow <> nil then
  begin
    rootVC := SharedApplication.keyWindow.rootViewController;
    if rootVC <> nil then
    begin
      // 使用根视图控制器的整个视图区域作为弹出参考
      interactionController.presentOpenInMenuFromRect(rootVC.view.bounds, rootVC.view, true);
      // 非ARC环境下需保留控制器避免被释放：interactionController.retain;
    end;
  end;
end;

额外注意事项 #

• UTI 匹配：如果有更多文件类型，需要补充对应的UTI值，可通过苹果官方文档查询对应格式的标准UTI。
• 控制器生命周期：UIDocumentInteractionController 建议声明为类成员变量，避免方法结束后被释放导致菜单无法正常显示。
• 文件权限：临时目录文件默认有读取权限，若使用自定义目录需确保应用有访问权限。

内容的提问来源于stack exchange，提问作者fisi-pjm