[kast2k]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#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

Код:

1 2 3 4 5 6 7 8 9 10

#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);

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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" в

Код:

1	# define DLL_EXP Extern "C" __declspec(dllexport)

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

[poli-smen]

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

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

Код:

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

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

[kast2k]

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

[poli-smen]

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

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

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

Код:

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

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

Код:

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

[kast2k]

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