[elektro] OT: VB2008 soros vonal nyitottságának ellenőrzése

[hozso_001 at freemail.hu]

   Készül az SMS küldő programom. A nyűgöm most éppen az,
hogy ha már meg van nyitva a soros port egy másik program
által, akkor hiába használom a Try-Catch módszerrrel
megnyitni, nem ad hibajelet! Viszont természetesen amikor
írni próbálok a portra, akkor kiáll hibára.
   (Úgy vettem észre, hogy a terminál emulátorral megnyitva
hagytam a soros vonalat.)
   Én azt hittem, hogy ha egyszer már meg van nyitva,valaki
más által, akkor a megnyitáskor hibaüzenetet ad. Ezekszerint
mégsem így van? Vagy én csinálok valamit rosszul?


    Üdv.: Horváth Zsolt




A programrészlet:

        With SMSSerialPort
             .PortName = "COM" + Convert.ToString(IntSMSCOM)
             .BaudRate = 115200
             .DataBits = 8
             .Parity = Parity.None
             .StopBits = StopBits.One
             .Handshake = Handshake.None
         End With


         Try
             SMSSerialPort.Open()    'megpróbáljuk megnyitni a portot!
         Catch ex As Exception
             TxtBoxStatus.AppendText("Hiba! => a kiválasztott soros 
portot nem lehet megnyitni!" + vbCrLf)
             SysStatePtr = 50
         End Try

         'bekapcsoljuk a modemet
         SMSSerialPort.RtsEnable = True
         IntGSMWaitTmr = IntGSMBootUpWaitDelay
         BitGSMWaitEnabled = True
         SMS_Kuldo_OMRON.My.Application.Tmr300msEnabled = True

WaitForModemStart:
         Application.DoEvents()
         If IntGSMWaitTmr <> 0 Then GoTo WaitForModemStart


         StrTmp0 = "AT+CMGS=+36304912925" + vbCr
         SMSSerialPort.Write(StrTmp0)
         IntGSMWaitTmr = 3