[kast2k]

Всем привет!
Такая проблема:
Написал на С библиотеку:
файл unit1.cpp

Код:

#define BUILD_DLL
#include "File1.h"
#include <vcl.h>
#include <windows.h>
#pragma hdrstop
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
        return 1;
}
int Messagess (int k)
{
        return k;
}

заголовочный файл File1.h

Код:

#if defined(BUILD_DLL)
# define DLL_EXP __declspec(dllexport)
#else
# if defined(BUILD_APP)
# define DLL_EXP __declspec(dllimport)
# else
# define DLL_EXP
# endif
#endif
DLL_EXP int Messagess (int k);

нарисовал в Дельфи тестовую форму с кнопкой

Код:

type
Tcalc_double = function ( k: integer ): integer;
................

procedure TForm1.Button2Click(Sender: TObject);
var 
  hndDLLHandle: THandle;
  calc_double: Tcalc_double;
begin
    try 
       hndDLLHandle := loadLibrary ( 'C:\C\t3\project1.dll' );
       if hndDLLHandle <> 0 then begin
          @calc_double := getProcAddress ( hndDLLHandle, 'Messagess' );
          if addr ( calc_double ) <> nil then begin
             showMessage ( intToStr ( calc_double ( 105 ) ) );
          end else
             showMessage ( 'Function not exists...' );
       end else
          showMessage ( 'DLL not found...' );
    finally
       freeLibrary ( hndDLLHandle );
    end;
end;

Смотрю в дебаге - библиотеку подцепил, а вот функция getProcAddress ( hndDLLHandle, 'Messagess' ) говорит, что нет такой функции в библиотеке.

Очень хочется разобраться в данном вопросе, т.к. в будущем потребуется подключать к некоторым проектам С-шные библиотеки.

Спасибо.

[icWasya]

>говорит, что нет такой функции в библиотеке
Посмотри, какая есть, например с помощью TDUMP.EXE
Скорее всего есть _Messagess
Во вторых, нужно уточнять соглашения о вызовах.

[kast2k]

Удивительно, но выдает, что экспортируемая функция называется как "Function Messagess(int)".

[poli-smen]

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

Удивительно, но выдает, что экспортируемая функция называется как "Function Messagess(int)".

Есть подозрение, что имя этой экспортруемой функции декорированное (замангленное). Выложи куда-нибудь эту тестовую dll-ку.

[kast2k]

Я разобрался!
Надо было поставить Extern "C" в

Код:

# define DLL_EXP Extern "C" __declspec(dllexport)

в этом случае декорирование пропадает.

[poli-smen]

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

Я разобрался!
Надо было поставить Extern "C" в

Код:

# define DLL_EXP Extern "C" __declspec(dllexport)

в этом случае декорирование пропадает.

Ещё не забудь о соглашениях о вызове. В Delphi по-умолчанию соглашение "register", а в Си "cdecl" (в Си++ возможно не "cdecl", а "stdcall ", но тут я не уверен). Если укажешь не то соглашение о вызове могут возникнуть проблемы.

[kast2k]

Да, я помню о соглашении.
стоит _cdecl

[poli-smen]

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

Да, я помню о соглашении.
стоит _cdecl

А здесь-то не стоит:

Код:

type
Tcalc_double = function ( k: integer ): integer;

Должно быть так:

Код:

type
Tcalc_double = function ( k: integer ): integer; cdecl;

[kast2k]

да, на странице не стоит (т.к. на тот момент я еще инфу не нашел), а в текущем коде стоит
и главное, работает