Puerto Serial otra vez

ruben_7
25 de Febrero del 2005
Hola a todos, ya me he hecho un CHAT para comunicar dos computadoras por el puerto serial, funciona muy bien y todo, es una asignación para la escuela, el único problema que me presenta es el siguinte...
PROBLEMA: Cuando una PC manda un mensaje a otra ocurre que el mensaje se corta en varios fragmentos, es decir, PC1 envía: "0123456789" y PC2 recibe: "01234567" y en la siguiente línea "89"
¿por qué ocurre esto y cómo puedo arreglarlo? La recepción de datos se hace de la siguiente manera:
Private Sub Form_Activate()
Do
DoEvents
If MSComm1.portOpen = True Then
Buffer = MSComm1.Input
End If
If StrComp(Buffer, "") <> 0 Then
tbRecibe.Text = tbRecibe.Text & vbCrLf "<White> " & Buffer
tbRecibe.SelStart = Len(tbRecibe.Text)
End If
Loop
End Sub
¿Hay otra manera de hacerlo (sin usar un botón de "Recibir")?
Cualquier comentario, aportación o ayuda es bienvenido, gracias a todos de antemano.

aureliog
25 de Febrero del 2005
Yo abro el puerto y en el evento oncomm(cuando llegen datos) le pongo una espera de 200 ms(sleep(200)) y capturo con el mscomm1.input