🚀 go-pugleaf

Peut-�tre que tu dois mettre la propiet� RThreshold=1
Doncs, si Comm1.Inbuffersize a valeur, tu peut le lire avec :
a$=""
while Comm1.inbuffercount>0   
                 Comm1.inputlen=comm1.inbuffercount
A$=a$ & Comm1.input
wend
Tout-a-l'heur

 Eric VALLAURI escribi� en art�culo <5p63vp$7hg$1@news2.isdnet.net>...
>Je voudrais faire un utilitaire me donnant l �tat des ports de
>communication avec VB4 standard
>j ai le code suivant sur un timer � 2 secondes et il ne se passe rien
quand
>je me connecte avec l acc�s au r�seau distant.
>L �v�nement oncomm reste lui aussi sans r�agir pourquoi ?
>merci de me repondre par mail
>eric.vallauri@hol.fr
>
>Private Sub Timer1_Timer()
>Form1.Cls
>For i = 1 To 4
>Comm.CommPort = i
>interm = Comm.CommPort
>Form1.Print "commport = "; interm
>interm = Comm.Settings
>Form1.Print "settings = "; interm
>
>interm = Comm.PortOpen
>Form1.Print "portopen = "; interm
>Next i
>End Sub
>Private Sub Comm_OnComm()
>Select Case Comm1.CommEvent
>' Errors
>Case comBreak
>Print "il se passe quelque chose"
>' A Break was received.
>' Code to handle a BREAK goes here.
>Case comCDTO ' CD (RLSD) Timeout.
>Print "il se passe quelque chose"
>Case comCTSTO ' CTS Timeout.
>Print "il se passe quelque chose"
>Case comDSRTO ' DSR Timeout.
>Print "il se passe quelque chose"
>Case comFrame ' Framing Error
>Print "il se passe quelque chose"
>Case comOverrun ' Data Lost.
>Print "il se passe quelque chose"
>Case comRxOver ' Receive buffer overflow.
>Print "il se passe quelque chose"
>Case comRxParity ' Parity Error.
>Print "il se passe quelque chose"
>Case comTxFull ' Transmit buffer full.
>' Events
>Print "il se passe quelque chose"
>Case comEvCD ' Change in the CD line.
>Print "il se passe quelque chose"
>Case comEvCTS ' Change in the CTS line.
>Print "il se passe quelque chose"
>Case comEvDSR ' Change in the DSR line.
>Print "il se passe quelque chose"
>Case comEvRing ' Change in the Ring Indicator.
>Print "il se passe quelque chose"
>Case comEvReceive ' Received RThreshold # of chars.
>Print "il se passe quelque chose"
>Case comEvSend ' There are SThreshold number of
>Print "il se passe quelque chose"
>' characters in the transmit buffer.
>End Select
>End Sub
>
>Eric
>VALLAURI
>eric.vallauri@hol.fr
>http://www.mygale.org/03/ericval/
>http://www.mygale.org/03/ericval/nimes/
>
>
>
>