Halo an Alle,
brauche bitte Hilfe mit dispinterface, bzw. mit dem Auslesen des Errocodes aus dem Eventobjekt.
Die MsgBox reagiert auf die Events, aber leider ohne die benoetigten Errocodes.
Die Suche hat mir keinen entscheidenden Hinweis geboten, daher waere ich fuer ein Tip sehr dankbar.
MfG Ed
Spoiler anzeigen
;=======================================================================================
;...Auszug aus der IDL
;=======================================================================================
helpstring("_IXDLLEvents-Ereignisschnittstelle")
]
dispinterface _IXDLLEvents {
properties:
methods:
[id(0x00000001), helpstring("method Transfer")]
HRESULT Transfer([in] VARIANT data);
[id(0x00000002), helpstring("method Error")]
HRESULT Error([in] unsigned char ErrorCode);
};
;========================================================================================
;...Auszug aus VBA(Funktioniert)
;========================================================================================
Private Sub xd_Error(ByVal ErrorCode As Byte)
MsgBox ErrorCode
End Sub
;========================================================================================
;...Hier Schnipsel in Autoit(mit MsgBox gehts, aber ohne ErrorWert)
;========================================================================================
Global $Obj = ObjCreate("XDLL.HauptInterface")
$evnts=ObjEvent($Obj,"_Event_")
Func _Event_Error()
MsgBox (0,"", "Error",3)
EndFunc