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

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.

unit Unit1;

interface

uses
  SysUtils, Forms, StdCtrls, Classes, Controls, Windows;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function GetValue(MM, NN: Pointer):BOOL; stdcall;external 'M3_78M.dll';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var PN: PInteger;
     PM: Pointer;
     M, N: integer;
Begin
// Присвоение значения входному параметру
// В качестве входного параметра подпрограммы
//  используются указатель (адрес)
 M:=StrToInt(Edit2.Text);
 PM:=@M;
// В качестве выходного параметра подпрограммы
//  так же, как и входного, используются указатель (адрес),
// несмотря на то, что в DLL-ке выходной параметр out Integer
 PN:=@N;
// Вызов подпрограммы
 GetValue(PM, PN);
// Полученный результат. По адресу переменной N, занесённому перед этим
// в переменную-указатель PN, заносится вычисленное в подпрограмме
// значение
 Edit1.Text:=IntToStr(N);
 Application.ProcessMessages;
end;

end.