DLL II

← →
TButton © (2003-06-04 15:01) [0]

И все-таки, как объявить в проге класс из DLLки?

← →
y-soft © (2003-06-04 15:57) [1]

Что понимается под subj? Класс-оболочка, методы которого являются обертками для экспортируемых Dll функций или же Dll экспортирует сразу класс? Во втором случае: имеется в виду класс в терминах Object Pascal или, например, CPP?

← →
TButton © (2003-06-04 18:45) [2]

имеется ввиду
library myLib; uses ShareMem, SysUtils, Classes; type myType = record dam,def:integer; kind:byte; count:byte; end; TInv = object items:array[1..12] of myType; procedure Init; procedure Put(i:myType); function Get:myType; end; {$R *.RES} { TInv } function TInv.Get: myType; begin end; procedure TInv.Init; begin end; procedure TInv.Put(i: myType); begin end; begin end.

вот. а теперь я хочу создать в проге переменную типа TInv.

← →
Palladin © (2003-06-04 18:48) [3]

много хочешь

← →
Юрий Зотов © (2003-06-04 18:49) [4]

Вынесите все это в отдельный юнит и юзайте его и в программе, и в DLL. Только имейте в виду, что TInv в DLL и TInv в программе - это будут разные классы.

← →
Palladin © (2003-06-04 18:53) [5]

ситуация с классом не описанным в программе, но описанном в dll в принципе разрешима, при помощи pointer и type casting, вот только работать с этим классом возможно будет только из dll, создавать и уничтожать там же... а в основной программе возможно лишь хранение объекта...

проще тогда уж создавать com-объекты и работать с ними...

← →
Serginio (2003-06-04 18:53) [6]

Используй интерфейсы.

← →
TButton © (2003-06-04 18:58) [7]

просто хотелось скинуть классы в DLLку и потому, случись что не перестраивать всю прогу, а тока DLLу перепислять. т.е. я так понял, затея моя глупая и придется классы расписывать в юните, да и когда я буду менять чо-та перекомпилирывать всю прогу и заменять клиентам екзешник...

← →
VMcL © (2003-06-04 19:01) [8]

>TButton © (04.06.03 18:58)

IUnknown, IDispatch, etc. (см. Serginio (04.06.03 18:53))

← →
Skier © (2003-06-04 19:03) [9]

> и заменять клиентам екзешник...

А у тебя клиенты есть ? :)

← →
TButton © (2003-06-04 19:03) [10]

если честно я по части интерфейсов - пень

← →
Юрий Зотов © (2003-06-04 19:06) [11]

> TButton © (04.06.03 18:58)
> просто хотелось скинуть классы в DLLку

Так скиньте их в BPL и все проблемы исчезнут.

← →
Serginio (2003-06-04 19:09) [12]

File\New\Other\ActiveX\Com Object

← →
TButton © (2003-06-04 19:23) [13]

не ну я посмотрел... а вообще для каких целей используются такие объекты? а то ощущение такое будто пытаюсь поставить на Запор двигатель от боинга...

← →
panov © (2003-06-04 20:03) [14]

http://home.ural.ru/~panov
там есть пример

← →
y-soft © (2003-06-05 10:38) [15]

>Palladin © (04.06.03 18:53)
ситуация с классом не описанным в программе, но описанном в dll в принципе разрешима, при помощи pointer и type casting, вот только работать с этим классом возможно будет только из dll, создавать и уничтожать там же... а в основной программе возможно лишь хранение объекта...

>Юрий Зотов © (04.06.03 19:06)
Так скиньте их в BPL и все проблемы исчезнут.

Доступ к классу, созданному в Dll, через кастинг не лучший способ, т.к. требует, чтобы Dll и приложение были скомпилированы в одной версии Delphi, т.е. сложнее становится модифицировать код. По этой же причине неуниверсальны и BPL.

COM вещь хорошая, но для многих случаев неоправданно сложная.

Но существует еще один старый способ - экспортировать методы класса через функции-обертки. Примерно так (только сам принцип, реально необходимо еще предусмотреть обработку ошибок):

В Dll:

