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

[Dimon111]

Объявляю два массива и заполняю его пятью элементами:

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

Dim STRMass(5) As String
Dim ByteMass(5) As Byte
STRMass(1) = &HAA
STRMass(2) = &H21
STRMass(3) = &H1
STRMass(4) = &H4
STRMass(5) = &H2

Оба варианта дают правильный результат:
Вариант 1

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

    For I = 1 To 5
        ByteMass(I) = STRMass(I)
        Terminal_Text = Terminal_Text & ByteMass(I) & " "
    Next

Вариант 2

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

    For I = 1 To 5
        ByteMass(I) = Val(STRMass(I))
        Terminal_Text = Terminal_Text & ByteMass(I) & " "
    Next


Как будет правильней? Не хотелось бы наступать на грабли.

[Qwertiy]

Тут сама идея абсолютно кривая... Я 5 минут пытался понять, что же на самом деле делает этот код.
Да, а ты уверен, что у массивов 1-индексация?

[Dimon111]

Тут сама идея абсолютно кривая... Я 5 минут пытался понять, что же на самом деле делает этот код.
Да, а ты уверен, что у массивов 1-индексация?

Код по крайней мере работает.

Предыстория такова: FTDI драйвер D2XX работает только с массивом типа STRING. Функция чтения COM порта возвращает данные в фиксированном массиве этого типа.

Для обработки приходится переписывать данные в массив типа Byte. Вот мне и интересно стало - как же правильно будет.

По поводу индекса - так ничего страшного если нулевой индекс использоваться не будет. Главное чтобы везде было одинаково.

[ger_kar]

Код по крайней мере работает.

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

[Dimon111]

Код по крайней мере работает.

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

Строка всегда содержит 35 элементов. Так настроена функция FT_Read. Собственно, могу сделать Lbound и Ubound.

Меня интересует как правильно копировать из String в Byte массив.

[Qwertiy]

По поводу индекса - так ничего страшного если нулевой индекс использоваться не будет. Главное чтобы везде было одинаково.

Так можно же объявлять Dim X(1 To 5) As Byte.

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

В приведённом коде строка содержит не символ.

Предыстория такова: FTDI драйвер D2XX работает только с массивом типа STRING. Функция чтения COM порта возвращает данные в фиксированном массиве этого типа.

Код по крайней мере работает.

Весьма подозрительно...

Как будет правильней?

Я бы сказал, что без Val, поскольку Val выполняет приведение максимального префикса получаемой строки к (кажется) Double. Неявное приведение будет требовать число.

[Dimon111]

По поводу индекса - так ничего страшного если нулевой индекс использоваться не будет. Главное чтобы везде было одинаково.

Так можно же объявлять Dim X(1 To 5) As Byte.

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

В приведённом коде строка содержит не символ.

Предыстория такова: FTDI драйвер D2XX работает только с массивом типа STRING. Функция чтения COM порта возвращает данные в фиксированном массиве этого типа.

Код по крайней мере работает.

Весьма подозрительно...

Как будет правильней?

Я бы сказал, что без Val, поскольку Val выполняет приведение максимального префикса получаемой строки к (кажется) Double. Неявное приведение будет требовать число.

Не понял что именно подозрительно, сама функция здесь:

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

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

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

[Qwertiy]

Не понял что именно подозрительно

Что драйвер конвертирует байты в строки... таким образом...

сама функция здесь:

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

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

А где тут массив?

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

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

[Хакер]

Предыстория такова: FTDI драйвер D2XX работает только с массивом типа STRING.

Бред. Поганое описание функции FT_Read нужно заменить правильным, и никакие String-и будут не нужны.

А так у тебя двойное преобрвазоение туда-сюда-отсюда вызываются, которые не имеют под собой никого смысла, кроме отжирания процессорного времени. Бить за такое надо.

[ger_kar]

А где тут массив?

Даже если оставить объявление функции как есть, со стрингом, то действительно, а где тут массив? И даже сама постановка вопроса в корне неверная. Потому, как никакого строкового массива здесь нет и в помине, а есть строковый буфер, т.е. одна строка со множеством символов. Если это и массив, то не строковый, а символьный. Но VB такой тип данных как Char не поддерживает.
А вообще конечно нужно делать как говорит Хакер, переобъявить функцию и получать сразу байтовый массив.

[Dimon111]

Предыстория такова: FTDI драйвер D2XX работает только с массивом типа STRING.

Бред. Поганое описание функции FT_Read нужно заменить правильным, и никакие String-и будут не нужны.

