Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DLL: Динамическая загрузка/выгрузка [D6, Win95/98]

Нуждающийся в помощи © (2005-01-18 16:30:00)
Добрый день!
Вот сижу разбираюсь с 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) Делфи сообщает Аксес Виалейшн:( Где те грабли, на которые я наступил?

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

Нуждающийся в помощи (2005-01-21 10:34:00) [1]
Может просто Д7 умнее, чем Д6...
Но все равно - спасибо за пинок в нужную сторону:)

Digitman (2005-01-21 10:13:00) [2]

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

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

Нуждающийся в помощи (2005-01-21 10:05:00) [3]
Всем спасибо - задача решена:
код Digitman © (21.01.05 09:13) [14] чуток подправил и все заработало:

var
hLib: THandle;
ClickHandler: TNotifyEvent;
..

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

Нуждающийся в помощи (2005-01-21 09:59:00) [4]
Нечто похожее я пробовал делать...
Но компилятор ругается на эту строчку вот так:
[Error] Main.pas(66): Incompatible types: 'TNotifyEvent' and 'TMethod'

Digitman (2005-01-21 09:13:00) [5]
в ДЛЛ:

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 08:56:00) [6]
Статьи перечитал...
Но так и не нашел ответ: как в качестве обработчика события TButton.OnClick назначить какую-то процедуру из динамически подключаемой dll?

raidan (2005-01-18 19:29:00) [7]
http://www.delphimaster.ru/articles/usedll/index.html
Тебе стоило бы почитать все статьи на delphimaster.ru
Они полезны и вкусны :)

raidan (2005-01-18 19:26:00) [8]
>Нуждающийся в помощи (18.01.05 18:30) [10]
Реально.

Нуждающийся в помощи (2005-01-18 18:30:00) [9]
И попутно еще один вопрос:
а как можно в dll поместить обработчик какого-нить события?
Т.е. я хочу динамически подключить одну библиотеку, и для кнопки назначить обработчик ее нажатия, который находится в dll. А затем подключить другую библиотеку, и назначить этой же кнопке другой обработчик, реализующий другую функциональность...

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

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

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

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

Digitman (2005-01-18 17:20:00) [12]

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

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

Reindeer Moss Eater (2005-01-18 17:10:00) [13]
Указатель и длину

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

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

Нуждающийся в помощи (2005-01-18 16:53:00) [16]
TUser © (18.01.05 16:39) [2]
Не совсем понял Ваш ответ:(

TUser (2005-01-18 16:39:00) [17]
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.

Aleksey V.P. (2005-01-18 16:38:00) [18]
Создавая в DLL будь любезен убивать там же

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »