Re: Ada,static link dll.(windows)

[George J <ivanov_george@list.ru>]

понедельник, 30 мая 2016 г., 12:08:09 UTC+3 пользователь George J написал:
> Hi ALL!So,today I've got a problem with dll:
> I have .dll (made with FASM) and I want to link it statically to my Ada project. I've always made this way (https://rosettacode.org/wiki/Call_a_function_in_a_shared_library#Windows) by dinamically linking. So I want to link my dll statically. I've spent 6 hours and couldn't find any solution.
> 
> p.s. my way was
> 1. pragma Import(Stdcall,myProc,"myProc",Link_Name => "myDLL.dll");
> result: undefined reference to "myDLL.dll"
> 2. pragma Import(Stdcall,myProc,"myProc");
> result: undefined reference to myProc@8 (yes,it has to DWORD params)
> and other attempts.
> --------------------------------------------------------------------------
> 
> I have Thin package with 
> ------------------------------------
> with Win32;
> 
> package Thin is
> 
>    procedure myProc
>      (Major : Win32.DWORD;
>       Minor : Win32.DWORD);
>    pragma Import(Stdcall,myProc,"myProc"); --,Link_Name => "myDLL.dll");
>    --pragma Linker_Options("-myDLL");
> 
> end Thin;
> --------------------------------------
> 
> and Main proc with
> --------------------------
> with Thin;
> procedure Main is
> begin
>       Thin.myProc(1,2);
> end Main;
> -------------------------

and BTW,I've put my DLL file in exec folder,project folder,build folder...