Program SomeDll; uses SomeClass; begin end. Unit SomeClass; interface uses Classes; type TSomeClass = Class private fSomeValue : integer; procedure SetSomeValue(const Value : integer); public Constructor Create; property SomeValue : integer read fSomeValue write SetSomeValue; end; //Функции-обертки function CreateSomeClass : pointer; export; function FreeSomeClass(Ref : pointer); export; function SomeClassGetSomeValue(Ref : pointer) : integer; export; function SomeClassSetSomeValue(Ref : pointer; const Value : integer); export; implementation constructor TSomeClass.Create; begin inherited; fSomeValue := 0; end; procedure TSomeClass.SetSomeValue(const Value : integer); begin if fSomeValue <> Value then fSomeValue := Value; end; end. function CreateSomeClass : pointer; export; begin Result := TSomeClass.Create; end; function FreeSomeClass(Ref : pointer); export; begin TSomeClass(Ref).Free; end; function SomeClassGetSomeValue(Ref : pointer) : integer; export; begin Result := TSomeClass(Ref).SomeValue; end; function SomeClassSetSomeValue(Ref : pointer; const Value : integer); export; begin TSomeClass(Ref).SomeValue := Value; end; exports CreateSomeClass, FreeSomeClass, SomeClassGetSomeValue, SomeClassSetSomeValue; end.

В приложении (пропущена загрузка/выгрузка Dll и обработка ошибок):
... interface ... type TSomeClassWrapper = class private fRef : pointer; function GetSomeValue : integer; procedure SetSomeValue(const Value : integer); public Constructor Create; Destructor Destroy; override; end; TCreateSomeClass = function : pointer; TFreeSomeClass = procedure(Ref : pointer); TSomeClassGetSomeValue = function(Ref : pointer) : integer; TSomeClassSetSomeValue = procedure(Ref : pointer; const var //При иницализации получить адреса через GetProcAddress CreateSomeClass : TCreateSomeClass; FreeSomeClass : TFreeSomeClass; SomeClassGetSomeValue : TSomeClassGetSomeValue; SomeClassSetSomeValue : SomeClassSetSomeValue; implementation Constructor TSomeClassWrapper.Create; begin inherited; fRef := CreateSomeClass; end; Destructor TSomeClassWrapper.Destroy; begin FreeSomeClass; inherited; end; function TSomeClassWrapper.GetSomeValue : integer; begin Result := SomeClassGetSomeValue(fRef); end; procedure SetSomeValue(const Value : integer); begin SomeClassSetSomeValue(fRef, Value); end; ...

← →
y-soft © (2003-06-05 10:40) [16]

Опечатка:

Destructor TSomeClassWrapper.Destroy;
begin
FreeSomeClass(fRef);
inherited;
end;

← →
Maks Realov (2003-06-05 12:38) [17]

Вопрос по теме:

А что, разве нельзя создать объект в DLL-ке и передать ссылку на него в главную программу; главная программа использует объект, "возвращает управление" в DLL и уже DLL-ка разрушает объект и освобождает ресурсы?
Менеджеры памяти у DLL и главного приложения разные - это понятно, но АП то одно.

← →
Skier © (2003-06-05 12:40) [18]

>Maks Realov (05.06.03 12:38)
И разные указатели на VMT и таблицу RTTI...

>Maks Realov (05.06.03 12:38)

А что, разве нельзя создать объект в DLL-ке и передать ссылку на него в главную программу; главная программа использует объект, "возвращает управление" в DLL и уже DLL-ка разрушает объект и освобождает ресурсы?

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

Вот буквально недавно пришлось разбирать случай:

Приложение и подключаемую библиотеку писали разные сотрудники. При вызове экспортируемой функции, возвращающей TMemoryStream возникло AV. Выяснилось, что приложение писалось в D5, а библиотека в D7...

> При вызове экспортируемой функции, возвращающей TMemoryStream
> возникло AV. Выяснилось, что приложение писалось в D5, а
> библиотека в D7...

Сильно сомневаюсь что дело в разных версиях...

COM - просто и надёжно. А главное без всяких несуразностей с версиями, типом компилятора и т.д.

Aleksey Pavlov © (05.06.03 13:18)

Не пугай людей страшными словами.
Здесь можно вполне обойтись и интерфейсами.
Интерфейс - это ещё не СОМ, в нём-то ничего сложного нет.

← →
АлексейК (2003-06-05 14:05) [23]

Если методы класса пометить как виртуальные, то их можно будет вызвать из DLL.

АлексейК (05.06.03 14:05)
Если методы класса пометить как виртуальные, то их можно будет вызвать из DLL.

Это что-то новенькое из жизни виртуальных методов :)

← →
Serginio (2003-06-05 19:51) [25]

С интерфейсом можно работать и без фабрики классов (COM).А Основным премуществом является GUID и у интерфейсов все виртуальные методы. Кроме всего прочего объект может содержать несколько интерфейсов и моя любимаю директива Implements, чтобы не создавать каждый раз новые объекты. Сборка мусора.

> А Основным премуществом является GUID и у интерфейсов все
> виртуальные методы.

Правда ?

DLL II Найти похожие ветки