-
-
Basic information
As you might have read so far, wodAppUpdateCom can use fast
notification interface instead of firing events. This means
that each time wodAppUpdate 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.
wodAppUpdate ActiveX DOES NOT support notifications -
only wodAppUpdateCom component does!
You must declare ALL notification methods if you want to
implement Notifications,
no matter if you need them or not. For example, many users
don't need FileStart
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
Notifications 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
Notifications
1. Add Reference to wodAppUpdateCom COM Object to your
application
2. Instead of declaring wodAppUpdate like this:
Dim WithEvents Update1 as
wodAppUpdateCom
you should do this:
Dim Update1 as wodAppUpdateCom
Implements Notifications
3. In Form_Load, create new instance for Ssh1, and pass
reference of our Notifications to it
Set Update1 = new wodAppUpdateCom
Set Update1.Notification = Me
4. Implement ALL methods, or at least declare their empty
bodies. You can do it automatically if you locate
'Notifications' 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
Notifications_CheckDone(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom, ByVal ErrorCode As
Long, ByVal ErrorText As String)
End Sub
Private Sub Notifications_CloseApp(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom)
End Sub
Private Sub Notifications_DownloadDone(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom, ByVal ErrorCode As
Long, ByVal ErrorText As String)
End Sub
Private Sub Notifications_FileDone(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom, ByVal File As
wodAppUpdateCOMLib.IUpdFile, ByVal ErrorCode As Long, ByVal
ErrorText As String)
End Sub
Private Sub Notifications_FileProgress(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom, ByVal File As
wodAppUpdateCOMLib.IUpdFile, ByVal Position As Long, ByVal
Total As Long)
End Sub
Private Sub Notifications_FileStart(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom, ByVal File As
wodAppUpdateCOMLib.IUpdFile, Cancel As Boolean)
End Sub
Private Sub Notifications_PrevDetected(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom)
End Sub
Private Sub Notifications_StateChange(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom, ByVal OldState As
wodAppUpdateCOMLib.UpdateStates)
End Sub
Private Sub Notifications_UpdateDone(ByVal Owner As
wodAppUpdateCOMLib.IwodAppUpdateCom, ByVal ErrorCode As
Long, ByVal ErrorText As String)
End Sub
|
