SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado 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
-
Hola Eze_Cba :hola: .....prueba habilitando esta propiedad del Mscomm:
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: ...