Программирование на С++ - eDrive

17
подготовленным приложением, например, как myDLLLIB2.cpp,
myDLLLIB2.bpr. Создать, далее, файл заголовка с объявлением требуемой
функции, например:
extern "C" void __declspec (dllexport) MyAbout (char *s);
Сохранить этот файл (например, myDLLLIB2.h), включить его в проект и
подключить к модулю библиотеки. Подготовить, также, форму «О программе»
(File.New.Form) с рисунком-логотипом и тремя надписями. Две
надписи оставить пустыми для названия работы и даты, а третью заполнить
сведениями об авторе. Сохранить форму (например, под именем
myDLLForm.cpp), включить ее в проект и подключить к модулю библиотеки.
В файле кода модуля определить объявленную функцию, например:
void MyAbout (char *s)
{ Form1 = new TForm1 (0);
Form1–>Label1–>Caption = s;
Form1–>Label2–>Caption = DateToStr (Date ());
Form1–>ShowModal ();
delete Form1; }
Скомпоновать проект и убедиться, что в папке проекта сформировались
файлы библиотеки LIB и DLL.
4. Динамическая компоновка. В форму подготовленного приложения добавить
кнопку «О программе» и кодировать ее обработчик:
void __fastcall TForm1::Button3Click (TObject *Sender)
{ HINSTANCE dllp = LoadLibrary (“myDLLLIB2.dll”);
if (dllp)
{ void (__stdcall *p) (char *s);
p = (void (__stdcall *) (char *)) GetProcAddress (dllp, “_MyAbout”);
if (p) p (“Библиотеки LIB и DLL”);
else ShowMessage (“Нет функции MyAbout”);
FreeLibrary (dllp); }
else ShowMessage (“Нет файла myDLLLIB2.dll”); }
Здесь функция LoadLibrary возвращает указатель на переменную типа HInstance
из библиотеки Windows API и загружает файл DLL. Функция Get-
ProcAddress присваивает значение указателя функции DLL. Затем вызывается
рабочая функция и библиотека выгружается из памяти функцией
FreeLibrary. В заключение испытать приложение c библиотеками.