А так у тебя двойное преобрвазоение туда-сюда-отсюда вызываются, которые не имеют под собой никого смысла, кроме отжирания процессорного времени. Бить за такое надо.

По поводу бреда. Попробуйте подставить в функцию массив AS Byte. Вы на выходе получите нули. As Integer даёт некорректное завершение программы. В Си массив char с этой функцией работает на ура. Я может быть в VB профан, но с D2xx работаю не первый год.

Так что прежде чем бить и объявлять бредом, разобраться бы надо...

[Хакер]

По поводу бреда. Попробуйте подставить в функцию массив AS Byte. Вы на выходе получите нули. В С массив char с этой функцией работает на ура. Я может быть в VB профан, но с D2xx работаю не первый год.

Потому что надо думать, что делаешь.

Если ты в объявлении аргумент ByVal lpszBuffer As String заменишь на ByRef lpszBuffer() As Byte, то вызываемая функция будет получать указатель на SafeArray-дескриптор.

Поэтому переобъявлять надо как ByRef lpBufferFirstElm as Byte и передавать первый элемент буферного массива.

[Dimon111]

По поводу бреда. Попробуйте подставить в функцию массив AS Byte. Вы на выходе получите нули. В С массив char с этой функцией работает на ура. Я может быть в VB профан, но с D2xx работаю не первый год.

Потому что надо думать, что делаешь.

Если ты в объявлении аргумент ByVal lpszBuffer As String заменишь на ByRef lpszBuffer() As Byte, то вызываемая функция будет получать указатель на SafeArray-дескриптор.

Поэтому переобъявлять надо как ByRef lpBufferFirstElm as Byte и передавать первый элемент буферного массива.

И получите вылет из функции с разрушением всей программы. Плавали. Знаем.

[Dimon111]

А где тут массив?

Даже если оставить объявление функции как есть, со стрингом, то действительно, а где тут массив? И даже сама постановка вопроса в корне неверная. Потому, как никакого строкового массива здесь нет и в помине, а есть строковый буфер, т.е. одна строка со множеством символов. Если это и массив, то не строковый, а символьный. Но VB такой тип данных как Char не поддерживает.
А вообще конечно нужно делать как говорит Хакер, переобъявить функцию и получать сразу байтовый массив.

Он то конечно говорит, но не пробовал. А тип Byte в VB разве не то же самое что unsigned char? может я некорректно назвал массив строковым, но символьный - то массив есть...

[Хакер]

И получите вылет из функции с разрушением всей программы. Плавали. Знаем.

Да нифига не знаешь. Твоим объяснениям я верю в тысячу раз меньше, чем своим знаниям.
Не плавал ты и не знаешь, вот как. Для тебя это чёрный ящик, и ты просто ищешь удачные методы работы с ним.

А для меня это кристально чистая система, я знаю, что куда передаётся и куда каждый байтик идёт.

Во-первых глупо писать «рушится». Не рушится, а исключение генерируется, которое проходит по всей цепочке обработчиков исключения, но не находит нужного. Во-вторых, у исключения код есть и параметры. Код скорее всего 0xC0000005. И тут уже надо смотреть, куда совершается попытка записи или откуда совершается попытка чтения. Что пишется/читается и по какому адресу. А не тупо писать «рушится».

Во-вторых, предлагаю тебе всё-таки показать код. Наверняка косяк вылезет при первом же взгляде на него.

[Dimon111]

И получите вылет из функции с разрушением всей программы. Плавали. Знаем.

Да нифига не знаешь. Твоим объяснениям я верю в тысячу раз меньше, чем своим знаниям.
Не плавал ты и не знаешь, вот как. Для тебя это чёрный ящик, и ты просто ищешь удачные методы работы с ним.

А для меня это кристально чистая система, я знаю, что куда передаётся и куда каждый байтик идёт.

Во-первых глупо писать «рушится». Не рушится, а исключение генерируется, которое проходит по всей цепочке обработчиков исключения, но не находит нужного. Во-вторых, у исключения код есть и параметры. Код скорее всего 0xC0000005. И тут уже надо смотреть, куда совершается попытка записи или откуда совершается попытка чтения. Что пишется/читается и по какому адресу. А не тупо писать «рушится».

Во-вторых, предлагаю тебе всё-таки показать код. Наверняка косяк вылезет при первом же взгляде на него.

Не находит нужного это когда у Вас вылезает окно с соответствующим предупреждением. А когда под W7 процесс виснет так, что убить его можно только через Диспетчер - возможно и тут Вы подберёте другое слово, смысл от этого не изменится.

