C++ --> Delphi

[user]

Гуру кодинга подскажи как это оформить на дельфе

кусочки файла main.c

Код: Выделить всё

typedef int ( *ADL_MAIN_CONTROL_CREATE )(ADL_MAIN_MALLOC_CALLBACK, int );

...

void* __stdcall ADL_Main_Memory_Alloc ( int iSize )
{
    void* lpBuffer = malloc ( iSize );
    return lpBuffer;
}

...

    ADL_MAIN_CONTROL_CREATE          ADL_Main_Control_Create;

...

        ADL_Main_Control_Create = (ADL_MAIN_CONTROL_CREATE)GetProcAddress(hDLL,"ADL_Main_Control_Create");
        ADL_Main_Control_Create (ADL_Main_Memory_Alloc, 0);

файл main_s.h

Код: Выделить всё

#define __stdcall
typedef void* ( __stdcall *ADL_MAIN_MALLOC_CALLBACK )( int );

ADL_Main_Control_Create - функция находится в подключаемой dll-ке, которой нужно передать (функция_которая_выделяет_память_"ADL_Main_Memory_Alloc", 0)

туплю уже весь день. спасайте

[andreil]

Код: Выделить всё

type
  ADL_MAIN_CONTROL_CREATE_t = function(iSize: integer): Pointer;

function ADL_Main_Memory_Alloc(iSize: integer): Pointer; stdcall;
var
  lpBuffer: Pointer;
begin
  lpBuffer:=malloc(iSize);
  result:=lpBuffer;
end;

........
var
  ADL_Main_Control_Create: ADL_MAIN_CONTROL_CREATE_t;
........
 ADL_Main_Control_Create:=GetProcAddress(hDll, 'DL_Main_Control_Create');
 ADL_Main_Control_Create(ADL_Main_Memory_Alloc, 0);

Код: Выделить всё

type
  ADL_MAIN_MALLOC_CALLBACK_t = function(iSize: integer): Pointer; stdcall;

Вроде так