Размер типов

[Debugger]

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

Option Explicit

Private Type SomeType
    Str As String * 8
    Flt As Single
End Type

Private Sub Form_Load()
    Dim data(1) As SomeType
    Debug.Print Len(data(0)), VarPtr(data(0)), VarPtr(data(1))
End Sub

Выводит

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

12            2067664       2067684

Правильно, размер типа - 12 байт. Но почему между двумя элементами массива дырка аж 20?
Кстати, если заменить Str As String*8 на b(7) As Byte, то между двумя элементами будет 12 байт, как и положено. Откуда лишних 8 байт?

[Хакер]

Потому что реальный размер — 20. 16 — первое поле, 4 — второе.

[Debugger]

Тогда почему Len выводит 12?
В памяти лежат 8 байт строки, 4 байта float и ещё 8 - чего-то непонятного.

[Хакер]

В памяти лежат 8 байт строки, 4 байта float и ещё 8 - чего-то непонятного.

Что, неужели даже после этого не доходит?

8 байт строки бы лежало в VB4.
А в VB5 и VB6 — строки юникодные, вообще-то, да

[Debugger]

Я всегда думал, что в VB6-юникоде символ занимает два байта и символы идут подряд.
Но почему-то в памяти всё идет в таком порядке (как я уже написал): 8 - строка, 4 байта Flt и в конце - ещё 8. Сначала 8 четных байт юникодной строки, в конце типа - 8 нечетных?
Или это такой хитрый прием для совместимости с ASCII, а заглушка в конце - на случай, если мы вспомним, что на самом деле тип должен весить 20 байт?
У меня это ломает стереотипы и рвет шаблоны.

[Хакер]

Но почему-то в памяти всё идет в таком порядке (как я уже написал): 8 - строка, 4 байта Flt и в конце - ещё 8. Сначала 8 четных байт юникодной строки, в конце - 8 нечетных?

Откуда ты это взял?

У тебя измерения, метод которых вносит недопустимую погрешность в процесс измерения. Это концептуальное понятие.

[Debugger]

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

Option Explicit

Private Type SomeType
    Str As String * 8
    Flt As Single
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Form_Load()
    Dim data(1) As SomeType
    Dim b(1 To 20) As Byte, c As Integer
    Debug.Print Len(data(0)), VarPtr(data(1)) - VarPtr(data(0))
    data(0).Str = "test str"
    CopyMemory b(1), data(0), 20
    For c = 1 To 20
        Debug.Print b(c), Chr(b(c))
    Next
End Sub


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

12            20
116          t
101          e
115          s
116          t
32           
115          s
116          t
114          r
0             
0             
0             
0             
192          А
62           >
25           
0             
212          Ф
62           >
25           
0             

Может быть, я что-то не так делаю?

[Хакер]

Ну всем же известно, что вызовы через Declare устроены таким образом, что при оформлении вызова генерируется код, который переводит все исходящие строки из юникода в ANSI, а всех входящие — наоборот.

Но если b(1) заменить на ByVal VarPtr(b(1)) магия от VB обламается, потому что VarPtr — тот же Any-аргумент, но функция объявлена не через Declare, а через TLB.
Тот же результат будет, если не использовать VarPtr, а использовать текущий код, но CopyMemory объявить в TLB.

Правильные ребята поступают так: не делают никаких CopyMemory, а делают MsgBox Hex(VarPtr(b(1))). Когда ожидаемый бокс появятся, они копируют из него адрес, открывают OllyDbg, и смотрят дамп о указанному (в боксе) адресу.

[Debugger]

И вправду!
Спасибо!

[NashRus]

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

Debug.Print LenB(data(0)) ' 20