Реализация на примерах

Простейшая библиотека Данная динамическая библиотека, по сути, ничего не делает. Просто при загрузке библиотеки, ее выгрузки, а также вызове процедуры DLLP1 будет вызвано обычное Windows-сообщение. Процедура входа должна возвращать ненулевое значение. Процедура DLLP1 обрабатывает также один параметр, передаваемый через стек обычным способом.

1. bat:

C:masm32inml.exe /c /coff /DMASM dll1.asm.

C:masm32inlink.exe /subsystem:windows /DLL dll1.obj.

pause 0.

dll1.asm:

.386P.

; плоская модель.

IFDEF MASM.

.MODEL FLAT, stdcall.

ELSE.

.MODEL FLAT.

ENDIF.

PUBLIC DLLP1.

; константы.

; сообщения, приходящие при открытии.

; динамической библиотеки.

DLL_PROCESS_DETACH equ 0.

DLL_PROCESS_ATTACH equ 1.

DLL_THREAD_ATTACH equ 2.

DLL_THREAD_DETACH equ 3.

IFDEF MASM.

; MASM.

; прототипы внешних процедур

EXTERN MessageBoxA@16:NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; TASM.

EXTERN MessageBoxA: NEAR.

MessageBoxA@16 = MessageBoxA.

includelib c: asmlibimport32.lib.

ENDIF.

;————————————————————————-;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

TEXT1 DB 'Вход в библиотеку', 0.

TEXT2 DB 'Выход из библиотеки', 0.

MS DB 'Сообщение из библиотеки', 0.

TEXT DB 'Процедура из DLL', 0.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

; [EBP+10H]; резервный параметр

; [EBP+0CH]; причина вызова.

; [EBP+8]; идентификатор DLL-модуля.

DLLENTRY:

MOV EAX, DWORD PTR [EBP+0CH].

CMP EAX, 0.

JNE D1.

; закрытие библиотеки.

PUSH 0.

PUSH OFFSET MS.

PUSH OFFSET TEXT2.

PUSH 0.

CALL MessageBoxA@16.

JMP _EXIT.

D1:

CMP EAX, 1.

JNE _EXIT.

; открытие библиотеки.

PUSH 0.

PUSH OFFSET MS.

PUSH OFFSET TEXT1.

PUSH 0.

CALL MessageBoxA@16.

_EXIT:

MOV EAX, 1.

RET 12.

;——————————————————-;

; [EBP+8]; параметр процедуры.

DLLP1 PROC EXPORT.

PUSH EBP.

MOV EBP, ESP.

CMP DWORD PTR [EBP+8], 1.

JNE _EX.

PUSH 0.

PUSH OFFSET MS.

PUSH OFFSET TEXT.

PUSH 0.

CALL MessageBoxA@16.

_EX:

POP EBP.

RET 4.

DLLP1 ENDP.

_TEXT ENDS.

END DLLENTRY.

Явное связывание Библиотека должна быть вначале загружена при помощи функции LoadLibrary. Затем определяется адрес процедуры с помощью функции GetProcAddress, после чего можно осуществлять вызов. Как и следовало ожидать, MASM помещает в динамическую библиотеку вместо DLLP1 имя _DLLP1@0, тогда как TASM помещает имя без искажения. Это я учитываю в программе. Мы учитываем также возможность ошибки при вызове функций LoadLibrary и GetProcAddress. В этой связи укажем, как (в какой последовательности) ищет библиотеку функция LoadLibrary:

Файл библиотеки из предыдущего пункта.

Основной модуль:

dllex.asm:

.386P.

; плоская модель.

.MODEL FLAT, stdcall.

; константы.

; прототипы внешних процедур

IFDEF MASM.

;MASM.

EXTERN GetProcAddress@8:NEAR.

EXTERN LoadLibraryA@4:NEAR.

EXTERN FreeLibrary@4:NEAR.

EXTERN ExitProcess@4:NEAR.

EXTERN MessageBoxA@16:NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; TASM.

EXTERN GetProcAddress: NEAR.

EXTERN LoadLibraryA: NEAR.

EXTERN FreeLibrary: NEAR.

EXTERN ExitProcess: NEAR.

EXTERN MessageBoxA: NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: asm32libimport32.lib.

GetProcAddress@8 = GetProcAddress.

LoadLibraryA@4 = LoadLibraryA.

FreeLibrary@4 = FreeLibrary.

ExitProcess@4 = ExitProcess.

