OnNewEvent
Diese Event Methode wird auf allen Clients aufgerufen, die diese Event Schnittstelle implementieren und verbinden, wenn ein neues Event ausgegeben wird. Das Event wurde vom SPS Funktionsblock ADSLOGEVENT ausgegeben, indem ein Merker von FALSE auf TRUE gesetzt wurde (oder ein anderes ADS Gerät) oder durch den Aufruf einer Report Event Funktion, wie ITcEventLogC:: ReportEvent,ITcEventC3:: ReportEventEx oder ITcEventLog::ReportEvent.
HRESULT OnNewEvent([in] IDispatch* evtObj);
Parameter
evtObj
[in] IDispatch Pointer auf ein neues Eventobjekt der Klasse TvEvent. Das Eventobjekt stellt den vollen Zugriff auf die Neuausgabe des Events zur Verfügung. Jeder Client erhält einen Hinweis auf das Eventobjekt und eine Kopie.
Rückgabe Werte
S_OK
Funktion wurde erfolgreich aufgerufen.
E_POINTER
evtObj war kein gültiger Pointer.
Visual Basic Beispielcode
Option Explicit
Dim WithEvents evtLogger As TCEVENTLOGGERLib.TcEventLog
' form load
Private Sub Form_Load()
' get the one and only event logger
Set evtLogger = New TcEventLog
End Sub
' event method
Private Sub evtLogger_OnNewEvent(ByVal evtObj As Object)
Dim evt As TcEvent
Set evt = evtObj
' print the message string in English
Debug.Print evt.GetMsgString(1033)
End Sub