Явная загрузка dll

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <windows.h>
#include "Test.h"
#pragma hdrstop
//---------------------------------------------------------------------------
//   Important note about DLL memory management when your DLL uses the
//   static version of the RunTime Library:
//
//   If your DLL exports any functions that pass String objects (or structs/
//   classes containing nested Strings) as parameter or function results,
//   you will need to add the library MEMMGR.LIB to both the DLL project and
//   any other projects that use the DLL.  You will also need to use MEMMGR.LIB
//   if any other projects which use the DLL will be performing new or delete
//   operations on any non-TObject-derived classes which are exported from the
//   DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling
//   EXE's to use the BORLNDMM.DLL as their memory manager.  In these cases,
//   the file BORLNDMM.DLL should be deployed along with your DLL.
//
//   To avoid using BORLNDMM.DLL, pass string information using "char *" or
//   ShortString parameters.
//
//   If your DLL uses the dynamic version of the RTL, you do not need to
//   explicitly add MEMMGR.LIB as this will be done implicitly for you
//---------------------------------------------------------------------------
 
#pragma argsused
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved)
{
    return 1;
}
 
float Sum(float a, float b)
{   
    return a + b;
}
//---------------------------------------------------------------------------

#ifndef _TEST_H
#define _TEST_H
 
#ifdef TESTDLL_EXPORTS
#define DLL_SPEC extern "C" __declspec(dllexport) 
#else
#define DLL_SPEC extern "C" __declspec(dllimport)
#endif
 
DLL_SPEC float Sum(float a, float b);
 
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "code.h"
#include "Test.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    float a, b, c;
 
    a = StrToFloat(Edit1->Text);
    b = StrToFloat(Edit2->Text);
 
    typedef float __cdecl (*dll_func)(float a, float b);
    dll_func pSum = NULL;
 
    HMODULE hDLL = LoadLibrary("MyDll.dll");
    if (!hDLL)
    {
        ShowMessage("Невозможно загрузить библиотеку 'MyDll.dll'!!!");
        return;
    }
 
    pSum = (dll_func)GetProcAddress(hDLL, "_Sum");
 
    if (!pSum)
    {
        ShowMessage("Не возможно определить функцию 'Sum'!!!");
        return;
    }
 
    c = pSum(a, b);
 
    FreeLibrary(hDLL);
 
    Label1->Caption = c;
}
//---------------------------------------------------------------------------

float Sum(float a, float b)
{       
        return a + b;
}

float __cdecl Sum(float a, float b) // 
{       
        return a + b;
}