Делфийская DLL и основная программа C++, передача агрументов туда-сюда

[MrGalaxy]

Здравствуйте!

Имеется
DLL:

library M3_78M;

var N: integer;

{$R *.res}

function GetValue(PM:pointer; out PN:pointer): boolean; stdcall; Export;
 var M: integer;
     MM: ^integer;
Begin
 GetValue:=false;

 MM:=PM;
 M:=MM^;
 N:=M+1;
 PN:=@N;

 GetValue:=true;
end;

{----------------------------------------------------------------------}

Exports GetValue;

begin
end.

Осн. прога:

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
 hM3_dll = LoadLibrary("M3_78M.dll");
 GetValue =(TGetValue)GetProcAddress(hM3_dll,"GetValue");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int Mumber, // Входной параметр
 *AMumber,  // Указатель (адрес) входного параметра
  Number, // Выходной параметр
 *ANumber,  // Указатель (адрес) выходного параметра
 **AANumber; // Указатель (адрес) указателя (адреса) вых. параметра

// Присвоение значения входному параметру
 Mumber=StrToInt(Edit2->Text);
// В качестве входного параметра подпрограммы
// используются указатель (адрес)
 AMumber=&Mumber;

// В качестве выходного параметра подпрограммы
// используются указатель указателя
// (адрес адреса)
 AANumber=&ANumber;

 GetValue(AMumber, AANumber); // Вызов подпрограммы

// Извлечение значения выходного параметра по указателю
 Number=*ANumber;
 Edit1->Text=IntToStr(Number);

 Application->ProcessMessages();
}

//---------------------------------------------------------------------------

Заголовок:

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TButton *Button1;
	TEdit *Edit1;
	TEdit *Edit2;
	void __fastcall Button1Click(TObject *Sender);
	void __fastcall FormActivate(TObject *Sender);
private:	// User declarations
public: // User declarations
	__fastcall TForm1(TComponent* Owner);
};
//====================================================================//
 typedef bool (WINAPI *TGetValue)(int*, int**); // ** !
 TGetValue GetValue;
 HINSTANCE hM3_dll;
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Проект простой. На форме одна кнопка и два поля TEdit. По нажатии на кнопку происходит увеличение содержимого Edit2 на единицу и результат заносится в Edit1.

Почему в C++ входной параметр воспринимается как ссылка, а выходной - как ссылка ссылки?
При этом, если основная прога написана на Делфи, то всё ожидаемо: и входной, и выходной параметры воспринимаются как ссылки на числа.

Извращался по всякому. И cdecl ставил, и var вместо out. Один фиг...

Это так задумано, или я где-то накосячил? Полдня лопатил всемирную помойку, ничего не нашёл.
Подскажите, плз., если кто сталкивался.

[Stilet]

А ты не ставь Out вообще. Пусть туда просто указатель передается.
P.S. Если честно я не очень понял смысл функции в ДЛЛ...

[Slym]

function GetValue(PM:Pinteger; var PN:Pinteger): BOOL; stdcall; Export;?

[MrGalaxy]

Сообщение от Stilet

А ты не ставь Out вообще. Пусть туда просто указатель передается.

Без комментариев.

Сообщение от Slym

function GetValue(PM:Pinteger; var PN:Pinteger): BOOL; stdcall; Export;?

Я же писал, что и var пробовал, и разные типы указателей. Всё без толку. А от типа функции вообще ничего не зависит, хоть void (procedure) ставь.

[Stilet]

Без комментариев.

Что ж. Не буду отвлекать. Удачи.

[Человек_Борща]

А глюк вот где:

 typedef bool (WINAPI *TGetValue)(int*, int**); *// ** !
 TGetValue GetValue;
 HINSTANCE hM3_dll;

для C++ стандарт cldcl, а не stdcall. И где же объявление, что это функция?

Почему бы не динам. загрузка?

bool (__stdcall Func*)(int AM*,int AAN**);
HINSTANCE hDLL = LoadLibrary("LOL4TO.DLL");
Func = (bool (__stdcall *)(int*,int**))GetProcAddress(hDll,"GetValue");

На заметку:
В dll, доп. флаг eport не нужен, если вы сами закинули функцию в exports.

[MrGalaxy]

Сообщение от Человек_Борща

А глюк вот где:

 typedef bool (WINAPI *TGetValue)(int*, int**); *// ** !
 TGetValue GetValue;
 HINSTANCE hM3_dll;

для C++ стандарт cldcl, а не stdcall.

WINAPI - это и есть stdcall.

Сообщение от Человек_Борща

И где же объявление, что это функция?

bool после typedef. Процедура описывается войдом.

Сообщение от Человек_Борща

Почему бы не динам. загрузка?

А я по Вашему как загружаю? Код посмотрите.

Сообщение от Человек_Борща

На заметку:
В dll, доп. флаг eport не нужен, если вы сами закинули функцию в exports.

Действительно, работает. Спасибо.

[MrGalaxy]

В общем, накосячил не я. Это - особенность делфийских out и var, они добавляют лишнюю ссылку. Объяснили на Киберфоруме.
DLL переписал:

library M3_78M;

uses Windows;

{$R *.res}

function GetValue(PM:Pointer; out N:Integer): BOOL; stdcall;
 var M: Integer;
     MM: PInteger;
Begin
 GetValue:=false;

 MM:=PM;
 M:=MM^;
 N:=M+1;

 GetValue:=true;
end;

{----------------------------------------------------------------------}

Exports GetValue;

begin
end.

Теперь после int достаточно одной звёздочки.