Явное подключение dll

[coNsept]

Пример на билдах, да в принципе и на визуале это будет выглядеть точно так же (за исключением кода форм)

Для начала создаешь проект DLL и пишешь следующее.

В "*.h" файле
MY_DLL_API int GetMin(int Vector[], int Size);

В "*.cpp" файле

#ifdef DLL_EXP
#define MY_DLL_API __declspec(dllexport)
#else
#define MY_DLL_API __declspec(dllimport)
#endif

MY_DLL_API int GetMin(int Vector[], int Size)
{
 int Min = Vector[0]; 
 for (int i = 0; i < Size; i++)
  if (Vector[i] < Min) Min = Vector[i]; 
 return Min;
}

Теперь попробуем вызвать функцию в главном проекте

Для явного подключения делаем следующее (*.dll файл с функциями должен присутствовать рядом с программой)

// Подключаем "*.h" файл
#include "GetMinFromDll.h"
// Подключаем library
#pragma comment(lib, GetMinFromDll.lib)

void __fastcall TMainForm::YourButtonClick(TObject *Sender)
{
 int Min = GetMin(Vector, Size);
 Edit->Text = Min;
}

Для неявного подключения (*.dll файл с функциями должен присутствовать рядом с программой)

HMODULE hLib;
// Указатель на функцию
int (*ptr_GetMinFromDll)(int Vector[], int Size);


__fastcall TMainForm::TMainForm(TComponent* Owner)
	: TForm(Owner)
{
 // Загружаем библиотеку
 hLib = LoadLibrary("GetMinFromDll.dll")
 // Получаем адрес функции
 (FARPROC&)ptr_GetMinFromDll = GetProcAddress(hLib, "GetMin"); 
}

void __fastcall TMainForm::YourButtonClick(TObject *Sender)
{
 // Собственно вызов
 int Min = ptr_GetMinFromDll(Vector, Size);
}

[crymchanin]

Сообщение от Decoy2k

Имеется 2 текстбокса, кнопка и лэйбл... по нажатию кнопки программа пользуется функцией из DLL'ки, например складывает эти 2 числа и выводит их в лэйбл. Очень прошу подобный простой пример, или боюсь не пойму синтаксиса

Как я понял, тебе нужно что-то вроде этого:

void MathFunc()
{
	HINSTANCE hInst;
	hInst = LoadLibrary("math.dll");
	if(hInst == NULL)
	{
		MessageBox(hWnd,"Не удалось загрузить библиотеку math.dll", "Error", MB_OK | MB_ICONEXCLAMATION);
		return;
	}
	int (__stdcall* Calc)(int A, int B);
	(FARPROC &)Calc = GetProcAddress(hInst, "Calc");

	int A, B, Result = 0;
	A = GetDlgItemInt(hWnd, IDC_EDIT1, NULL, TRUE);
	B = GetDlgItemInt(hWnd, IDC_EDIT2, NULL, TRUE);
	Result = Calc(A, B);

	SetDlgItemInt(hWnd, IDC_LABEL1, Result, TRUE);

	FreeLibrary(hInst);
}