Автор: like-nix (22.10.2009 в 14:31)
Всем привет!
Не получается передать параметры из 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.