SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Eze_Cba en Viernes 18 de Noviembre de 2005, 23:43

Título: Pasar Texto Recibido Por Puerto Serie A Archivo
Publicado por: Eze_Cba en Viernes 18 de Noviembre de 2005, 23:43
hola estoy haciendo una aplicacion que debe recibir un archivo de texto por puerto serie y luego guardarlo en un archivo para posteriormente leerlo. el problema que tengo es el siguiente recibo el flujo de caracteres por puerto serie y lo guardo en un textbox, luego cuando evaluo si mscomm.comevent es igual a comEvEOF para verificar si es el final del archivo, y asi poder guardar y posteriormente leer lo recibido, nunca encuetra el fin del archivo. quisiera si alguien puede ayudarme para poder solucionarlo lo antes posible.

el codigo es el siguiente:
Dim archivo As String
Dim lectura As String

Private Sub Form_Load()

archivo = "C:\prueba.txt" 'App.Path + "\Prueba.txt"
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
    Case comEvReceive
        txtDatosRecibidos.Text = txtDatosRecibidos.Text + MSComm1.Input
    Case comEvEOF
        Call Escribir
        Call Leer
    End Select

End Sub
Private Sub Escribir()

Open archivo For Append As #1
Print #1, txtDatosRecibidos '+ ","
Close

End Sub

Private Sub Leer()

Open archivo For Input As #1
While Not EOF(1)
Line Input #1, lectura
Text2 = Text2 + lectura
Wend
Close

End Sub
Título: Re: Pasar Texto Recibido Por Puerto Serie A Archivo
Publicado por: eliza_marti en Sábado 19 de Noviembre de 2005, 15:57
Hola Eze_Cba  :hola: .....prueba habilitando esta propiedad del Mscomm:

Código: Text
  1. MSComm1.EOFEnable=true
  2.  

Ya que predeterminadamente se pone en falso y esto no te permite que el control MsComm pueda buscar caracteres de fin de archivo (EOF) durante la entrada..
Puedes ponerlo en el Form_Load despues de habilitar el puerto.. :)

Bueno me voy..chaitos.. :hola:  y Mucha suerte!.. ;) ..Nos cuentas como te fue..!! :comp: ...