Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получение указателя на масиив из dll на Delphi [D6, Win2k]

zux © (2002-04-27 21:47:00)
Есть длл Написанная а Обжект Паскале
Вот пример экспортной фукнции

type Aint=array of Integer;
type PAint=^Aint;

function Test():PAint;stdcall;
var
asd:Aint;
begin
setLength(Aint,2);
asd[0]:=2;
asd[1]:=4;
Result:=@asd;
end;

теперь в С++
я делаю

typedef int *pint;
typedef pint (_stdcall *FTest)();
FTest Test;
HINSTANCE Main_dll;

Main_dll=LoadLibrary("Main.dll");
Test=FTest(GetProcAddress(Main_dll,"Test"));

pint p;
p=Test();//p-указатель на массив в длл приетом этот указетель
несодержит не каких данных а если и содержит то ето не данные а мусор

а вот если в длл поменять
type Aint=array of Integer; на
type Aint=array[0..2] of Integer;
ТОбиш как только меняем динамический масси на статический все нормально
Подскажите как заставить работать данный пример с динамическим массивом

Dimk (2002-04-29 11:39:00) [1]
Ты возвращаешь из Test указатель на данные в стеке ( asd располагается в стеке! Даже если это динамический массив то в asd содержится указатель на ...). Это классический глюк.
Когда ты вернешься из процедуры - стек очистится asd с высокой вероятностью будет затерт. Сделай asd глобальным.

Alx2 (2002-04-29 11:19:00) [2]
Динамические массивы - вещь специфичная Delphi. C++ не поймет. Делай статикой, либо "стандартными" типами данных, либо расковыривай у Delphi менеджер памяти и смотри как он с динамическими массивами работает. Либо используй свой тип данных со своей поддержкой.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »