juan
21 de Mayo del 2004

Hola, estoy intentando transferir unos archivos entre 2 ordenadores mediante el puerto serie. Abriendo el hyperterminal a un lado y con el c贸digo siguiente en VB en el otro, puedo comunicarme recibiendo en un archivo todo lo que tecleo en el hyperterminal, pero, cuando intento transferir un archivo desde hyptrm hacia mi programa, s贸lo recibo unos pocos car谩cteres estra帽os y la transferencia falla. Si alguien sabe lo q puedo hacer... muchas gracias.

Dim ByteCount As Long
Dim FileData As Byte

Private Sub Command2_Click()
Close #1
End Sub

Private Sub Form_Load()

MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 1
MSComm1.RTSEnable = True
MSComm1.InputMode = comInputModeBinary
MSComm1.CommPort = 3
MSComm1.PortOpen = True

Open "c:Documents and Settingsarchivo" For Binary Access Write As #1

End Sub

Private Sub MSComm1_OnComm()

If MSComm1.CommEvent = 2 And MSComm1.InBufferCount > 0 Then
FileData = CInt(MSComm1.Input(0))
ByteCount = ByteCount + 1
Put #1, ByteCount, FileData
MSComm1.Output = Chr$(26)
End If

End Sub