繁体   English   中英

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

[英]Delphi XE4 / iOS deployment system not working?

在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;

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

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

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM