🚀 go-pugleaf

Nitisara wrote:

> Is there a way to link a procedure from DLL into EXE code?
> How this can be done?

the process is the following (see example below):

a) put the prototype of the function into the header (unit1.h)
b) use LoadLibrary() to load the DLL (in the form constructor)
c) use GetProcAddress() to get a pointer to the function into the DLL
d) call that pointer every time you need that function
e) use FreeLibrary() to unload the DLL at the end of your program (in
the form destructor)

The following Win32 APIs:

LoadLibrary, GetProcAddress, FreeLibrary

are described into Win32.hlp and are easy to use. Or you can find info
at MSN on the Internet.

Regards. Alvise.

EXAMPLE:

----------- PUT THIS INTO THE HEADER:

// handle to the DLL
   HINSTANCE FFLibDllHandle;

// prototype of the required function
int ( __stdcall *pfnFFGCR121StartComm )( int );


----------- PUT THIS INTO THE FORM CONSTRUCTOR:

// load the DLL
   FFLibDllHandle = 0;
   FFLibDllHandle = LoadLibrary ( "FFLIB.DLL" );
   if ( FFLibDllHandle == 0 )
      {
        MessageBox ( NULL, "LoadLibrary:\nFFLIB.DLL not found.",
                           "Errore FS 001", MB_SYSTEMMODAL );
        break;
      }

// load function address FFGCR121StartComm
   pfnFFGCR121StartComm = ( int ( __stdcall *)( int ) )
      GetProcAddress ( FFLibDllHandle, "FFGCR121StartComm" );
   if ( pfnFFGCR121StartComm == NULL )

     {
        MessageBox ( NULL, "GetProcAddress:\nFFGCR121StartComm not
found.",
        break;
     }


----------- PUT THIS INTO THE FORM DESTRUCTOR:

// unload the DLL
   if ( FFLibDllHandle != 0 ) FreeLibrary ( FFLibDllHandle );


----------- HOW TO CALL THE FUNCTION:

int rc;
rc = pfnFFGCR121StartComm ( 2 );