Скачать: CL | DM;

Деструктор в DLL есть?   Найти похожие ветки 

← →
De   (2006-05-03 18:32) [0]

Привет, All!
есть ли Деструктор в DLL и как с ним правильно работать?

---

← →
Desdechado ©   (2006-05-03 18:40) [1]

деструктор чего?

секция finalization есть в каждом модуле твоей DLL

---

← →
Leonid Troyanovsky ©   (2006-05-03 18:48) [2]

> De   (03.05.06 18:32)  

> есть ли Деструктор в DLL и как с ним правильно работать?


Правильно не работать с деструктором в dll.

--
Regards, LVT.

---

← →
De   (2006-05-03 19:04) [3]

Desdechado
а это как?

> В отличии от других типов модулей, модуль DLL не имеет ни
> секции initialization, ни секции finalization.

требуется выполнить некоторый код перед выгрузкой моей dll
где его разместить?

P.S.
моя dll юзает сторонюю dll"ку куда пихнуть FreeLibrary?

---

← →
easy ©   (2006-05-03 22:42) [4]

library MyDll;

procedure MyLibraryProc(Reason: Integer);
begin
 if Reason = DLL_PROCESS_DETACH then
 begin
   // Сюда FreeLibrary
 end;
end;

begin
 DLLProc := @MyLibraryProc;
 MyLibraryProc(DLL_PROCESS_ATTACH);
end.

---

← →
DiamondShark ©   (2006-05-04 11:56) [5]

> De   (03.05.06 19:04) [3]
>
> > В отличии от других типов модулей, модуль DLL не имеет
> ни
> > секции initialization, ни секции finalization.

Где ты это взял? Брось каку.

Создаём Project group

Project1:

procedure TForm1.Button1Click(Sender: TObject);
begin
 FModule := LoadLibrary("Project2.dll");
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 FreeLibrary(FModule);
end;

------

Project2:

library Project2;

uses
 SysUtils,
 Classes,
 Unit2 in "Unit2.pas";

{$R *.RES}

begin
end.

unit Unit2;

interface

implementation

uses
 Dialogs;

initialization
 ShowMessage("Initialization");
finalization
 ShowMessage("Finalization");

end.

----

Запускаем, наслаждаемся чудом.

---

← →
De   (2006-05-04 15:34) [6]

>DiamondShark

взял вот здесь:
http://citforum.ru/programming/digest/dlldelphi.shtml
ищем на странице "модуль DLL не имеет"

а относительно секций exports и begin где располагается finalization
P.S.
у меня ругается :(
Declaration expected but "FINALIZATION" found

---

← →
Сергей М. ©   (2006-05-04 15:38) [7]

> De   (04.05.06 15:34) [6]


Учим Паскаль.

DLL или неDLL - это не имеет ни малейшего значения.

---

← →
De   (2006-05-04 15:46) [8]

>Сергей М.
но ошибка ведь выдается

---

← →
Сергей М. ©   (2006-05-04 15:49) [9]

> но ошибка ведь выдается
>


Видимо, она выданется только тебе, под большим секретом, нам неведомым.

---

← →
DiamondShark ©   (2006-05-04 15:56) [10]

> у меня ругается :(

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

---

← →
De   (2006-05-04 18:47) [11]

господа всем спасибо
бага у меня была

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c