Код с As Byte могу привести только по памяти. Поскольку полгода назад убил на это кучу времени, не получив результата. Прменяю стандартный, пледложенный в описании драйвера D2XX код. Там, кстати про As Byte не сказано ни слова.

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

Private Declare Function FT_Read Lib "FTD2XX.DLL" (ByVal Handle As Long, ByVal lpszBuffer As String, 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, RSVString, BytesRead, lngBytesRetuned) '
    If (ftStatus = FT_IO_ERROR) Then OutLog "IO_ERROR"        'Если произошла ошибка приема - выдать сообщение
End Sub               

Так вот, если ByVal lpszBuffer As String заменить на ByRef lpszBuffer() As Byte в объявлении, а вызывать со ссылкой на первый элемент:

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

tStatus = FT_Read(Handle, ByteArr(1), BytesRead, lngBytesRetuned) '

То программа рушится(виснет, не отвечает или что там ещё - я не претендую на название). Спорить не буду, возможно и тут я что - то накосячил, но ни в описании, ни в Сети я не нашёл ни одного примера, в котором вызов этой функции осуществлялся со ссылкой на байтовый массив.

[Хакер]

Где объявлен ByteArr? Где он редимится? Почему индекс единица?

Ты делаешь ерунду, и сам не отдаёшь себе отчёта о том, насколько ерундой является то, что ты делаешь.

[Dimon111]

Где объявлен ByteArr? Где он редимится? Почему индекс единица?

Ты делаешь ерунду, и сам не отдаёшь себе отчёта о том, насколько ерундой является то, что ты делаешь.

Наверно Вы имели ввиду Redim Preserve. Так нафига он нужен, если функция работает с массивом ТОЛЬКО фиксированной длинны.

А объявлял я их так:

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

Dim RSVString As String * 256
Dim ByteMass(256) As Byte

А если Вы попробуете сунуть в эту функцию ещё и переменный массив, то флаг Вам в руки. Здесь Вы действительно получите исключение. Только не помню какое...

[ger_kar]

Ну виснет косяк потому что в объявлении. Ты объявляешь как массив, соответственно передается указатель не на буфер в памяти а на SafeArray, об этом же уже было написано.

Поэтому переобъявлять надо как ByRef lpBufferFirstElm as Byte и передавать первый элемент буферного массива.

ByRef lpszBuffer() As Byte

Разницу чувствуешь?

[Qwertiy]

Так вот, если ByVal lpszBuffer As String заменить на ByRef lpszBuffer() As Byte в объявлении

А почему собственно с массивом?

[Хакер]

Наверно Вы имели ввиду Redim Preserve. Так нафига он нужен, если функция работает с массивом ТОЛЬКО фиксированной длинны.

Функции глубоко плевать, является SA-массив массивом фиксированной длины или переменной длины. Она даже не знает, это SA-массив или просто какой-то кусок памяти, выделенный, скажем, с помощью HeapAlloc. Ей дали указатель на кусок память и размер этого куска — он в этот кусок пишет.

Чтобы всё прошло гладко, надо просто передать ей правильный указатель и правильный размер куска.

И не надо рассказывать тут про «действительно получите исключение».

Ты может быть потроллть сюда пришёл? Иначе я не вижу причин оспаривать очевидные вещи. Или ты думаешь, я тут дурачок какой-то пришёл и пишу о выдуманных вещах, мало относящихся к реальности?

[Dimon111]

Ну виснет косяк потому что в объявлении. Ты объявляешь как массив, соответственно передается указатель не на буфер в памяти а на SafeArray, об этом же уже было написано.

Поэтому переобъявлять надо как ByRef lpBufferFirstElm as Byte и передавать первый элемент буферного массива.

ByRef lpszBuffer() As Byte

Разницу чувствуешь?

Наверно я действительно дурак. Не понимаю. Написал же:

Так вот, если ByVal lpszBuffer As String заменить на ByRef lpszBuffer As Byte в объявлении

Или я не понимаю что такое переобъявление в VB...

[Dimon111]

Наверно Вы имели ввиду Redim Preserve. Так нафига он нужен, если функция работает с массивом ТОЛЬКО фиксированной длинны.

Функции глубоко плевать, является SA-массив массивом фиксированной длины или переменной длины. Она даже не знает, это SA-массив или просто какой-то кусок памяти, выделенный, скажем, с помощью HeapAlloc. Ей дали указатель на кусок память и размер этого куска — он в этот кусок пишет.

