Basic information
As you might have read so far, wodWebServerCom can use fast notification interface instead of firing events. This means that each time wodWebServerCom needs to fire an event, it will call your implementation of the event instead. Notifications can be 30 times faster than events - meaning it is advised to be used if speed is needed in your applications.
You must declare ALL notification methods if you want to implement
IwodWebNotify, no matter if you need them or not. For example, many users don't need
UploadFilename event, but at least empty body for this event MUST exist when notifications are used.
You can read below steps required to implement your own IwodWebNotify interface. As an example, we will put it on the main form. You can also put it into separate VB class, in which case instead of 'Me' keyword, you will use name of the class.
Steps needed to implement IwodWebNotify
1. Add Reference to wodWebServerCom COM Object to your application
2. Instead of declaring wodWebServer like this:
Dim WithEvents Web1 as wodWebServerCom
you should do this:
Dim Web1 as wodWebServerCom
Implements IwodWebNotify
3. In Form_Load, create new instance for Web1, and pass reference of our IwodWebNotify to it
Set Web1 = new wodWebServerCom
Set Web1.Notification = Me
4. Implement ALL methods, or at least declare their empty bodies. You can do it automatically if you locate 'IwodWebNotify' object in the list of all objects existing on your form (combo box in upper left corner of your code view), or just can do it by hand.
5. All done. Now put breakpoints to your methods. You will see that instead of fired event, your methods will be called instead.
Method declarations
Private Sub IwodWebNotify_CGIStart(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal FullPath As String, ByVal Environment As WODWEBSERVERCOMLib.IWebHeaders)
End Sub
Private Sub IwodWebNotify_CGIStop(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal success As Boolean)
End Sub
Private Sub IwodWebNotify_RequestDone(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser)
End Sub
Private Sub IwodWebNotify_RequestHeaders(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser)
End Sub
Private Sub IwodWebNotify_ResponseDone(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser)
End Sub
Private Sub IwodWebNotify_RunScript(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal ScriptData As String, ResponseData As String)
End Sub
Private Sub IwodWebNotify_SessionExpire(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal Sessions As WODWEBSERVERCOMLib.IWebSessions)
End Sub
Private Sub IwodWebNotify_StateChange(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal OldState As WODWEBSERVERCOMLib.StatesEnum)
End Sub
Private Sub IwodWebNotify_UploadFilename(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal Part As WODWEBSERVERCOMLib.IWebRequestUploadPart)
End Sub
Private Sub IwodWebNotify_UserAuthenticate(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal AuthType As WODWEBSERVERCOMLib.WebAuthenticationTypes, Action As WODWEBSERVERCOMLib.WebActions)
End Sub
Private Sub IwodWebNotify_UserConnected(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser, Action As WODWEBSERVERCOMLib.WebActions)
End Sub
Private Sub IwodWebNotify_UserDisconnected(ByVal Owner As WODWEBSERVERCOMLib.IwodWebServerCom, ByVal User As WODWEBSERVERCOMLib.IWebUser)
End Sub
Back to product page