[英]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.