CopyMemory и строки в vb6

[neit95]

Здравствуйте. Мне нужно было скопировать строку содержащуюся в бинарном массиве собственно в строку. Решил делать это при помощи CopyMemory, но получаю белиберду и периодические падения, причём:

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

Type T
    S As String * 4
End Type
'...
Dim A(0 To 3) As Byte
    Dim Var2 As T
    Dim Var1 As String * 4
   
    A(0) = &H61&
    A(1) = &H62&
    A(2) = &H63&
    A(3) = &H64&
   
    CopyMemory Var2, A(0), Len(Var2)
    MsgBox Var2.S
   
    CopyMemory Var1, A(0), Len(Var2)
    MsgBox Var1


Первое исполнение CopyMemory пройдёт нормально и в строке окажется то, что нужно, а на 2-ом либо упадёт, либо белиберду выведет.
Где-то слышал, что к строке спереди "приклеена" информация о её размере в количестве 4-х байт. Думал дело в этом, поэтому пробовал вместо простой передачи Var1 передать указатель с учётом "приклеенной" информации: VarPtr(Var1)+4. Может чушь сделал, но, в любом случае, не помогло, да и просто передача VarPtr(Var1) тоже. В общем, использовал всё, что могло прийти в мою буйную фантазию.
Вопроса по этому поводу два:
1) Каковы причины такого поведения (собственно, отличие строки в структуре от просто переменной)?
2) Как эту проблему можно решить?

[Mikle]

пробовал вместо простой передачи Var1 передать указатель с учётом "приклеенной" информации: VarPtr(Var1)+4

Когда в функцию вместо ByRef параметра передаёшь указатель на него, указатель нужно передавать ByVal:

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

ByVal VarPtr(var)

Для получения указателя на строку в VB6 существует функция StrPtr()
Строки в VB6 юникодные, один символ - два байта. Но при передаче их во внешние (объявленные через Declare) процедуры они автоматически конвертируются в ASCII. Если строка завёрнута в структуру, этого не произойдёт. Конвертировать между форматами ASCII и Unicode можно с помощью StrConv().

[Хакер]

Вообще-то строка конвертируется в массив байтов очень просто:

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

Dim s1 as string
Dim s2 as string
Dim b() as byte

s1 = "Привет, земляне"

b = s1 ' Туда

s2 = b ' Обратно

Dim b_as_hex_dump as string
for i = LBound(b) To UBound(b)
        b_as_hex_dump= b_as_hex_dump + " " + Right("00" + Hex(b(i)), 2)
next i
MsgBox b_as_hex_dump


Но прежде нужно вести джихад против собственной убеждённости, что 1 символ строки соответствует одному элементу байтового массива. Это будет иметь смысл, только если есть некая таблица соответствия значений в диапазоне 0—255 и человеческим символов. Любой массив байтов не имеет никакого смысла, пока он дополнительно не снабжён информацией о том, какой из десятков придуманных человечеством подобных таблиц нужно пользоваться при преобразовании.

Читать 20 раз до просветления:

• Абсолютный минимум, который каждый разработчик обязательно должен знать о Unicode и наборах символов
• Назад, к основам

[neit95]

В общем, только что, после одного эксперимента мне удалось скопировать строку (точнее выполнить преобразование строка-байтовый массив-строка). Я просто не правильно строку передал. Вместо:

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

CopyMemory Var2, b(0), Len(Var2)

нужно было:

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

CopyMemory b(0), ByVal Var1, ByVal Len(Var1)

Причём, если отобразить элементы массива, то они не в Unicode (по крайней мере не в 2-х байтовом Unicode). Строки в vb в utf-8 получается?
За статьи и за простой метод преобразования спасибо. И, кстати, с StrPtr ничего не получилось, точнее StrPtr копирует строки, как Unicode (именно 2-х байтовый).

[Хакер]

Всё зависит от того, как объявлена RtlMoveMemory. ByVal ... As String, ByRef ... As String или ... As Any.
С помощью Declare или же с помощью TLB. С помощью TLB для юникодных строк — правильне, ибо с Declare остаётся только вариант As Any.

Строки в vb в utf-8 получается?

Нет.

Когда трава была зелёной, а MS хотели сделать COM некой грандиозной платформой, они VB делали максимально COM-орентированным языком. Поэтому строки в VB — это всего лишь частный случай COM-строк и все правила для них действуют. Поэтому VB-шная строка имеет тот же тип и устройство что и BSTR в COM.

Устройство простое: переменные, хранящие строку, функции, возвращающие строку, аргументы, принимающие строку, на самом деле хранят/возвращают/принимают 4-байтное значение, являющееся указателем.

Указатель указывает на начало UCS-2 строки в памяти. В конце присутствует нулевой юникодный символ (2-байтовый), а непосредственно перед началом строки хранится 4-байтовая длина.

[ger_kar]

И, кстати, с StrPtr ничего не получилось, точнее StrPtr копирует строки, как Unicode (именно 2-х байтовый).

StrPtr вообще ничего не копирует, а возвращает указатель на текстовый буфер.

Устройство простое: переменные, хранящие строку, функции, возвращающие строку, аргументы, принимающие строку, на самом деле хранят/возвращают/принимают 4-байтное значение, являющееся указатель.Указатель указывает на начало UCS-2 строки в памяти.

Вот именно этот адрес и возвращает StrPtr.

Причём, если отобразить элементы массива, то они не в Unicode

Ну естественно они не в юникоде. При таком вызове как у тебя происходит неявное преобразование в ANSI и именно эти данные и были скопированы поэтому в массиве никакого юникода нет и в помине.

[neit95]

Всё, теперь разобрался. Всем огромное спасибо.