DLL

Примеры использования DLL в разных языках

Экспорт в DLL

Delphi

 library Example;
 
 { Производим некие действия и возвращаем результат }
 function AddNumbers(a, b: Double): Double; cdecl;
 begin
   AddNumbers := a + b
 end;
 
 { Эта функция экспортируется }
 exports
   AddNumbers;
 
 { Инициализатор DLL, аналог функции main() в языках C и C++ }
 begin
 end.

C и C++

 #include <windows.h>
 
 #define DLLEXPORT extern "C" __declspec(dllexport)
                 // extern "C" обозначает использование простой генерации
                 // сигнатуры функции (в стиле языка С) при получении объектных
                 // файлов. В частности, это запрещает компилятору C++
                 // производить "декорацию" (или "украшение") имени функции
                 // дополнительными символами при экспорте в DLL
 
 /* Эта функция экспортируется */
 DLLEXPORT double AddNumbers(double a, double b)
   // Прототип функции (функция без тела). По данной заявленной сигнатуре функции поиск её тела
   // при линковке будет произведён ниже или в другом бинарном файле 
 ;
 
 /* Инициализационная функция DLL, аналог main() */
 bool APIENTRY DllMain(HANDLE hModule, DWORD dwReason, LPVOID lpReserved)
 {
   return TRUE;
 }
 
 /* 
    Тело (реализация) заявленного выше прототипа функции.
    Производит некие действия и возвращает результат
  */
 DLLEXPORT double AddNumbers(double a, double b)
 {
   return a + b;
 }

Пример компиляции абстрактных файлов a.cpp и b.cpp в res.dll из командной строки при помощи GCC:

g++ -c a.cpp -o a.o
g++ -c b.cpp -o b.o
dllwrap a.o b.o -o res.dll
del a.o b.o

Импорт из DLL

Visual Basic

Функция должна быть объявлена в TLB, а TLB подключена к проекту. Именно этот механизм в VB используется для импорта всех «встроенных» функций (таких как MsgBox, Round, и т. д.) из runtime-библиотеки.

Delphi

 program Example;
 {$APPTYPE CONSOLE}
 
 { Указываем, что функция находится в DLL }
 function AddNumbers(a, b: Double): Double; cdecl; external 'Example.dll';
 
 { Используем функцию как обычно }
 var result: Double;
 begin
   result := AddNumbers(1, 2);
   Writeln('The result was: ', result)
 end.

C и C++

 #include <stdio.h>
 
 /*
  * Указываем, что тело функции находится в другом файле.
  * Не забыть про объектный модуль DLL при линковке!
  */
 extern "C" __declspec(dllimport)double AddNumbers(double a, double b);
 
 /* Используем функцию как обычно */
 int
 main(int argc, char **argv)
 {
     double result = AddNumbers(1, 2);
     printf("The result was: %f\n", result);
     return 0;
 }

Подгрузка и импорт из DLL во время работы

Visual Basic

 Option Explicit
 
 ' Указываем, что функция находится во внешней DLL.
 Declare Function AddNumbers Lib "Example.dll" _ 
           (ByVal a As Double, ByVal b As Double) As Double
 
 ' Используем функцию как обычно
 Sub Main()
     Dim Result As Double
     Result = AddNumbers(1, 2)
     Debug.Print "The result was: " & Result
 End Sub

C и C++

 #include <windows.h>
 #include <stdio.h>
 
 /*
  * Тип используемой функции
  * (комбинация типов параметры и возвращаемого значения)
  */
 typedef double (*importFunction)(double, double);
 
 int
 main(int argc, char **argv)
 {
     importFunction addNumbers;
     double result;
 
     /* Загружаем DLL в память */
     HINSTANCE hinstLib = LoadLibrary("Example.dll");
     if (hinstLib == NULL) {
         printf("ERROR: unable to load DLL\n");
         return 1;
     }
 
     /* Получаем указатель на функцию */
     addNumbers = (importFunction)GetProcAddress(hinstLib, "AddNumbers");
     if (addNumbers == NULL) {
         printf("ERROR: unable to find DLL function\n");
         return 1;
     }
 
     /* Вызываем функцию через указатель */
     result = addNumbers(1, 2);
 
     /*
      * Выгружаем DLL (в принципе, это будет сделано
      * автоматически при выходе из программы)
      */
     FreeLibrary(hinstLib);
 
     /* Отображаем результат */
     printf("The result was: %f\n", result);
 
     return 0;
 }

Delphi

 program Example;
 {$APPTYPE CONSOLE}
 
 var result: Double;
     LibHandle: Hmodule;
     AddNumbers: function(a, b: Double): Double;
 begin
   LibHandle := LoadLibrary('Example.dll'); // загружаем DLL
   if LibHandle <> 0 then
     begin
       @AddNumbers := GetProcAddress(LibHandle, 'AddNumbers'); // запоминаем адрес
                                                               // необходимой функции
       if @AddNumbers <> nil then
         begin
           result := AddNumbers(1, 2);       // используем функцию
           Writeln('The result was: ', result);
         end;
       FreeLibrary(LibHandle);               // выгружаем DLL
     end;
 end.