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