MessageBoxA@16 = MessageBoxA.

ENDIF.

;————————————————————;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

TXT DB 'Ошибка динамической библиотеки', 0.

MS DB 'Сообщение', 0.

LIBR DB 'DLL1.DLL', 0.

HLIB DD ?

IFDEF MASM.

NAMEPROC DB '_DLLP1@0', 0.

ELSE.

NAMEPROC DB 'DLLP1', 0.

ENDIF.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

START:

; загрузить библиотеку.

PUSH OFFSET LIBR.

CALL LoadLibraryA@4.

CMP EAX, 0.

JE _ERR.

MOV HLIB, EAX.

; получить адрес процедуры.

PUSH OFFSET NAMEPROC.

PUSH HLIB.

CALL GetProcAddress@8.

CMP EAX, 0.

JNE YES_NAME.

; сообщение об ошибке.

_ERR:

PUSH 0.

PUSH OFFSET MS.

PUSH OFFSET TXT.

PUSH 0.

CALL MessageBoxA@16.

JMP _EXIT.

YES_NAME:

PUSH 1; параметр

CALL EAX.

; закрыть библиотеку.

PUSH HLIB.

CALL FreeLibrary@4.

; библиотека автоматически закрывается также.

; при выходе из программы.

; выход.

_EXIT:

PUSH 0.

CALL ExitProcess@4.

_TEXT ENDS.

END START.

1. bat:

c:masm32inml /c /coff /DMASM dllex.asm.

c:masm32inlink /subsystem:windows dllex.obj.

pause 0.

Рис. 2 Результат работы программы

Неявное связывание Мы здесь рассмотрим только вызывающую программу, так как вызываемая программа, естественно не меняется. Как видите, текст программы стал несколько проще. Здесь важно заметить, что, во-первых, необходимо объявить вызываемую из динамической библиотеки процедуру как внешнюю, а, во-вторых, подключить статическую библиотеку DLLP1.LIB.

Файл библиотеки тот же самый.

dllex.asm:

.386P.

; плоская модель.

IFDEF MASM.

.MODEL FLAT, stdcall.

ELSE.

.MODEL FLAT.

ENDIF.

; константы.

; прототипы внешних процедур

includelib dll1.lib.

IFDEF MASM.

; MASM.

EXTERN DLLP1@0:NEAR.

EXTERN ExitProcess@4:NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; директивы компоновщику для подключения библиотек.

includelib c: asm32libimport32.lib.

EXTERN DLLP1: NEAR.

EXTERN ExitProcess: NEAR.

DLLP1@0 = DLLP1.

ExitProcess@4 = ExitProcess.

ENDIF.

;——————————————————————————;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

START:

PUSH 1; параметр

CALL DLLP1@0.

; выход.

_EXIT:

PUSH 0.

CALL ExitProcess@4.

_TEXT ENDS.

END START.

1. bat:

c:masm32inml /c /coff /DMASM dllex.asm.

c:masm32inlink /subsystem:windows dllex.obj.

pause 0.

Рис. 3 Результат работы программы

Передача параметров Основной процесс и динамическая библиотека используют одно и тоже адресное пространство.

Процесс передает адреса строк, которые находятся в блоке данных основного процесса.

В свою очередь, процедура возвращает в основной процесс адрес строки, находящейся в блоке данных динамической библиотеки:

dll2.asm:

; динамическая библиотека DLL2.ASM.

.386P.

; плоская модель.

IFDEF MASM.

.MODEL FLAT, stdcall.

ELSE.

.MODEL FLAT.

ENDIF.

PUBLIC DLLP1.

; константы.

; сообщения, приходящие при открытии.

; динамической библиотеки.

DLL_PROCESS_DETACH equ 0.

DLL_PROCESS_ATTACH equ 1.

DLL_THREAD_ATTACH equ 2.

DLL_THREAD_DETACH equ 3.

IFDEF MASM.

; MASM.

; прототипы внешних процедур

EXTERN MessageBoxA@16:NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; TASM.

EXTERN MessageBoxA: NEAR.

MessageBoxA@16 = MessageBoxA.

includelib c: asm32libimport32.lib.

ENDIF.

;————————————————————————-;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

TEXT DB «Строка в динамической библиотеке», 0.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

; [EBP+10H]; резервный параметр

; [EBP+0CH]; причина вызова.

; [EBP+8]; идентификатор DLL-модуля.

DLLENTRY:

MOV EAX, DWORD PTR [EBP+0CH].

