W
winit_a
Guest
mijn programma is communicatie bestanden versturen of chatten op RS-232 (cross lijn)
gebruikt LSCOM controle op Visual Basic 6 met SP5
Ik lees bestandsgrootte en verzenden tot eind van het dossier
Ik teller byte bestand te verzenden = files size = OK
maar ontvangen zijde ontvangen gegevens van minder dan verzenden = fout
Ik weet niet waarom fout ontvangen van gegevens minder dan versturen
Stuur kant
'================================================= ==========
tFileNumber = FreeFile
File_Ptr = 1
File_Ptr_Tmp = 1
Open AFileName Voor Binary Zoals tFileNumber
Do Terwijl Aktueel (tFileNumber) <FileSize
tDataSendBuffer = Input (1, # tFileNumber)
tMessage = tMessage tDataSendBuffer
Statusbar.Panels.Item (2). Text = "Sending file ..." tDataSendBuffer
DoEvents
RS232Comm.Output = tDataSendBuffer
pgb1.Value = Aktueel (tFileNumber)
Statusbar.Panels.Item (1). Text = CStr (Loc (tFileNumber)) "/" CStr (filesize)
Loop
Sluiten tFileNumber
Ontvang kant
'================================================= ===========
Open AFileName Voor Binary Zoals tFileNumber
op gebeurtenis ontvangen
Put # tFileNumber, File_Ptr, ASC (ADataRecieveBuffer)
File_Ptr = File_Ptr 1
Bedankt
gebruikt LSCOM controle op Visual Basic 6 met SP5
Ik lees bestandsgrootte en verzenden tot eind van het dossier
Ik teller byte bestand te verzenden = files size = OK
maar ontvangen zijde ontvangen gegevens van minder dan verzenden = fout
Ik weet niet waarom fout ontvangen van gegevens minder dan versturen
Stuur kant
'================================================= ==========
tFileNumber = FreeFile
File_Ptr = 1
File_Ptr_Tmp = 1
Open AFileName Voor Binary Zoals tFileNumber
Do Terwijl Aktueel (tFileNumber) <FileSize
tDataSendBuffer = Input (1, # tFileNumber)
tMessage = tMessage tDataSendBuffer
Statusbar.Panels.Item (2). Text = "Sending file ..." tDataSendBuffer
DoEvents
RS232Comm.Output = tDataSendBuffer
pgb1.Value = Aktueel (tFileNumber)
Statusbar.Panels.Item (1). Text = CStr (Loc (tFileNumber)) "/" CStr (filesize)
Loop
Sluiten tFileNumber
Ontvang kant
'================================================= ===========
Open AFileName Voor Binary Zoals tFileNumber
op gebeurtenis ontvangen
Put # tFileNumber, File_Ptr, ASC (ADataRecieveBuffer)
File_Ptr = File_Ptr 1
Bedankt