This method stops the communications link to the host.
Session.Disconnect
None
|
Dim AllSessions As OhioSessions Set AllSessions = New OhioSessions MsgBox "Before Connect(), isConnected = " & MySession.isConnected MySession.Connect ' for simplicity, do a busy wait here MsgBox "After Connect(), isConnected = " & MySession.isConnected MySession.Disconnect MsgBox "After Disconnect(), isConnected = " & MySession.isConnected AllSessions.CloseSession MySession.SessionName |
|
IOhioSessions AllSessions; if ( AllSessions.CreateDispatch(CLSID_OhioSessions)
) try IOhioSession MySession; MySession = AllSessions.AddSession( "C:\\test.zcc",
1 ); ::Sleep(500); } } ex->ReportError(); } } |
|
try { PASSHIOLib.OhioSessions AllSessions; PASSHIOLib.OhioSession MySession; AllSessions = new PASSHIOLib.OhioSessionsClass (); MySession = AllSessions.AddSession( "C:\\test.zcc", 1 ); MessageBox.Show ("Before Connect(), isConnected = " + MySession.isConnected() ); MySession.Connect(); while ( 0 == MySession.isConnected () ) { System.Threading.Thread.Sleep(500); } MessageBox.Show ("After Connect(), isConnected = " + MySession.isConnected() ); MySession.Disconnect (); MessageBox.Show ("After Disconnect(), isConnected = " + MySession.isConnected() ); AllSessions.CloseSession( MySession.SessionName); Marshal.ReleaseComObject(MySession); } catch (Exception ex) { MessageBox.Show ("Exception: " + ex); } |