CMP EAX, 0.

JNE D1.

; закрытие библиотеки.

JMP _EXIT.

D1:

CMP EAX, 1.

JNE _EXIT.

; открытие библиотеки.

_EXIT:

MOV EAX, 1.

RET 12.

;——————————;

; адреса параметров.

; [EBP+8].

; [EBP+0CH].

DLLP1 PROC EXPORT.

PUSH EBP.

MOV EBP, ESP.

PUSH 0.

PUSH DWORD PTR [EBP+0CH].

PUSH DWORD PTR [EBP+8].

PUSH 0.

CALL MessageBoxA@16.

POP EBP.

LEA EAX, TEXT.

RET 8.

DLLP1 ENDP.

_TEXT ENDS.

END DLLENTRY.

dllex.asm:

; основной модуль DLLEX2. ASM, вызывающий.

; процедуру из динамической библиотеки.

.386P.

; плоская модель.

.MODEL FLAT, stdcall.

; константы.

; прототипы внешних процедур

IFDEF MASM.

; MASM.

EXTERN GetProcAddress@8:NEAR.

EXTERN LoadLibraryA@4:NEAR.

EXTERN FreeLibrary@4:NEAR.

EXTERN ExitProcess@4:NEAR.

EXTERN MessageBoxA@16:NEAR.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; TASM.

includelib c: asm32libimport32.lib.

EXTERN GetProcAddress: NEAR.

EXTERN LoadLibraryA: NEAR.

EXTERN FreeLibrary: NEAR.

EXTERN ExitProcess: NEAR.

EXTERN MessageBoxA: NEAR.

GetProcAddress@8 = GetProcAddress.

LoadLibraryA@4 = LoadLibraryA.

FreeLibrary@4 = FreeLibrary.

ExitProcess@4 = ExitProcess.

MessageBoxA@16 = MessageBoxA.

ENDIF.

;——————————————————————-;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

TXT DB 'Ошибка динамической библиотеки', 0.

MS DB 'Сообщение', 0.

LIBR DB 'DLL2.DLL', 0.

HLIB DD ?

MS1 DB 'Сообщение из библиотеки', 0.

TEXT DB 'Это в основном модуле', 0.

IFDEF MASM.

NAMEPROC DB '_DLLP1@0', 0.

ELSE.

NAMEPROC DB 'DLLP1', 0.

ENDIF.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

; [EBP+10H]; резервный параметр

; [EBP+0CH]; причина вызова.

; [EBP+8]; идентификатор DLL-модуля.

START:

; загрузить библиотеку.

PUSH OFFSET LIBR.

CALL LoadLibraryA@4.

CMP EAX, 0.

JE _ERR.

MOV HLIB, EAX.

; получить адрес.

PUSH OFFSET NAMEPROC.

PUSH HLIB.

CALL GetProcAddress@8.

CMP EAX, 0.

JNE YES_NAME.

; сообщение об ошибке.

_ERR:

PUSH 0.

PUSH OFFSET MS.

PUSH OFFSET TXT.

PUSH 0.

CALL MessageBoxA@16.

JMP _EXIT.

YES_NAME:

PUSH OFFSET MS1.

PUSH OFFSET TEXT.

CALL EAX.

PUSH 0.

PUSH OFFSET MS.

PUSH EAX.

PUSH 0.

CALL MessageBoxA@16.

; закрыть библиотеку.

PUSH HLIB.

CALL FreeLibrary@4.

; библиотека автоматически закрывается также.

; при выходе из программы.

; выход.

_EXIT:

PUSH 0.

CALL ExitProcess@4.

_TEXT ENDS.

END START.

1. bat:

c:masm32inml /c /coff /DMASM dllex2.asm.

c:masm32inlink /subsystem:windows dllex2.obj.

pause 0.

Рис. 4 Результат работы программы (часть 1)

Рис. 5 Результат работы программы (часть 2)

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

Наша программа вначале загружает иконку из ресурсов динамической библиотеки и устанавливает ее на окно. Если щелкать левой кнопкой мыши, направив курсор на окно, то будет вызываться процедура из динамической библиотеки, которая будет поочередно устанавливать то один, то другой значок на окно.

dll3.rc:

// идентификаторы.

#define IDI_ICON1 3.

#define IDI_ICON2 10.

// определили иконку.

IDI_ICON1 ICON «ico1.ico» .

IDI_ICON2 ICON «ico2.ico» .

dllex.rc:

// определение констант.

