Delphi XE4 / iOS部署系统无法正常工作?

时间:2013-06-23 11:11:23

标签: ios delphi delphi-xe4

在Delphi XE4中>项目>部署我有一个名为“res.zip”的文件的引用它被设置为放置在远程路径“res.zip”

但是,“FileExists”在代码下面返回false(在iOS 6.1模拟器中运行):

procedure TFormMain.InitCreate_Uncompress;
var
  H: string;
  P: string;
  Z: TZipFile;
begin
  H := GetHomePath;
  P := H + PathDelim + 'res.zip'; 
  if FileExists(P) then
    begin
      Z := TZipFile.Create;
      try
        Z.Open(P, zmRead);
        Z.ExtractAll(H + PathDelim + 'Library');
      finally
        Z.Free;
      end;
    end
  ;
end;

1 个答案:

答案 0 :(得分:0)

在Delphi论坛中找到了答案。路径是

GetHomePath + PathDelim + Application.Title + '.app' + PathDelim;