DLL: Динамическая загрузка/выгрузка

← →
Нуждающийся в помощи (2005-01-18 16:30) [0]

Добрый день!
Вот сижу разбираюсь с dll и никак не могу понять в чем баг...

вот сама dll:
library MyDll; uses SysUtils, Classes; type TIntArray = array of integer; function GetArray: TIntArray; var i: integer; begin SetLength(result, 10); for i:=0 to High(Result) do begin Result[i]:=i*10+1; end; end; exports GetArray; begin end.

а вот как я ее использую:
procedure TForm1.FormCreate(Sender: TObject); type TIntArray = array of integer; TGetArray = function: TIntArray; var LibHandle: THandle; i: integer; GetIntArray: TGetArray; IntArray: TIntArray; begin LibHandle:=LoadLibrary("MYDLL.DLL"); if LibHandle >= 0 then begin @GetIntArray:= GetProcAddress(LibHandle,"GetArray"); if @GetIntArray<>nil then begin IntArray:=GetIntArray(); for i:=0 to High(IntArray) do begin Caption:=Caption+"-"+IntToStr(IntArray[i]); end; FreeLibrary(LibHandle); end; end; end;

и вот здесь FreeLibrary(LibHandle) Делфи сообщает Аксес Виалейшн:( Где те грабли, на которые я наступил?

Заранее спасибо.

← →
Aleksey V.P. (2005-01-18 16:38) [1]

Создавая в DLL будь любезен убивать там же

← →
TUser © (2005-01-18 16:39) [2]

library Project1; { Important note about DLL memory management: ShareMem must be the first unit in your library"s USES clause AND your project"s (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, Classes; {$R *.res} begin end.

← →
Нуждающийся в помощи (2005-01-18 16:53) [3]

TUser © (18.01.05 16:39) [2]
Не совсем понял Ваш ответ:(

← →
MBo © (2005-01-18 17:01) [4]

>Нуждающийся в помощи (18.01.05 16:53) [3]
Читать приведенный комментарий, учить наизусть.
Там упоминаются строки, но то же самое относится и к динамическим массивам

← →
Нуждающийся в помощи (2005-01-18 17:08) [5]

MBo © (18.01.05 17:01) [4]
Ага, я как-то это упустил из виду, сенкс...
Но вот не очень хочется подключать ShareMem.
Для строк альтернатива - использование PChar, а вот для динамических массивов что посоветуете?

← →
Reindeer Moss Eater © (2005-01-18 17:10) [6]

Указатель и длину

← →
Digitman © (2005-01-18 17:20) [7]

> Но вот не очень хочется подключать ShareMem

не хочется - не подключай, никто тебя не насилует.
установи у обоих проектов опцию Build With Run-Time Pakages и донт ворри би хэппи

← →
Amoeba © (2005-01-18 17:47) [8]

Есть еще одна альтернатива ShareMem
http://aiming.ynxx.com/ShareMemRep.htm
Подключаешь этот модуль в своей программе (в dpr) и в ббилотеке - и BORLNDMM.DLL более не требуется.

← →
Нуждающийся в помощи (2005-01-18 18:24) [9]

Reindeer Moss Eater © (18.01.05 17:10) [6]
Я прошу прощения за назойливость, но я ведь только учусь - господа, сделайте скидку на это:)

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

← →
Нуждающийся в помощи (2005-01-18 18:30) [10]

И попутно еще один вопрос:
а как можно в dll поместить обработчик какого-нить события?
Т.е. я хочу динамически подключить одну библиотеку, и для кнопки назначить обработчик ее нажатия, который находится в dll. А затем подключить другую библиотеку, и назначить этой же кнопке другой обработчик, реализующий другую функциональность...

Это реально сделать?

← →
raidan © (2005-01-18 19:26) [11]

>Нуждающийся в помощи (18.01.05 18:30) [10]
Реально.

← →
raidan © (2005-01-18 19:29) [12]

http://www.delphimaster.ru/articles/usedll/index.html
Тебе стоило бы почитать все статьи на delphimaster.ru
Они полезны и вкусны :)

← →
Нуждающийся в помощи (2005-01-21 08:56) [13]

Статьи перечитал...
Но так и не нашел ответ: как в качестве обработчика события TButton.OnClick назначить какую-то процедуру из динамически подключаемой dll?

в ДЛЛ:

procedure ClickHandler(Sender: TObject);
begin
showmessage(sender.classname)
end;

exports ClickHandler;

в вызывающем ее коде :

var
hLib: THandle;
ClickHandler: TNotifyEvent;
method: TMethod;
..

hLib := LoadLibrary("mylib.dll");
TMethod(method).Code := GetProcAddress("ClickHandler");
TMethod(method).Data := Button2;
Button2.OnClick := method;

← →
Нуждающийся в помощи (2005-01-21 09:59) [15]

Нечто похожее я пробовал делать...
Но компилятор ругается на эту строчку вот так:
[Error] Main.pas(66): Incompatible types: "TNotifyEvent" and "TMethod"

← →
Нуждающийся в помощи (2005-01-21 10:05) [16]

Всем спасибо - задача решена:
код Digitman © (21.01.05 09:13) [14] чуток подправил и все заработало:

var
hLib: THandle;
ClickHandler: TNotifyEvent;
..

hLib := LoadLibrary("mylib.dll");
@ClickHandler:= GetProcAddress(hLib, "ClickHandler");
Button2.OnClick := ClickHandler;

> компилятор ругается на эту строчку вот так:
> [Error] Main.pas(66): Incompatible types: "TNotifyEvent"
> and "TMethod"

не знаю как у тебя, но у меня не ругается (Д7)

← →
Нуждающийся в помощи (2005-01-21 10:34) [18]

Может просто Д7 умнее, чем Д6...
Но все равно - спасибо за пинок в нужную сторону:)

DLL: Динамическая загрузка/выгрузка Найти похожие ветки