#define WS_SYSMENU 0×8 0000L.

#define WS_MINIMIZEBOX 0×2 0000L.

#define WS_MAXIMIZEBOX 0×1 0000L.

#define DS_3DLOOK 0×0004L.

// определение диалогового окна.

DIAL1 DIALOG 0, 0, 340, 120.

STYLE WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | DS_3DLOOK.

CAPTION «Диалоговое окно с иконкой из динамической библиотеки» .

FONT 8, «Arial» .

{.

}.

dll3.asm:

; динамическая библиотека DLL3.ASM.

.386P.

PUBLIC SETIC.

; плоская модель.

IFDEF MASM.

.MODEL FLAT, stdcall.

ELSE.

.MODEL FLAT.

ENDIF.

; константы.

WM_SETICON equ 80h.

IFDEF MASM.

; MASM.

; прототипы внешних процедур

EXTERN LoadIconA@8:NEAR.

EXTERN PostMessageA@16:NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; TASM.

; прототипы внешних процедур

EXTERN LoadIconA: NEAR.

EXTERN PostMessageA: NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: asmlibimport32.lib.

LoadIconA@8 = LoadIconA.

PostMessageA@16 = PostMessageA.

ENDIF.

;————————————————————————;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

PRIZ DB 0.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

DLLENTRY:

MOV EAX, 1.

RET 12.

; [EBP+8].

; [EBP+0CH].

SETIC PROC EXPORT.

PUSH EBP.

MOV EBP, ESP.

; выбрать, какую иконку устанавливать.

CMP PRIZ, 0.

JZ IC₁.

MOV PRIZ, 0.

PUSH 3.

JMP CONT.

IC₁:

MOV PRIZ, 1.

PUSH 10.

CONT:

; загрузить иконку из ресурсов библиотеки.

PUSH DWORD PTR [EBP+0CH]; идентификатор

; динамической.

; библиотеки.

CALL LoadIconA@8.

; установить значок окна.

PUSH EAX.

PUSH 0.

PUSH WM_SETICON.

PUSH DWORD PTR [EBP+08H]; дескриптор окна.

CALL PostMessageA@16.

POP EBP.

RET 8.

SETIC ENDP.

_TEXT ENDS.

END DLLENTRY.

dllex3.asm:

; основной модуль DLLEX3. ASM, вызывающий.

; процедуру из динамической библиотеки.

.386P.

; плоская модель.

IFDEF MASM.

.MODEL FLAT, stdcall.

ELSE.

.MODEL FLAT.

ENDIF.

; константы.

; сообщение приходит при закрытии окна.

WM_CLOSE equ 10h.

WM_INITDIALOG equ 110h.

WM_SETICON equ 80h.

WM_LBUTTONDOWN equ 201h.

; прототипы внешних процедур

IFDEF MASM.

; MASM.

EXTERN PostMessageA@16:NEAR.

EXTERN GetProcAddress@8:NEAR.

EXTERN LoadLibraryA@4:NEAR.

EXTERN FreeLibrary@4:NEAR.

EXTERN ExitProcess@4:NEAR.

EXTERN GetModuleHandleA@4:NEAR.

EXTERN DialogBoxParamA@20:NEAR.

EXTERN EndDialog@8:NEAR.

EXTERN LoadIconA@8:NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; директивы компоновщику для подключения библиотек.

includelib c: asmlibimport32.lib.

EXTERN PostMessageA: NEAR.

EXTERN GetProcAddress: NEAR.

EXTERN LoadLibraryA: NEAR.

EXTERN FreeLibrary: NEAR.

EXTERN ExitProcess: NEAR.

EXTERN GetModuleHandleA: NEAR.

EXTERN DialogBoxParamA: NEAR.

EXTERN EndDialog: NEAR.

EXTERN LoadIconA: NEAR.

PostMessageA@16 = PostMessageA.

LoadIconA@8 = LoadIconA.

EndDialog@8 = EndDialog.

GetModuleHandleA@4 = GetModuleHandleA.

DialogBoxParamA@20 = DialogBoxParamA.

GetProcAddress@8 = GetProcAddress.

LoadLibraryA@4 = LoadLibraryA.

FreeLibrary@4 = FreeLibrary.

ExitProcess@4 = ExitProcess.

ENDIF.

;———————————————————————-;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

LIBR DB 'DLL3.DLL', 0.

HLIB DD ?

HINST DD ?

PA DB «DIAL1», 0.

IFDEF MASM.

