intercambio archivos puerto serie

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