Выравнивание размера структуры / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выравнивание размера структуры

5 сообщений из 5, страница 1 из 1

Выравнивание размера структуры

#33760577

pro-fan

Гость

Здравствуйте. Помогите пожалуйста разобраться с таким вопросом.
В моей программе есть структура полями которой являются разные типы данных. Когда я считаю ее размер с помощью функции LenB то оказывается что он больше действительного.

Код: plaintext

1.
2.
3.
4.
5.

 
Public Type MyType
  A As Integer
  B As Long
End Type

Размер такой структуры должен быть 6 байт. LenB возвращает значение 8 байт. Насколько я понял это происходит из-за выравнивания структуры в памяти по размеру поля с наибольшими размерами. Подскажите как посчитать настоящий размер структуры

...

Рейтинг:

0 / 0

30.05.2006, 13:35

| Ответить | Цитировать | Написать

Выравнивание размера структуры

#33761526

Aklin

Участник

Откуда: Прямо сейчас меня здесь нет

Сообщения: 63 387

Рейтинг: 0 / 0

а ты в инт уверен? я из си читал инт как 4 байта.
а short - 2 байта.
Ну а лонг - понятно, всегда было 4.

Проверь инт. или читай структуру структурой (целиком), а не по полям.

Я читал целиком стуктуру из 12 полей ,в т.ч. 2 массива структур, 4 длиииинные подструктуры. Прим. чтение гораздо быстрее.

Прим. Возможно также, что VB приписывает нечто. Например официально массив из 12 байт весит 12 байт, но фактически - 12 + 4 на ubound+lbound = 16 (или около того).

...

Рейтинг:

0 / 0

30.05.2006, 18:32

| Ответить | Цитировать | Написать

Выравнивание размера структуры

#33761814

bac

Участник

Откуда: Пенза

Сообщения: 443

Рейтинг: 0 / 0

Private Sub Command1_Click()
Dim xx As MyType
Print Len(xx)
End Sub

Выдает 6.

А уважаемый aklin путает С c VB. Да и там у Вас не все гладко.
Согласно ANSI в int хранится слово. А в зависимости о машины, версии компилятора может иметь разную длину. Для 16 разрядного компилятора Borland C, Microsoft C - 2 байта, для 32 - разрядного 4 байта, а для 64 - соответсвенно 8 байт.

А для VB по крайней мере VB4-6 (для VB.Net не знаю) одназначно 2 байта.

...

Рейтинг:

0 / 0

30.05.2006, 20:41

| Ответить | Цитировать | Написать

Выравнивание размера структуры

#33762105

Бенедикт

Участник

Сообщения: 2 108

Рейтинг: 0 / 0

pro-fan,
LenB говорит правду - такая структура действительно занимает 8 байт.
HelpWith user-defined types, LenB returns the in-memory size, including any padding between elements.
В VB используется выравнивание элементов структуры (UDT) по границе 32-разрядного слова, т.е. 4 байт. Это значит, что элементы размером 1 байт выравниваются по границе байта (= не выравниваются), 2 байта (в т.ч. Integer) - по границе 16 бит, 4 байта и больше - по границе 32 бит. См. MSDN, Q171583. Кстати, поскольку, например, в C/C++ выравнивание можно указать индивидуально для структуры, многие структуры в Win32 API имеют первым полем размер структуры - чтобы было понятно, какое выравнивание было к ним в прикладной программе применено.

Для примера возьмём MyType и убедимся, что и как в ней распологается:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Public Type MyType
   A As Integer
   B As Long
End Type

Private Type MyType2
   S( 0  To  7 ) As Byte
End Type

Public Sub PrintMyTypeBytes()
 Dim x As MyType
 Dim y As MyType2
 Dim i As Long
 x.A = &H201
 x.B = &H6050403
 LSet y = x
 For i =  0  To  7 
    Debug.Print i, "&H" & Hex$(y.S(i))
 Next i
End Sub

...

Рейтинг:

0 / 0

31.05.2006, 01:15

| Ответить | Цитировать | Написать

Выравнивание размера структуры

#33763457

pro-fan

Гость

Большое спасибо. Мне помогло использование функции Len вместо LenB. Все размеры считаются правильно.

...

Рейтинг:

0 / 0

31.05.2006, 14:24

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выравнивание размера структуры

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=33763457&tid=2165782]:	0ms
get settings:	7ms
get forum list:	13ms
check forum access:	2ms
check topic access:	2ms
track hit:	26ms
get topic data:	10ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	217ms

total:	326ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы