Автор: like-nix (22.10.2009 в 16:34)
Убрал __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]
Функцию не находит
Если кто знает подскажите плиз.