Выравнивание структур в VB.

[keks-n]

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

Option Explicit
Private Type Test
b1 As Byte
b2 As Byte
dw As Long
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Sub Main()
Dim bt(5) As Byte, t As Test
bt(2) = 1
bt(3) = 1
CopyMemory t, bt(0), 6
MsgBox t.b1 & " " & t.b2 & " " & t.dw & vbCrLf + "Куда подевалась единица?", vbQuestion, "Help!"
End Sub

У меня 3-ий и 4-ый байты почему-то не желают входить в структуру. Выложенный код выдал нули. Реально в памяти она занимает 8 байт, вместо положенных 6.То есть между b2 и dw 2 байта не входящих в структуру, видимо использованных, для выравнивания до DWORD. Если мне не изменяет память, то так быть не должно. Похоже на покарябанность Basic'а на моём компе, иначе объяснить не могу.

Почему так?

[_ae_]

Реально в памяти она занимает 8 байт, вместо положенных восьми

Что?
А если серьезно - видимо в VB элементы структуры выравниваются на 2-байтовую границу

[keks-n]

Тьфу. Очепятка. Там 6 должно быть. А присутствует 8.

[GSerg]

Почему так?

Потому что RTFM.
Структуры VB выровнены на 4 байта.

[_ae_]

Почему так?

Потому что RTFM.
Структуры VB выровнены на 4 байта.

А почему это FM не соотносится с таким простым кодом:

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

Private Type T1
    I1 As Integer
    I2 As Integer
    I3 As Integer
End Type

Private Sub Form_Load()
    Dim A As T1
    MsgBox Len(A)=6
End Sub


[GSerg]

И что же здесь не соотносится?

[_ae_]

OK, что есть "выровнены на 4 байта"? dword-aligment или чтото другое?

[GSerg]

Ну да. А что ещё?
Или ты думал, что структура из 4 одиночных байт при выравнивании на 4 имела бы размер 16 байт? А она таки 4.

[_ae_]

Честно говоря, я чего-то не понимаю

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

#include<iostream>
using namespace std;

#pragma pack(1)

struct A
{
   short a;
   char b;
   short c;
};

#pragma pack(2)

struct B
{
   short a;
   char b;
   short c;
};

#pragma pack(4)

struct C
{
   short a;
   char b;
   short c;
};

#pragma pack(8)

struct D
{
   short a;
   char b;
   short c;
};

void main()
{
   cout<<sizeof(A)<<endl<<sizeof(B)<<endl<<sizeof(C)<<endl<<sizeof(D);
   cin.getline(new char[100],100);
}

В приведенном коде получается 5 6 6 6
А на что тогда влияют цифры 2,4,8 ?

[tyomitch]

Смысл выравнивания в том, что каждое поле выравнивается на min(размер поля, размер выравнивания).

[_ae_]

tyomitch
Если так, то получается, что именно

структура из 4 одиночных байт при выравнивании на 4 имела бы размер 16 байт

[GSerg]

min(1, 4) = 1, _ae_.

[_ae_]

аааа
Спасибо, прояснили ситуацию

[keks-n]

Получается, что из-за этого выранивания я не могу корректно скопировать данные из массива в структуру? А ежели в TLB объявить, как в сишных хеадерах, то пробелы между элементами исчезнут?

[GSerg]

Не "исчезнут", а будут те, которые укажешь.

[pronto]

Чтобы узнать количество байт занимаемых переменной, используйте функцию LenB(Имя_переменной)

[tyomitch]

Получается, что из-за этого выранивания я не могу корректно скопировать данные из массива в структуру? А ежели в TLB объявить, как в сишных хеадерах, то пробелы между элементами исчезнут?

Из какого такого массива?
В массиве все элементы имеют одинаковый тип. А в структуре нет.

[keks-n]

Это плохо То есть, надо поэлементно копировать... В этом плане VB.NET даже лучше - позволяет жёстко задать смещение относительно начала структуры.

[GSerg]

А какое это имеет отношение к типам?

[tyomitch]

Это плохо То есть, надо поэлементно копировать... В этом плане VB.NET даже лучше - позволяет жёстко задать смещение относительно начала структуры.

Да что ты такое несёшь? смысл от меня полностью ускользает.
Когда может понадобиться копировать массив в структуру и обратно? при том, что в массиве элементы всегда однородные, а в структуре -- всегда разнородные.
Если в структуре все элементы однородные, то выравнивания как бы нет.

[keks-n]

Фишка в чём - гружу полностью некий файл в массив и пытаюсь из массива выделить структуры. Нарываюсь на пробелы между членами типа. Иду сюда. Вот и вся история.

[Viper]

а сразу в структуры (в массив структур) прочитать по каким то причинам нельзя?

[Ennor]

Ну или забить в структуру padding-члены. Штатная практика, вообще-то.