Basic information
As you might have already read, wodSFTPCom can use a fast notification interface instead of firing events. This means that each time wodSFTP needs to fire an event, it will call your implementation of the event instead. Notifications can be up to 30 times faster than events - which means that it is advisable to use them if performance is a requirement of your applications.
wodSFTP ActiveX DOES NOT support notifications - they may only be used with the wodSFTPCom component!
You must declare ALL notification methods if you want to implement
IwodSFTPNotify, no matter whether you need them or not. For example, many users don't need the
Hostfingerprint event, but at least the empty body for this event MUST exist when notifications are used.
Below, you can read the steps that are required to implement your own IwodSFTPNotify interface. As an example, we will put it on the main form. You can also put it into a separate VB class, in which case instead of the '
Me' keyword, you will use name of the class.
Steps needed to implement IwodSFTPNotify
1. Add a Reference to the wodSFTPCom COM Object to your application.
2. Instead of declaring wodSFTP like this:
Dim WithEvents SFTP1 as wodSFTPCom
you should do this:
Dim SFTP1 as wodSFTPCom
Implements IwodSFTPNotify
3. In Form_Load, create a new instance for SFTP1 and pass a reference of our IwodSFTPNotify to it:
Set SFTP1 = new wodSFTPCom
Set SFTP1.Notification = Me
4. Implement ALL methods or at least declare their empty bodies. You can do it automatically if you locate the 'IwodSFTPNotify' object in the list of all objects that exist on your form (the combo box in the upper left corner of your code view), or just can do it by hand.
5. All done. Now put breakpoints into your methods. You will see that instead of the event firing, your methods will be called instead.
Method declarations
Private Sub IwodSFTPNotify_Attributes(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal Size As Long, ByVal Uid As Long, ByVal Gid As Long, ByVal Permissions As Long, ByVal AccessTime As Date, ByVal ModificationTime As Date)
End Sub
Private Sub IwodSFTPNotify_Attributes64(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal SizeLo As Long, ByVal SizeHi As Long, ByVal Uid As Long, ByVal Gid As Long, ByVal Permissions As Long, ByVal AccessTime As Date, ByVal ModificationTime As Date)
End Sub
Private Sub IwodSFTPNotify_AttributesData(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal Items As wodSFTPCOMLib.ISftpItems)
End Sub
Private Sub IwodSFTPNotify_Connected(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal ErrorCode As Integer, ByVal ErrorText As String)
End Sub
Private Sub IwodSFTPNotify_CryptoInformation(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal Protocol As String, ByVal RemoteName As String, ByVal SCcipher As String, ByVal CScipher As String, ByVal Keys As String, Accept As Boolean)
End Sub
Private Sub IwodSFTPNotify_Disconnected(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom)
End Sub
Private Sub IwodSFTPNotify_Done(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal ErrorCode As Integer, ByVal ErrorText As String)
End Sub
Private Sub IwodSFTPNotify_ExtendedCmdReply(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal Data As Variant)
End Sub
Private Sub IwodSFTPNotify_HostFingerprint(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal Fingerprint As String, Accept As Boolean)
End Sub
Private Sub IwodSFTPNotify_ListItems(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal FileInfo As String)
End Sub
Private Sub IwodSFTPNotify_LoginChallenge(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal Challenge As String, Response As String)
End Sub
Private Sub IwodSFTPNotify_LoopError(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal LocalFile As String, ByVal RemoteFile As String, ByVal ItemType As wodSFTPCOMLib.DirItemTypes, ErrorCode As Long, ByVal ErrorText As String)
End Sub
Private Sub IwodSFTPNotify_LoopItem(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, LocalFile As String, RemoteFile As String, ByVal ItemType As wodSFTPCOMLib.DirItemTypes, Skip As Boolean)
End Sub
Private Sub IwodSFTPNotify_Progress(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal Position As Long, ByVal Total As Long)
End Sub
Private Sub IwodSFTPNotify_Progress64(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal PositionLo As Long, ByVal PositionHi As Long, ByVal TotalLo As Long, ByVal TotalHi As Long)
End Sub
Private Sub IwodSFTPNotify_RemoteData(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal Data As Variant)
End Sub
Private Sub IwodSFTPNotify_StateChange(ByVal Owner As wodSFTPCOMLib.IwodSFTPCom, ByVal OldState As wodSFTPCOMLib.StatesEnum)
End Sub
Back to product page