NAMEPROC DB «_SETIC@0», 0.

ELSE.

NAMEPROC DB «SETIC», 0.

ENDIF.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

START:

; получить дескриптор приложения.

PUSH 0.

CALL GetModuleHandleA@4.

; создать диалог.

MOV [HINST], EAX.

PUSH 0.

PUSH OFFSET WNDPROC.

PUSH 0.

PUSH OFFSET PA.

PUSH [HINST].

CALL DialogBoxParamA@20.

; выход.

_EXIT:

PUSH 0.

CALL ExitProcess@4.

; процедура окна.

; расположение параметров в стеке.

; [EBP+014Н]; LPARAM.

; [EBP+10Н]; WAPARAM.

; [EBP+0CH]; MES.

; [EBP+8]; HWND.

WNDPROC PROC.

PUSH EBP.

MOV EBP, ESP.

PUSH EBX.

PUSH ESI.

PUSH EDI.

;—————————;

CMP DWORD PTR [EBP+0CH], WM_CLOSE.

JNE L1.

; закрыть библиотеку.

; библиотека автоматически закрывается также.

; при выходе из программы.

PUSH HLIB.

CALL FreeLibrary@4.

PUSH 0.

PUSH DWORD PTR [EBP+08H].

CALL EndDialog@8.

JMP FINISH.

L1:

CMP DWORD PTR [EBP+0CH], WM_INITDIALOG.

JNE L2.

; загрузить библиотеку.

PUSH OFFSET LIBR.

CALL LoadLibraryA@4.

MOV HLIB, EAX.

; загрузить иконку.

PUSH 3; идентификатор иконки.

PUSH [HLIB]; идентификатор процесса.

CALL LoadIconA@8.

; установить иконку.

PUSH EAX.

PUSH 0; тип иконки (маленькая).

PUSH WM_SETICON.

PUSH DWORD PTR [EBP+08H].

CALL PostMessageA@16.

JMP FINISH.

L2:

CMP DWORD PTR [EBP+0CH], WM_LBUTTONDOWN.

JNE FINISH.

; получить адрес процедуры из динамической библиотеки.

PUSH OFFSET NAMEPROC.

PUSH HLIB.

CALL GetProcAddress@8.

; вызвать процедуру с двумя параметрами.

PUSH [HLIB].

PUSH DWORD PTR [EBP+08H].

CALL EAX.

FINISH:

POP EDI.

POP ESI.

POP EBX.

POP EBP.

MOV EAX, 0.

RET 16.

WNDPROC ENDP.

_TEXT ENDS.

END START.

1. bat:

c:masm32inml /c /coff /DMASM dllex3.asm.

c:masm32in c dllex3.rc.

c:masm32inlink /subsystem:windows dllex3. obj dllex3.res.

pause 0.

c:masm32inml /c /coff /DMASM dll3.asm.

c:masm32in c dll3.rc.

c:masm32inlink /subsystem:windows /DLL /ENTRY:DLLENTRY dll3. obj dll3.res.

pause 0.

Рис. 6 Результат работы программы (часть 1)

Рис. 7 Результат работы программы (часть 2)

Использование общей памяти Запускаемое приложение загружает динамическую библиотеку и вызывает процедуру из динамической библиотеки, которая меняет данные, расположенные опять же в динамической библиотеке. Запустим теперь второй экземпляр приложения. Оно загружает еще один экземпляр динамической библиотеки. Могут быть ситуации, когда желательно, чтобы второе запущенное приложение «знало», что по команде первого приложения данные уже изменились. Ясно, что в этом случае данные, которыми оперирует динамическая библиотека, должны быть общими. Технически это делается очень просто.

У редактора связей LINK есть опция /section: имя, атрибуты, которая позволяет объявить явно свойства данной секции. Достаточно сказать, что секция — это просто сегмент в старом понимании. В редакторе связей TLINK32 то же действие можно осуществить с помощью файла .DEF.

Перед выходом из процедуры динамической библиотеки изменяется строка, хранящаяся в разделяемой секции памяти. При этом приложение не заканчивает своей работы. При запуске второго экземпляра приложения на экран выводится уже измененное первым приложением значение строки.

dll4.asm:

; динамическая библиотека DLL4.ASM.

.386P.

; плоская модель.

IFDEF MASM.

.MODEL FLAT, stdcall.

ELSE.

.MODEL FLAT.

ENDIF.

PUBLIC DLLP1.

IFDEF MASM.

