Что-то не получается...
Есть массив байт, надо передать его на компьютер по COM-порту. Передаю как:
Code
HRSOut "$=", Str m, 13, 10
Все работает отлично, пока в массиве находятся символьные данные. Но мне нужны бинарные - типа:
Code
For i = 0 to 15
m[i] = i
Next i
HRSOut "$=", Str m\16, 13, 10
И тут я спотыкаюсь - не могу принять их на компе (программа на VB6). Порт инициализирую как:
Code
With Me.MSComm3
.CommPort = 3
.InputLen = 0
.SThreshold = 0
.RTSEnable = False
.InputMode = comInputModeBinary
.NullDiscard = False
.InBufferSize = 512
.OutBufferSize = 512
.Settings = "38400,n,8,1"
.PortOpen = True
.RThreshold = 1
End With
Но событие OnComm возникает через раз и получаемая строка содержит лишь:
36 61 13 10
--------------------------
В чем может быть дело и как лучше победить? Готов принять и не бинарные данные, но как тогда массив лучше преобразовать в HEX-вид?
. Прописал порт полностью, с WinAPI. Та же история, пока не прописал в DCB - маску EV_RXFLAG (событие на получение определенного символа) вместо EV_RXCHAR (событие на получение хотя бы одного символа). Вроде пока все идет... Буду дальше экспериментировать.
