Dim exc As ExceptionEx
Try
'objSerial object previously declared as Serial and inizialized by objSerial.Initialize("objSerial")
Log("CONNECT ON PORT " & mPort)
objSerial.Open(mPort)
Log("OPENED PORT " & mPort)
objSerial.SetParams(19200,8,1,0)
Log("PARAMETERS SET")
objAsyncStream.Initialize(objSerial.GetInputStream,objSerial.GetOutputStream,"objAsyncStream")
Log("ASYNCSTREAM OPENED")
If SubExists(objCaller,mEventName & "_Connected") Then
CallSubDelayed(objCaller,mEventName & "_Connected")
End If
Catch
Log("ERROR: " & LastException.Message)
exc = LastException
exc.Throw
End Try
Log("END CONNECTION PROCEDURE")