Hallo liebe Leute,
ich habe ein kleines Problem und finde bei Google nichts darüber
Vielleicht könnt ihr mir weiter helfen.
Ich bastele gerade an einem Script Interpreter.
Dieser führt die Textdateien mit VB.NET Code aus.
Nun möchte ich eine Möglichkeit für die Kommunikation der Scripte mit dem Programm schaffen.
Dafür verwende ich Events. Diese Events sollen von meinem Script Interpreter nicht verarbeitet sondern lediglich weitergeleitet werden.
Doch dafür müssten die Events in dem Script Interpreter deklariert werden. Dann die von dem Script ausgelösten Events abgefangen und weitergeleitet werden. Da die Scripte erst zu Laufzeit erstellt werden, werden die Events per Reflection angebunden. Die Events die von dem ScriptInterpreter Abgefangen werden, kriegen alle ein Attribut(selbst definiert) der angibt um welchen Event es sich handelt.
Dieser Verfahren macht den QuellCode nur unnötig lang und die Erweiterung um ein Event viel zu kompliziert (ich gehe davon aus, dass in der Entwicklungszeit noch mehrere Events dazukommen).
Meine Idee war alle Events in einem Allgemeinen Eventhandler abzufangen und weiterzuleiten.
Die Events müssen dann immer noch manuell deklariert werden und das gleiche Attribut wie die Events in dem Script erhalten. Der Rest soll automatisch passieren.
Ich habe es hingekriegt, dass alle Events in eine allgemeine Funktion münden.
Dim mi As MethodInfo = [GetType]().GetMethod(NameOf(ScriptEvent), _
BindingFlags.NonPublic Or BindingFlags.Instance)
' lst wird mit den EventInfo der Script-Events gefüllt
For Each e As EventInfo In lst
Dim eventType As eScriptEventType = e.GetCustomAttribute(Of _
MyScriptEvent)().EventType
' Hier wird es geprüft, ob der Event automatisch verarbeitet werden soll.
If MyAutoHandledEvents.ContainsKey(eventType) Then
e.AddEventHandler(scriptInstance, [Delegate].CreateDelegate( _
e.EventHandlerType, Me, mi))
End If
Next Jetzt brauche ich in der Funktion "ScriptEvent", die das Event weiterleiten soll, die Information welches Event verarbeitet wird um den entsprechenden Event zu Raisen. Mein Ansatz mit StackTrace Funktioniert nicht, da Dort die Events nicht auftauchen.
Private Sub ScriptEvent(sender As Object, e As EventArgs)
Dim stack As New StackTrace()
If stack.FrameCount > 1 Then
Dim frame As StackFrame = stack.GetFrame(1)
' Hier kommt das Fehler, da der Frame kein Event, sondern ist die
' Funktion, die das Event auslöst.
Dim eventType As eScriptEventType = frame.GetMethod.GetCustomAttribute(Of _
MyScriptEvent)().EventType
If MyAutoHandledEvents.ContainsKey(eventType) Then
Dim method As MethodInfo = MyAutoHandledEvents( _
eventType).GetRaiseMethod()
If Not method Is Nothing Then
method.Invoke(Me, {sender, e})
End If
End If
End If
End Sub Hat jemand eine Idee, wie ich herausfinden kann, welches Event gerade verarbeitet wird?
___________________________________________________________________________________________
Jeder, der behauptet das gesamte .NET-Framework zu kennen ist entweder verrückt oder Sheldon Cooper |