Problemas al capturar un puerto

No entiendo muy bien el problema, supongo que necesitas leer del puerto
serie usando el objeto MScomm y no sabes como detectar el fin del registro,
si es asi a ver si este codigo te sirve

dim chr10 as boolean
dim chr13 as boolean
dim gDatoRecibido as string

' *** Analizo la informacion que entro ***
Do While (MSComm.InBufferCount > 0) And (chr10 = False) And
(chr13 = False)

' *** Leo Un byte y Analizo
ASCentrada = Asc(MSComm.Input)

Select Case ASCentrada
Case 10
chr10=true
Case 13
chr13=true
Case Else
gDatoRecibido = gDatoRecibido +
Chr$(ASCentrada)
End Select
Loop

Un saludo, Víctor Koch.


"ELLA-LARAÑA" escribió en el mensaje
news:

Buenas a to2
Tengo un problema que no soy capaz de solucionar..
Estoy haciendo una apli. que se conecta con un "cacharro" por el puerto
com... la comunicación es relativamente sencilla... tiene una serie de
comandos y todas las cadenas (tanto input como output) terminan con unos
caracteres en concreto (Chr(13) & Chr(10)).. el problema es que no consigo
"meter" en una variable la cadena de respuesta he probado con el

buffer,

con el CommEvent, con paradas etc... pero naaa que no hay forma...
¿Algun alma caritativa que tenga experiencia con esto y me pueda

orientar??

(lo mejor un ejemplillo XD)

Gracias a to2 de antemano