Internet Explorer COM-Automatisierung: Konvertieren von numerischen Fehlercode in Zeichenfolge

Question

Ich schreibe einen Code zum Fahren Internet Explorer von einem Perl 5-Programm über Win32::OLE, und ich bin auf der Suche nach Möglichkeiten zur Konvertierung von numerischen Status/Fehlercodes, die an die zurückgegeben werden Perl-Programm über Ereignisse (wie NavigateError) in eine etwas besser lesbare Form.

Gibt es eine Art von Bibliotheksfunktion, die konvertiert, d. H. 0x800C0005L oder -2146697211 zu "INET_E_RESOURCE_NOT_FOUND" oder etwas noch lesbarer?

Ich habe versucht Win32::FormatMessage(), aber das scheint nur für nicht anwendungsspezifische Fehlerbedingungen zu arbeiten.

Aktualisierung: Hier ist ein Beispielcode zur Erläuterung. Einige Test Ausgabe ist unten gezeigt.

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

use Time::HiRes qw(sleep time); 
use Win32::OLE qw(EVENTS); 
use Win32::OLE::Variant; 

$|++; 

sub ie_browse { 
    my $url = shift; 
    my $ie = Win32::OLE->new('InternetExplorer.Application') or die; 
    Win32::OLE->WithEvents($ie, 
     sub { 
      my ($obj, $event, @args) = @_; 
      given ($event) { 
       when ('NavigateComplete2') { 
        push @extra, 
         'url='.($args[1]->As(VT_BSTR)); 
        say "$event: @extra"; 
       } 
       when ('NavigateError') { 
        push @extra, 
         'url='.($args[1]->As(VT_BSTR)), 
         'statuscode='.($args[3]->As(VT_I4)); 
        say "$event: @extra"; 
       } 
      } 
     }, 'DWebBrowserEvents2'); 
    Win32::OLE->SpinMessageLoop; 
    $ie->{visible} = 1; 
    Win32::OLE->SpinMessageLoop; 
    $ie->Navigate2($url); 
    Win32::OLE->SpinMessageLoop; 
    while(1) { 
     Win32::OLE->SpinMessageLoop; 
     sleep(0.1); 
    } 
} 

ie_browse $ARGV[0]; 

Hier ist eine Ausgabe für zwei Fetch Versuch. Das Abrufen der Stapelüberlauf Seite ist natürlich erfolgreich.

C:\Documents and Settings\nobody\Desktop>perl ie.pl http://stackoverflow.com/ 
NavigateComplete2: url=http://stackoverflow.com/ 
Terminating on signal SIGINT(2) 

Aber example.invalid existiert nicht.

C:\Documents and Settings\nobody\Desktop>perl ie.pl http://example.invalid/ 
NavigateError: url=http://example.invalid/ statuscode=-2146697211 
NavigateComplete2: url=http://example.invalid/ 
Terminating on signal SIGINT(2) 

Ich interessiere mich für Drehen dieser numerische Wert (-2146697211), die war wieder in etwas Nützliches geben. Dies ist kein OLE-Fehler als solcher, sondern eine Fehlerbedingung , die vom Internet Explorer-COM-Objekt signalisiert wird.

Answer 1

Update: Im Lichte Ihres Kommentars, ich glaube, Sie suchen nach der Dokumentation von Microsoft auf dem NavigateError Ereignis:

 
INET_E_INVALID_URL (0x800C0002L or -2146697214) 
INET_E_NO_SESSION (0x800C0003L or -2146697213) 
INET_E_CANNOT_CONNECT (0x800C0004L or -2146697212) 
... 

Sie ein Modul durch Analysieren dieser Liste erstellen konnte:

package Win32::WebBrowserControl::ErrorMnemonics; 

use strict; 
use warnings; 

my %lookup; 

sub import { 
    my $class = shift; 
    while (my $x = <DATA>) { 
     my ($mnemonic, $code) = ($x =~ m{ 
      ^(INET_E_[A-Z_]+) 
      [ ] 
      \(
       0x[[:xdigit:]]+L 
       [ ] or [ ] 
       (-[[:digit:]]+) 
      \) 
     }x) or next; 
     $lookup{$code} = $mnemonic; 
    } 
} 

sub lookup { 
    my $self = shift; 
    return $lookup{shift()}; 
} 

1; 
__DATA__ 
INET_E_INVALID_URL (0x800C0002L or -2146697214) 
INET_E_NO_SESSION (0x800C0003L or -2146697213) 
INET_E_CANNOT_CONNECT (0x800C0004L or -2146697212) 
INET_E_RESOURCE_NOT_FOUND (0x800C0005L or -2146697211) 
INET_E_OBJECT_NOT_FOUND (0x800C0006L or -2146697210) 
INET_E_DATA_NOT_AVAILABLE (0x800C0007L or -2146697209) 
INET_E_DOWNLOAD_FAILURE (0x800C0008L or -2146697208) 
INET_E_AUTHENTICATION_REQUIRED (0x800C0009L or -2146697207) 
INET_E_NO_VALID_MEDIA (0x800C000AL or -2146697206) 
INET_E_CONNECTION_TIMEOUT (0x800C000BL or -2146697205) 
INET_E_INVALID_REQUEST (0x800C000CL or -2146697204) 
INET_E_UNKNOWN_PROTOCOL (0x800C000DL or -2146697203) 
INET_E_SECURITY_PROBLEM (0x800C000EL or -2146697202) 
INET_E_CANNOT_LOAD_DATA (0x800C000FL or -2146697201) 
INET_E_CANNOT_INSTANTIATE_OBJECT (0x800C0010L or -2146697200) 
INET_E_REDIRECT_FAILED (0x800C0014L or -2146697196) 
INET_E_REDIRECT_TO_DIR (0x800C0015L or -2146697195) 
INET_E_CANNOT_LOCK_REQUEST (0x800C0016L or -2146697194) 
INET_E_USE_EXTEND_BINDING (0x800C0017L or -2146697193) 
INET_E_TERMINATED_BIND (0x800C0018L or -2146697192) 
INET_E_INVALID_CERTIFICATE (0x800C0019L or -2146697191) 
INET_E_CODE_DOWNLOAD_DECLINED (0x800C0100L or -2146696960) 
INET_E_RESULT_DISPATCHED (0x800C0200L or -2146696704) 
INET_E_CANNOT_REPLACE_SFP_FILE (0x800C0300L or -2146696448) 
INET_E_CODE_INSTALL_BLOCKED_BY_HASH_POLICY (0x800C0500L or -2146695936) 
INET_E_CODE_INSTALL_SUPPRESSED (0x800C0400L or -2146696192) 

Für OLE-bezogene Fehler, siehe Win32::OLE Dokumentation:

Win32::OLE->LastError()

Die LastError() Klasse Methode liefert der letzte Fehler aufgezeichnet OLE. Dies ist ein Dual-Wert wie die $! Variable: in einem numerischen Kontext gibt es den Fehler Nummer zurück und in einem String-Kontext gibt die Fehlermeldung zurück. Der Fehler Nummer ist ein signierter HRESULT Wert. Verwenden Sie bitte die Funktion , um eine vorzeichenlose hexadezimale Konstante in eine signierte HRESULT zu konvertieren.