; MASM.

; прототипы внешних процедур

EXTERN MessageBoxA@16:NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; TASM.

EXTERN MessageBoxA: NEAR.

MessageBoxA@16 = MessageBoxA.

includelib c: asmlibimport32.lib.

ENDIF.

;————————————————————————-;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

TEXT DB «В динамической библиотеке», 0.

MS DB «Сообщение», 0.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

; [EBP+10H]; резервный параметр

; [EBP+0CH]; причина вызова.

; [EBP+8]; идентификатор DLL-модуля.

DLLENTRY:

MOV EAX, 1.

RET 12.

;————————-;

;адреса параметров.

DLLP1 PROC EXPORT.

PUSH EBP.

MOV EBP, ESP.

PUSH 0.

PUSH OFFSET MS.

PUSH OFFSET TEXT.

PUSH 0.

CALL MessageBoxA@16.

; изменим строку, расположенную в разделяемой памяти.

MOV TEXT,'И'.

MOV TEXT+1,'з'.

POP EBP.

RET.

DLLP1 ENDP.

_TEXT ENDS.

END DLLENTRY.

dllex4.asm:

; основной модуль DLLEX4. ASM, вызывающий.

; процедуру из динамической библиотеки.

.386P.

; плоская модель.

.MODEL FLAT, stdcall.

; константы.

; прототипы внешних процедур

IFDEF MASM.

; MASM.

EXTERN GetProcAddress@8:NEAR.

EXTERN LoadLibraryA@4:NEAR.

EXTERN FreeLibrary@4:NEAR.

EXTERN ExitProcess@4:NEAR.

EXTERN MessageBoxA@16:NEAR.

; директивы компоновщику для подключения библиотек.

includelib c: masm32libuser32.lib.

includelib c: masm32libkernel32.lib.

ELSE.

; директивы копоновщику для подключения библиотек.

includelib c: asmlibimport32.lib.

EXTERN GetProcAddress: NEAR.

EXTERN LoadLibraryA: NEAR.

EXTERN FreeLibrary: NEAR.

EXTERN ExitProcess: NEAR.

EXTERN MessageBoxA: NEAR.

GetProcAddress@8 = GetProcAddress.

LoadLibraryA@4 = LoadLibraryA.

FreeLibrary@4 = FreeLibrary.

ExitProcess@4 = ExitProcess.

MessageBoxA@16 = MessageBoxA.

ENDIF.

;————————————————-;

; сегмент данных.

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'.

TXT DB 'Ошибка динамической библиотеки', 0.

MS DB 'Сообщение', 0.

LIBR DB 'DLL4.DLL', 0.

HLIB DD ?

IFDEF MASM.

NAMEPROC DB '_DLLP1@0', 0.

ELSE.

NAMEPROC DB 'DLLP1', 0.

ENDIF.

_DATA ENDS.

; сегмент кода.

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'.

; [EBP+10H]; резервный параметр

; [EBP+0CH]; причина вызова.

; [EBP+8]; идентификатор DLL-модуля.

START:

; загрузить библиотеку.

PUSH OFFSET LIBR.

CALL LoadLibraryA@4.

CMP EAX, 0.

JE _ERR.

MOV HLIB, EAX.

; получить адрес.

PUSH OFFSET NAMEPROC.

PUSH HLIB.

CALL GetProcAddress@8.

CMP EAX, 0.

JNE YES_NAME.

; сообщение об ошибке.

_ERR:

PUSH 0.

PUSH OFFSET MS.

PUSH OFFSET TXT.

PUSH 0.

CALL MessageBoxA@16.

JMP _EXIT.

YES_NAME:

CALL EAX.

PUSH 0.

PUSH OFFSET MS.

PUSH OFFSET MS.

PUSH 0.

CALL MessageBoxA@16.

; закрыть библиотеку.

; библиотека автоматически закрывается также.

; при выходе из программы.

PUSH OFFSET NAMEPROC.

PUSH HLIB.

CALL FreeLibrary@4.

; выход.

_EXIT:

PUSH 0.

CALL ExitProcess@4.

_TEXT ENDS.

END START.

1. bat:

c: asmin asm32 /ml dll4.asm.

c: asmin link32 -aaTpd dll4. obj, dll4.def.

c: asmin asm32 /ml dllex4.asm.

c: asmin link32 -aa dllex4.obj.

pause 0.

Рис. 8 Результат работы программы (часть 1)

Рис. 9 Результат работы программы (часть 2)