Передача структур из VB6 в C++

@VcoderB · Регистрация: 02.06.2015

Студворк — интернет-сервис помощи студентам

Всем доброго дня. В общем создаю структуры на VB:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Type STVAR
    var1 As Double
    var2 As Double
    var3 As Double
    var4 As Double
    var5 As Long
    var6 As Long
End Type
 
Public Type STVAR2
    var1 As Long
    var2 As Double
    var3 As Double
    var4 As Double
    var5 As Long
    var6 As Long
End Type

Объявляю импортируемую функцию:

Visual Basic
1
Public Declare Function ST_solver Lib "DLLC++.dll" (STV As STVAR, STV2 As STVAR2) As Long

Далее в кнопке пишу:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim STV As STVAR
Dim STV2 As STVAR2
 
Dim resul As Long
    
STV.var1 = 10
STV.var3 = 4.6
STV.var6 = 100
 
STV2.var1 = 20
STV2.var3 = 3.8
STV2.var6 = 200
 
resul = ST_solver(STV, STV2)
    
Text1.Text = STV.var4 & vbCrLf & STV2.var4

Код в С++:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
struct STVAR
{
    double var1;
    double var2;
    double var3;
    double var4;
    long var5;
    long var6;
};
 
struct STVAR2
{
    long var1;
    double var2;
    double var3;
    double var4;
    long var5;
    long var6;
};
 
extern "C" __declspec(dllexport) long ST_solver(STVAR &STV, STVAR2 &STV2);
 
extern "C" __declspec(dllexport) long ST_solver(STVAR &STV, STVAR2 &STV2) {
    STV.var4 = (STV.var1 + STV.var6) * STV.var3;
    STV2.var4 = (STV2.var1 + STV2.var6) * STV2.var3;
    return 0;
}

В результате вычисляется неправильно значение во второй структуре:

506
2,91643768245327E-303

@The trick · 12.08.2015, 11:51

Все из-за выравнивания. Пробуй так:

C++
1
2
3
4
5
6
7
8
9
10
11
#pragma pack(push, 1)
struct STVAR2
{
    long var1; 
    double var2;
    double var3;
    double var4;
    long var5;
    long var6;
};
#pragma pack( pop )

@VcoderB · 12.08.2015, 12:36 **[ТС]**

The trick, премного благодарен! То, что нужно! Спасибо!

Новые блоги и статьи Все статьи Все блоги /
ПЛИС zxcha1ka_ 27.01.2026 AHDL Разработать программы для синтеза следующих устройств: 1. Параллельного регистра 4-х разрядного с синхронной загрузкой и асинхронным сбросом (обнулением); Пoмoгитe пoжaлyйстa	Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

@VcoderB 0 / 0 / 0 Регистрация: 02.06.2015 Сообщений: 6
	12.08.2015, 12:36 [ТС]
	The trick, премного благодарен! То, что нужно! Спасибо! 0

Передача структур из VB6 в C++

Решение