Форум C++

Всем привет!

Не получается передать параметры из Delphi в библиотеку написанную на C++.

Код программы:

[CODE]#define LIBINTERSECT_DECL extern "C" __declspec(dllexport)

LIBINTERSECT_DECL int __stdcall test_func_lib(int l, int b)
{
if(l == 1)
{
return 1;
}

return 2;
}[/CODE]

Код программы на Delphi:

[CODE]procedure TForm1.Button1Click(Sender: TObject);
var
LibHandle: THandle;
test_func_lib: function(l: Integer; b: Integer):Integer;
test_bool: Integer;

begin
LibHandle := LoadLibrary('test_dll.dll');
if LibHandle >= 32 then begin
@test_func_lib := GetProcAddress(LibHandle,'test_func_lib');
if @test_func_lib <> nil then
begin
test_bool := test_func_lib(1, 1);
showMessage (IntToStr(test_func_lib(1, 1)));
end;
end;
FreeLibrary(LibHandle);

showMessage (IntToStr(test_bool));
end;[/CODE]

Функция test_func_lib всегда возвращает 2.

Убрал __stdcall

[CODE]
#define LIBINTERSECT_DECL extern "C" __declspec(dllexport)

LIBINTERSECT_DECL int test_func_lib(int l, int b)
{
if(l == 1)
{
return 1;
}

return 2;
}[/CODE]
и добавил cdecl
[CODE]test_func_lib: function(l: Integer; b: Integer):Integer; cdecl[/CODE]
Спасло отца демократии)

[size="1"][color="grey"]Добавлено через 4 минуты[/color][/size]
почемуто если

[CODE]#define LIBINTERSECT_DECL extern "C" __declspec(dllexport)

LIBINTERSECT_DECL int __stdcall test_func_lib(int l, int b)
{
if(l == 1)
{
return 1;
}

return 2;
}[/CODE]

в Delphi
[CODE]test_func_lib: function(l: Integer; b: Integer):Integer; stdcall;[/CODE]

[CODE]@test_func_lib := GetProcAddress(LibHandle,'test_func_lib');[/CODE]
Функцию не находит

Если кто знает подскажите плиз.