Basic information
As you might have read so far, wodTelnetDLXCom can use fast
notification interface instead of firing events. This means
that each time wodTelnetDLXCom 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.
wodTelnetDLX ActiveX DOES NOT support notifications -
only wodTelnetDLXCom component does!
You must declare ALL notification methods if you want to
implement IwodTelnetNotify,
no matter if you need them or not. For example, many users
don't need Hostfingerprint
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
IwodTelnetNotify 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 IwodTelnetNotify
1. Add Reference to wodTelnetDLXCom COM Object to your
application
2. Instead of declaring wodTelnetDLX like this:
Dim WithEvents Telnet1 as
wodTelnetDLXCom
you should do this:
Dim Telnet1 as wodTelnetDLXCom
Implements IwodTelnetNotify
3. In Form_Load, create new instance for Telnet1, and pass
reference of our IwodTelnetNotify to it
Set Telnet1 = new wodTelnetDLXCom
Set Telnet1.Notification = Me
4. Implement ALL methods, or at least declare their empty
bodies. You can do it automatically if you locate
'IwodTelnetNotify' 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
IwodTelnetNotify_Connected(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom, ByVal ErrorCode As
Integer, ByVal ErrorText As String)
End Sub
Private Sub IwodTelnetNotify_Disconnected(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom)
End Sub
Private Sub IwodTelnetNotify_HostCertificate(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom, ByVal Cert As
WODTELNETDLXCOMLIB.ICertificate, ByVal ErrorCode As Long,
ByVal ErrorText As String, Accept As Boolean)
End Sub
Private Sub IwodTelnetNotify_HostFingerprint(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom, ByVal Fingerprint As
String, Accept As Boolean)
End Sub
Private Sub IwodTelnetNotify_PromptReceived(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom)
End Sub
Private Sub IwodTelnetNotify_Received(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom, ByVal ByteCount As
Integer)
End Sub
Private Sub IwodTelnetNotify_StateChange(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom, ByVal OldState As
WODTELNETDLXCOMLIB.StatesEnum)
End Sub
Private Sub IwodTelnetNotify_TransferEnd(ByVal
Owner As WODTELNETDLXCOMLIB.IwodTelnetDLXCom, ByVal ErrorText As
String)
End Sub
Private Sub IwodTelnetNotify_TransferProgress(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom, ByVal Position As Long, ByVal
Total As Long)
End Sub
Private Sub IwodTelnetNotify_TransferStart(ByVal Owner As
WODTELNETDLXCOMLIB.IwodTelnetDLXCom, Filename As String,
ResumeTransfer As Boolean, Skip As Boolean)
End Sub