Чтобы всё прошло гладко, надо просто передать ей правильный указатель и правильный размер куска.

И не надо рассказывать тут про «действительно получите исключение».

Ты может быть потроллть сюда пришёл? Иначе я не вижу причин оспаривать очевидные вещи. Или ты думаешь, я тут дурачок какой-то пришёл и пишу о выдуманных вещах, мало относящихся к реальности?

Тогда предлагаю пробовать самому. Тролить я не собирался. Я получил ответ на свой вопрос. Зачем в этой ветке открывать тему, которая к ней не относится мне непонятно. Я не спрашивал здесь как работать с D2xx. Вы сами - то работали с D2XX или "настоящему спецу не надо пробовать чтобы знать"?

[ger_kar]

Можешь вообще объявитьByVal pBuffer as Long, а аргумент передавать VarPtr(MyArray(0)) и все прекрасно работает. И до фонаря какой массив статичный или динамичный.

Наверно я действительно дурак. Не понимаю. Написал же:Так вот, если ByVal lpszBuffer As String заменить на ByRef lpszBuffer() As Byte в объявленииИли я не понимаю что такое переобъявление...

Ты не понимаешь того, что ты хочешь передать. Разницу ты так и не увидел, хотя она очевидна. В объявлении у Хакера просто переменная, у тебя массив. В Варианте Хакера или как я показал функция получит адрес начала буфера в памяти, в твоем варианте она получает адрес структуры SafeArray.

[Dimon111]

Можешь вообще объявитьByVal pBuffer as Long, а аргумент передавать VarPtr(MyArray(0)) и все прекрасно работает. И до фонаря какой массив статичный или динамичный.

Наверно я действительно дурак. Не понимаю. Написал же:Так вот, если ByVal lpszBuffer As String заменить на ByRef lpszBuffer() As Byte в объявленииИли я не понимаю что такое переобъявление...

Ты не понимаешь того, что ты хочешь передать. Разницу ты так и не увидел, хотя она очевидна. В объявлении у Хакера просто переменная, у тебя массив. В Варианте Хакера или как я показал функция получит адрес начала буфера в памяти, в твоем варианте она получает адрес структуры SafeArray.

Там скобок нет. Писал по памяти - ошибся. Результат всё равно был печальный...

Ок. Раз пошла такая пьянка в понедельник попробую. Железо у меня на работе...

[ger_kar]

Тогда предлагаю пробовать самому. Тролить я не собирался. Я получил ответ на свой вопрос.

Все прекрасно работает. Ничего даже и не думает 'падать'.

[Хакер]

Зачем в этой ветке открывать тему, которая к ней не относится мне непонятно.

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

Наверно я действительно дурак. Не понимаю. Написал же:

Так вот, если ByVal lpszBuffer As String заменить на ByRef lpszBuffer() As Byte в объявлении

Наверное ты действительно невнимательный.

Читаем ещё раз:

Если ты в объявлении аргумент ByVal lpszBuffer As String заменишь на ByRef lpszBuffer() As Byte, то вызываемая функция будет получать указатель на SafeArray-дескриптор (это неправильный исход дела).

Поэтому переобъявлять надо как ByRef lpBufferFirstElm as Byte и передавать первый элемент буферного массива. (это правильный исход)

[Dimon111]

Тогда предлагаю пробовать самому. Тролить я не собирался. Я получил ответ на свой вопрос.

Все прекрасно работает. Ничего даже и не думает 'падать'.

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

[Dimon111]

Зачем в этой ветке открывать тему, которая к ней не относится мне непонятно.

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

Наверно я действительно дурак. Не понимаю. Написал же:

Так вот, если ByVal lpszBuffer As String заменить на ByRef lpszBuffer() As Byte в объявлении

Наверное ты действительно невнимательный.

Читаем ещё раз:

Если ты в объявлении аргумент ByVal lpszBuffer As String заменишь на ByRef lpszBuffer() As Byte, то вызываемая функция будет получать указатель на SafeArray-дескриптор (это неправильный исход дела).

Поэтому переобъявлять надо как ByRef lpBufferFirstElm as Byte и передавать первый элемент буферного массива. (это правильный исход)

Да написал же выше. Нет там скобок.

Блин. Трудно соображать когда ребёнок орет на ухо. Я задал простой вопрос, не думал что он за собой так глубоко потянет...

Вот так было: ByRef ByteArray As Byte. ByteArray объявлен фиксированным ByteArray(256). Всё равно под семёркой окно становится бледным и убивается только через Диспетчер.

[Хакер]

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