Inno Setup: Wie kann ich den Ausnahmecode einer ausgelösten Ausnahme erhalten?

Question

I haben folgende Funktion, die eine Ausnahme aufwirft:

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; 

Statt der Fehler in einer Zeichenfolge zu erhalten GetExceptionMessage, ich möchte den Fehler als eine Ganzzahl erhalten.

Ist das möglich?

Answer 1

Ausnahmen haben im Allgemeinen keinen Code. Es gibt also keine allgemeine Möglichkeit, einen Code von einer Ausnahme abzurufen.

In diesem speziellen Fall basiert die Ausnahme auf einem OLE-Automatisierungsfehler, der über einen Code verfügt. Der Code wird jedoch nicht beibehalten, wenn das Inno-Setup die Ausnahme für IDispatch Schnittstellen (OLE) auslöst.

---

Was Sie tun können, ist die IUnknown Schnittstelle zu verwenden. Dafür müssen Sie:

• eine Pascal-Stil-Schnittstelle für die
• definieren CLSID_WinHttpRequest
• das Objekt mit dem CreateComObject (anstelle der CreateOleObject) instanziiert IWinHttpRequest definieren.
• Aufruf der Methode definiert als Sendfunction Send(Body: Variant): HResult
• Prüfung der zurück HResult für 12038 (ERROR_INTERNET_SEC_CERT_CN_INVALID).

Vor allem der erste Schritt ist eine große und eine fehleranfällige Aufgabe.

---

Beispiele und Details finden Sie unter:

• Examples\CodeAutomation2.iss in Ihrem Setup-Installation Inno.
• Pascal Scripting: Using COM Automation objects

---

Wenn Sie sich entscheiden, mit Fehlermeldung Vergleich zu bleiben, können Sie versuchen, die FormatMessage function zu verwenden, um das System/lokalisierte Fehlermeldung mit vergleichen abzurufen. Siehe How i can retrieve the error description for a WinInet error code from delphi.