Inno Setup：如何获取引发异常的异常代码？

Question

我有以下引发异常的函数：

procedure Test();
var
  WinHttpReq: Variant;
begin
  WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
  try
    WinHttpReq.Open('POST', 'https://tv.eurosport.com/', False);
    WinHttpReq.SetRequestHeader('Content-Type', 'application/json');
    WinHttpReq.Send('');
  except
    MsgBox(GetExceptionMessage, mbError, MB_OK);
  end;
end;

我想以整数形式获取错误，而不是在字符串GetExceptionMessage 中获取错误。

这可能吗？

Answer 1

异常一般没有任何代码。所以没有通用的方法可以从异常中检索代码。

在这种特殊情况下，异常基于 OLE 自动化错误，该错误确实有代码。但是，当 Inno Setup 引发 IDispatch 接口 (OLE) 的异常时，代码不会被保留。

---

你可以做的是使用IUnknown接口。为此，您需要：

• 为IWinHttpRequest定义一个Pascal风格的接口
• 定义CLSID_WinHttpRequest
• 使用CreateComObject（而不是CreateOleObject）实例化对象。
• 调用定义为function Send(Body: Variant): HResult的Send方法
• 检查返回的HResult 是否为 12038 (ERROR_INTERNET_SEC_CERT_CN_INVALID)。

尤其是第一步是一项庞大且容易出错的任务。

---

示例和详细信息，请参见：

• Examples\CodeAutomation2.iss 在您的 Inno Setup 安装中。
• Pascal Scripting: Using COM Automation objects

---

如果您决定坚持使用错误消息比较，您可以尝试使用FormatMessage function 检索系统/本地化错误消息以进行比较。见How i can retrieve the error description for a WinInet error code from delphi。