Как правильно скопировать символьный массив в байтовый?

[Dimon111]

Dimon111, если ты продолжишь грешить [url=[url=http://yandex.kz/yandsearch?rdrnd=7847&text=оверквоттингом]123[/url]]оверквоттингом[/url], ты будешь наказан.

Ок. Наказывать у нас любят.

Сейчас приляпал FTDIшку к PC. Не поленился. Хоть она ничего не выдаёт, порт открывается нормально и обращение к FR_Read идёт. Эффект зависания я получил. Вот код:

Код: Выделить всё

Dim ByteMass(256) As Byte

Private Declare Function FT_Read Lib "FTD2XX.DLL" (ByVal Handle As Long, ByRef lpBufferFirstElm As Byte, ByVal lngBufferSize As Long, ByRef lngBytesReturned As Long) As Long

Private Sub ReadStr(BytesRead As Long)                        'Подпрограмма приема
Dim ftStatus As Long, I As Single, Ch As String               '
    lngBytesRetuned = 0                                       'Обнулить счетчик прочитанных байт
    ftStatus = FT_Read(Handle, ByteMass(1), BytesRead, lngBytesRetuned) '
    If (ftStatus = FT_IO_ERROR) Then OutLog "IO_ERROR"        'Если произошла ошибка приема - выдать сообщение
End Sub

[ger_kar]

Ну так может покажете код? Я бы сравнил с тем, что писал... Объявление функции, массива, вызов...

Код: Выделить всё

Option Explicit


Private Declare Function FT_Read _
                Lib "ftd2xx.dll" _
                (ByVal Handle As Long, _
                 ByVal lpBuffer As Long, _
                 ByVal lngBufferSize As Long, _
                 ByRef lngBytesReturned As Long) As Long
               
Private Declare Function FT_Read2 _
                Lib "ftd2xx.dll" _
                Alias "FT_Read" _
                (ByVal Handle As Long, _
                 ByRef lpBuffer As Byte, _
                 ByVal lngBufferSize As Long, _
                 ByRef lngBytesReturned As Long) As Long
               



Private Sub Command1_Click()
    Dim lpBuffer            As Long
    Dim MyArray(255)        As Byte
    Dim lngBytesReturned    As Long
   
    lpBuffer = VarPtr(MyArray(0))
    FT_Read 0, lpBuffer, 255, lngBytesReturned
   
End Sub

Private Sub Command2_Click()
   
    Dim MyArray(255)        As Byte
    Dim lngBytesReturned    As Long
   
    FT_Read2 0, MyArray(0), 255, lngBytesReturned
   
End Sub


[Qwertiy]

Вот код:

Какой-то он сильно подозрительный.

Dim ByteMass(256) As Byte

Почему не написать Dim ByteMass(1 To 256) As Byte?

Private Sub ReadStr(BytesRead As Long)

Что за переменная BytesRead?

lngBytesRetuned = 0                                       'Обнулить счетчик прочитанных байт

Во-первых, эта переменная не объявленя, а во-вторых, а нафига его обнулять-то?

ftStatus = FT_Read(Handle, ByteMass(1), BytesRead, lngBytesRetuned)

Во-первых, не вижу объявления переменной Handle.
Во-вторых, сильно подозреваю, что тут должно быть так: ftStatus = FT_Read(Handle, ByteMass(1), 256, BytesRead), 256 - размер буфера.

[Qwertiy]

Dim MyArray(255)        As Byte

Ну что за привычка, ты же на .NET не пишешь...
Твой код не будет работать, если он использует Option Base 1.

FT_Read 0, lpBuffer, 255, lngBytesReturned

Почему 255? Массив 0 to 255 состоит из 256 элементов.

[ger_kar]

Вот. Даже приблизительно ничего не зависает, хоть так вызов идет, хоть сяк.

У тебя массив начинается с элемента 0, но ты упорно передаешь 1.
Что содержится у тебя в BytesRead тоже непонятно.
Если передать вместо нулевого элемента первый, то соответственно адрес сдвинется и функция запишет за пределы буфера. Вот тебе и зависон.
Далее длина буфера должна быть на 1 ячейку длиннее длины массива, для завершающего нуля.
И все будет работать.

[Dimon111]

Вот код:

Какой-то он сильно подозрительный.

Dim ByteMass(256) As Byte

Почему не написать Dim ByteMass(1 To 256) As Byte?

Private Sub ReadStr(BytesRead As Long)

Что за переменная BytesRead?

lngBytesRetuned = 0                                       'Обнулить счетчик прочитанных байт

Во-первых, эта переменная не объявленя, а во-вторых, а нафига его обнулять-то?

ftStatus = FT_Read(Handle, ByteMass(1), BytesRead, lngBytesRetuned)

Во-первых, не вижу объявления переменной Handle.
Во-вторых, сильно подозреваю, что тут должно быть так: ftStatus = FT_Read(Handle, ByteMass(1), 256, BytesRead), 256 - размер буфера.

BytesRead - число ожидаемых байт. Dim Handle As Long - описатель порта, получаемый при его открытии. Зачем писать 1 To 256 я не понял. По - моему и так корректно. Во всяком случае работает. Обнулять может и не надо. 256 мне не нужно. Данные приходят раз в секунду по 35 байт. Таймаут установлен 1.5с: FT_SetTimeouts(Handle, 1500, 0). FT_Read ждёт 1.5с прихода указанного количества байт и потом отдаёт управление.

Переменная Dim lngBytesRetuned As Long объявлена глобальной, поскольку число прочитанных байт используется ещё много где.

Чтобы не плодить постов - пишу Option Base 1 у меня есть.

[Dimon111]

Вот. Даже приблизительно ничего не зависает, хоть так вызов идет, хоть сяк.

У тебя массив начинается с элемента 0, но ты упорно передаешь 1.
Что содержится у тебя в BytesRead тоже непонятно.
Если передать вместо нулевого элемента первый, то соответственно адрес сдвинется и функция запишет за пределы буфера. Вот тебе и зависон.
Далее длина буфера должна быть на 1 ячейку длиннее длины массива, для завершающего нуля.
И все будет работать.

Дык. Буфер объявлен размером 256. Ну нравится мне с первого элемента. Никаких зависонов по этому поводу никогда не было.

[ger_kar]

Ну что за привычка, ты же на .NET не пишешь...

У меня везде выравнивание и Net тут совсем не причем.

Твой код не будет работать, если он использует Option Base 1.

Ну так у него же нету Option Base и вообще надо думать что ты делаешь. Кто думает у того все будет работать.

Почему 255? Массив 0 to 255 состоит из 256 элементов.

На всякий пожарный случай, а вдруг функция еще и завершающий ноль пропишет за пределами. Я же первый раз эту функцию вижу, скачал драйвер извлек библу, проверил вызов и все . Вобщем лучше больше, чем записать помимо буфера.

[ger_kar]

Зачем писать 1 To 256 я не понял. По - моему и так корректно.

Ну вот когда поймешь, тогда и дело пойдет. И падать не будет, а все будет работать как надо.

Дык. Буфер объявлен размером 256. Ну нравится мне с первого элемента

Ну тогда Option Base 1 объявляй.

[Qwertiy]

У тебя массив начинается с элемента 0, но ты упорно передаешь 1.

Это не важно. Верхняя граница позволяет. в отличие от твоего варианта, при передаче первого элемента будет работать везде.

Далее длина буфера должна быть на 1 ячейку длиннее длины массива, для завершающего нуля.

Хочешь сказать, что возвращается строка, а не двоичные данные?

Зачем писать 1 To 256 я не понял. По - моему и так корректно.

Чтобы работало одинаково независимо от Option Base. Вообще, это хороший стиль, явно указывать обе границы.

256 мне не нужно. Данные приходят раз в секунду по 35 байт.

Тогда почему в массиве 256 байт? Слабо сделать правильно и передать размер буфера, а не фигню?

Чтобы не плодить постов - пишу Option Base 1 у меня есть.

Вот, ger_kar

Дык. Буфер объявлен размером 256. Ну нравится мне с первого элемента. Никаких зависонов по этому поводу никогда не было.

С этим согласен, в таком варианте оно должно быть безвредно, даже если индексация с 0.

У меня везде выравнивание и Net тут совсем не причем.

.NET запрещает указывать нижнюю границу отличную от 0, поэтому не вижу смысла вообще её там писать.

Ну так у него же нету Option Base и вообще надо думать что ты делаешь. Кто думает у того все будет работать.

Он же сказал, что есть. В любом случае, на работе его кода это не скажется, в отличие от твоего.

Что-то кажется, я одно и то же пишу
А вы тут наверняка ещё понаписали, пока я писал...

[Dimon111]

256 мне не нужно. Данные приходят раз в секунду по 35 байт.

Тогда почему в массиве 256 байт? Слабо сделать правильно и передать размер буфера, а не фигню?

Связано это с асинхронным приходом кадра и потерей кадров. В дальнейшем планирую в таких случаях склеивать кадр. Можно было и 128 и 100 сделать. Не критично.

[ger_kar]

Хочешь сказать, что возвращается строка, а не двоичные данные?

Я понятия не имею, что там возвращается. Можно вообще не байтовый массив или строку передавать а выделить память под буфер и передавать на него указатель. Но лучше пусть будет перерасход одной ячейки, чем перезапись памяти за пределом буфера. Поэтому, что-бы не гадать я сделал буфер чуть длиннее.

Он же сказал, что есть. В любом случае, на работе его кода это не скажется, в отличие от твоего.

Мой код у меня отлично работает, а у него должен работать его собственный и что-бы он таки работал, нужно понимание того, что ты делаешь.

[Хакер]

Тема закрывается до завтра. У нас не столько наказывать любят, сколько любят гадить.
Dimon111 отреагировал на моё предупреждение, но продолжил цитировать огромные посты целиком.

Поэтому предлагаю ему почитать, что такое оверквотинг:
Оверквотинг

А то наверное он не понимает, за что его хотят наказать.

[Хакер]

Тема открыта.

[ger_kar]

Dimon111 Получилось?

[Dimon111]

Dimon111 Получилось?

Получилось. Всё работает, а с кольцевым буфером работает ещё лучше.

И вопрос с символьными массивами отпал сам собой.

Вот только учитывая мой малый опыт виснет. Дело в том, что если я открываю порт:

Код: Выделить всё

While (FT_OpenEx("Fucing_BS", FT_OPEN_BY_DESCRIPTION, Handle) <> FT_OK)

и моё приложение вылетает по ошибке (на стадии программирования для меня это неизбежно), то порт не закрывается. Следующий запуск приложения не находит этот порт. Приложение закрываю, порт отключаю и включаю вновь. В 90% случаев всё ОК. Но бывает что подвиснет так, что убить приложение можно только убив процесс VB6. При этом закрывается вся среда программирования.

Ну в общем терпимо, поскольку в нормальном режиме глюков не замечено.

А попутно вопрос - нет ли возможности всё - таки выполнить процедуру закрытия порта при аварийном завершении программы?

[Dimon111]

Посетил меня ещё один аналогичный недуг. При передаче. Объявляю функцию для передачи в байтовом формате:

Private Declare Function FT_WriteB _
Lib "ftd2xx.dll" _
Alias "FT_Write" _
(ByVal Handle As Long, _
ByRef lpBuffer As Byte, _
ByVal lngBufferSize As Long, _
ByRef BytesWritten As Long) As Long

Объявляю массив и константы:

Код: Выделить всё

Dim FT_Mass(1 To 256) As Byte
Dim BytesWritten As Long

Передаю массив:

Код: Выделить всё

FT_Mass(1) = Val("S")
FT_Mass(2) = &HD
FT_Mass(3) = &HA
If FT_WriteB(Handle, FT_Mass(1), 3, BytesWritten) <> FT_OK Then OutLog "Write Failed" '

Принимаются нули! Вроде и массив передаю по ссылке и сообщения о некорректной работе в ЛОГ не приходят. И даже BytesWritten возвращает =3. Где ж я теперь накосячил??

АААА! Val("S") возвращает 0! Блин. А как же мне узнать код этого "P"?? Asc("P") меня спасло. Вопрос закрыт.

[Qwertiy]

АААА! Val("S") возвращает 0! Блин. А как же мне узнать код этого "P"?? Asc("P") меня спасло. Вопрос закрыт.

Не мог не вспомнить:

Будем использовать вариант без функции Val. Спасибо за ответ.

Будет весело, если окажется, что надо с Asc или AscW...

[Dimon111]

Будет весело, если окажется, что надо с Asc или AscW...

Чет почитал я описание и не уловил разницы между Asc и AscW. А так работает. Но опять через ж.

Надо отправить время в байтах.

Код: Выделить всё

Dim Hour As Byte, Minut As Byte, Secund As Byte
Dim FT_Mass(1 To 256) As Byte
Dim BytesWritten As Long

Hour = Val(Left(Time, 2))
Minut = Val(Mid(Time, 4))
Secund = Val(Right(Time, 2))

FT_Mass(1) = Asc("V")
FT_Mass(2) = Hour
FT_Mass(3) = Minut
FT_Mass(4) = Secund
FT_Mass(5) = &HD
FT_Mass(6) = &HA
If FT_WriteB(Handle, FT_Mass(1), 6, BytesWritten) <> FT_OK Then OutLog "Write Failed" '
OutLog "Команда синхро: " & Hour & ":" & Minut & ":" & Secund


Вот вроде и время в лог пишет и байты передаёт (если я вместо Hour, Minut, Secund пишу числа). Но если передавать именно Hour, Minut, Secund, то передаёт нули.

Подозреваю что Hour = Val(Left(Time, 2)) преобразует этот тип из байтового во что - то другое. Пока бьюсь над этим...

[Qwertiy]

Надо отправить время в байтах.

Чего-то ты не то делаешь... Откуда взялось время в строке?

[Dimon111]

Надо отправить время в байтах.

Чего-то ты не то делаешь... Откуда взялось время в строке?

Hour = Val(Left(Time, 2))

Из Time. Это в VB переменная, содержащая текущее время. Left здесь выделяет часы. Да всё то. Я вывожу в лог:

Код: Выделить всё

OutLog "Команда синхро: " & Hour & ":" & Minut & ":" & Secund

И получаю в логе:

Команда синхро: 14:32:35

[Qwertiy]

Так зачем строку делать-то?

Чем не устраивает:

Код: Выделить всё

Dim Cur As Date, H As Byte, M As Byte, S As Byte
Cur = Now
H = Hour(Cur)
M = Minute(Cur)
S = Second(Cur)

[Dimon111]

Всё работает. Виноват был фильтр на приёмной стороне char *read_line(char buf[])

Код: Выделить всё

//if(c >= 0x20 && c < 0x7f)//Если принятый символ в допустимых границах
//{
buf[cnt++] = c;      //записать принятый символ в буфер.
//putchar(c);      //отобразить его. Эхо
//}


[Qwertiy]

Не понял.
А кто у тебя приёмная сторона? Я думал, драйвер...
Так зачем тебе строки для времени?

[Dimon111]

Не понял.
А кто у тебя приёмная сторона? Я думал, драйвер...
Так зачем тебе строки для времени?

Приёмная сторона - устройство - базовая станция, передающая это время по беспроводной сети. Т.е. для компьютера это просто FT232.

Строк для времени у меня вроде нет. Есть три переменные типа Integer, куда вводится время. Его я и передаю из компьютера.

Данные должны быть в байтовом формате...

[Qwertiy]

Строк для времени у меня вроде нет.

А Val и Left по-твоему с чем работают?

[Dimon111]

Строк для времени у меня вроде нет.

А Val и Left по-твоему с чем работают?

Они работают со строковой переменной Time. Это не моя переменная. В ней VB возвращает текущее время.

[Dimon111]

Строк для времени у меня вроде нет.

А Val и Left по-твоему с чем работают?

Они работают со строковой переменной Time. Это не моя переменная. В ней VB возвращает текущее время.

[Qwertiy]

Они работают со строковой переменной Time. Это не моя переменная. В ней VB возвращает текущее время.

Чем не устраивает:

Код: Выделить всё

Dim Cur As Date, H As Byte, M As Byte, S As Byte
Cur = Now
H = Hour(Cur)
M = Minute(Cur)
S = Second(Cur)

[Qwertiy]

В ней VB возвращает текущее время.

И да, тогда так делать неправильно, поскольку время может поменяться между вызовами.