我已经直接向 X-SuperObject 项目报告了这个问题,但我想我可能会在 Stack Overflow 上获得更多质量帮助。
使用 Delphi XE8,我在 iOS 模拟器(7.1、8.1、8.2 和 8.3)上使用 XSuperObject 时遇到问题。所以我开始了一个空的 Firemonkey 应用程序,开始添加一些我之前项目中的东西(此时我不知道问题是什么)。在我将最新的 XSuperObject 和 XSuperJSON 单元添加到我的应用程序之前,一切都运行良好。
uses
XSuperObject, XSuperJSON;
在 iOS 模拟器中运行时,出现异常:
Project dyld_sim raised exception class EOSError with message 'System Error. Code: 2. No such file or directory.
我没有代码,除了添加单元(XSuperObject、XSuperJSON)和一些基本控件(面板、按钮和组合框)外,我没有做任何更改。
当我休息时,我需要:
System.SysUtils.RaiseLastOSError
- 最后一行raise Error;
...这只是引发实际异常本身的地方,没有任何相关性。
因此,我打开了主项目文件并在第一行放置了一个断点,Application.Initialize;
但从未达到该断点。我还在 XSuperObject 和 XSuperJSON 的“初始化”中设置了断点,它们都没有停止。
一旦我删除了两个单元,一切都恢复了。
这里出了什么问题,我该如何解决?
- X-SuperObject 版本:在报告之前从此处提取更新
- Delphi XE8 版本 22.0.19027.8951(无更新)
- IDE 操作系统:Windows 7 SP1(版本 6.1,Build 7601,64 位)
- Mac 操作系统:OS-X 10.10.3
- 目标操作系统:iOS 模拟器 - iPad Air / iOS 8.2 (12D508)
注意:以上版本详细信息只是一个具体示例,但我无法让它在任何 iOS 设备/版本上运行。
更新:调试系统(第115单元初始化)后,我来了解引发异常的点。在System.RegularExpressionsCore
第 680 行...
{$IFDEF DYNAMIC_LIB}
class constructor TPerlRegEx.Create;
begin
if not LoadPCRELib then
RaiseLastOSError; //<-- Exception raised here
end;
{$ENDIF DYNAMIC_LIB}
而里面LoadPCRELib
...
{$IFDEF DYNAMIC_LIB}
function LoadPCRELib: Boolean;
function GetProcAddr(const ProcName: MarshaledAString): Pointer;
begin
dlerror;
Result := dlsym(_PCRELib, ProcName);
end;
procedure SetCallback(const cbName: MarshaledAString; ProcPointer: Pointer);
begin
Pointer(GetProcAddr(cbName)^) := ProcPointer;
end;
begin
Result := True;
if _PCRELib = 0 then
begin
Result := False;
_PCRELib := HMODULE(dlopen(PCRELib, RTLD_LAZY)); //<-- Returns 0 (no handle)
if _PCRELib <> 0 then
begin
// Setup the function pointers
...
Result := True;
end;
end;
end;
{$ENDIF}
在仅使用此单元运行项目时,它运行得很好。
所以它似乎无法找到/usr/lib/libpcre.dylib
,但前提是我使用的是 X-SuperObject。
我已经更新了我的所有环境,包括 OS-X、XCode、iOS 模拟器和 Delphi IDE 中的 SDK 链接(全部删除并重新创建它们)。我已经验证了 SDK 和 iOS 版本完全匹配。但问题仍然存在。