Использование невизуальных компонент в приложении без формы

← →
VS2001 (2002-08-05 06:24) [0]

У меня такая проблема:
подключил невизуальный компонент (VCLZip) в модуле DLL. Теперь могу воспользоваться его свойствами.
Вопрос: а как мне использовать события (Events) этого компонента.

← →
MBo (2002-08-05 07:39) [1]

VCLZip1.OnSomething:=SomeHandlerWithProperParameters;

← →
Юрий Зотов (2002-08-05 08:42) [2]

B том жк модуле, где этот комопонент используется (или прямо в DPR) напишите класс-потомок этого компонента и введите а него обработчик нужного события. Соответственно, создавайте его, а не оригинал. И пусть сам свое же событие обрабатывает.

← →
VS2001 (2002-08-05 09:19) [3]

А как вот такое забацать - VCLZip1.OnTotalPercentDone
VCLZip1.OnUnZipComplete
А то что-то не получается :-(

← →
MBo (2002-08-05 09:22) [4]

>забацать
Что это значит?
У компонента уже есть это событие или нет?

← →
Юрий Зотов (2002-08-05 09:40) [5]

Если проблема в том, что нет формы, то см. мой первый постинг и здесь:
http://www.delphikingdom.com/helloworld/runtime_comp.htm

Если в чем-то другом, то в чем именно?

← →
VS2001 (2002-08-05 11:32) [6]

>MBo
у компонентна это есть, но как им воспользоваться?

← →
MBo (2002-08-05 11:39) [7]

я уже сказал, как. Подробности в ссылке, данной Ю.З.

← →
VS2001 (2002-08-06 06:03) [8]

Что-то не получается.
Мне нужно вообще без формы (т.е.чисто DLL), а в указанной статье (и примере) с использованием формы.

← →
ЮЮ (2002-08-06 08:26) [9]

В полном соответствии с 1 и 2-м ответами:
type
TMyDLLZip = class(TVCLZip)
procedure myTotalPercentDone(Sender: TObject; Percent: Integer);
public
constructor Create( AOwner: TComponent ); override;
end;

constructor TMyDLLZip.Create(AOwner: TComponent);
begin
inherited;
self.OnTotalPercentDone:=MyTotalPercentDone;
end;

procedure TMyDLLZip.myTotalPercentDone(Sender: TObject; Percent: Integer);
begin
....
end;

← →
ZZ_ZZ (2002-08-08 07:32) [10]

>ЮЮ
прописал процедуру Pack, сделал там все что мне нужно.

Все хорошо, но вот теперь как экспортировать функции типа :

MyDLLZip.Pack

exports Pack или MyDLLZip ошибочный

← →
ЮЮ (2002-08-08 07:51) [11]

Хоть я и никогда DLL не занимался, но ,как мне кажется, импортировать ты должен не MyDLLZip.Pack а некую
Pack(здесь куча параметров), внутри которой ты и создашь свой MyDLLZip. Или же импортировать фукцию, возвращающую MyDLLZip, и работать уже с его методами.

← →
ZZ_ZZ (2002-08-08 10:09) [12]

>ЮЮ

Пробовал экспортировать Pack (как обычно экспортируются библиотеки) - тоже самое - ОШИБКА!

Если можешь помочь, напиши пример.

Использование невизуальных компонент в приложении без формы Найти похожие ветки