Всем привет!
Вопрос такой:
Есть приложение, которое загружает dll-ку и вызывает в ней процедуру, которая должна как-то воздействовать на компоненты формы приложения.

Процедура в dll описана так:
 procedure PluginRun(Application: TApplication);
 var i: integer;
 begin
   for i:=0 to Application.ComponentCount - 1 do
   begin                          
     //if (Application.Components[i].ClassName='TForm1') then //работает
     if Application.Components[i] is TForm then //не работает
     begin
       showmessage('ok');
       //f:=TForm(Application.Components[i]); //работает
       f:=Application.Components[i] as TForm; //не работает
       f.Caption:='hello';
     end;
   end;
 end;

В главном приложении она вызывается так:
plugin.RunProc(Application);
где в поле RunProc record'а plugin хранится адрес процедуры PluginRun.

Проблема вот в чем.
Код, помеченный комментариями "работает" - работает.
Но код, помеченный комментарием "не работает" - не работает: не срабатывает условие if Application.Components[i] is TForm then. Долблюсь уже несколько часов и не могу понять почему? Гугль уже облазил, но кроме первого решения ничего не нашел. Кто может объяснить где косяк и как его вылечить?

Может лучше все же пакеты начать использовать, на dll?

Тем более, что твоя dll все одно может быть использована только в проекте на Delphi.

Может надо "is TForm1"?

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

Osokin - Чушь говоришь, ибо в библиотеке нету TForm1. Мне надо проверить принадлежность объектов списка Components классу TForm.

>  не посылать меня использовать то, чего я не знаю.

Пакеты будут тебе удобнее мне кажется.


> Application.Components[i] is TForm

А почему это должно работать вообще? Класс твоей формы какой? TForm1 небось.

TForm1: ERROR: Undeclared identifier;

Ты зря меня не слушаешь про пакеты. В приложении и dll в каждом свои менеджеры памяти и RTTI. И твой TForm в приложении не равен TForm в dll

Ага. Это уже что-то... Буду разбираться, но для начала хотелось бы решить описанную мной проблему, а не переходить на пакеты...

> а не переходить на пакеты...

на них не надо переходить их надо включить.

и как это сделать?

> ilkz   (18.01.08 21:38) [4]

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

А чего ж ты взялся использовать то, чего не знаешь.

--
Regards, LVT.

> и как это сделать?

Project->Options->Build With Packages

> А чего ж ты взялся использовать то, чего не знаешь.
>


Я не не знаю, а изучаю и пытаюсь понять собственные ошибки.

> f:=TForm(Application.Components[i]);

Кстати, так тоже можно оставить. Это альтернативный вариант, но несколько менее удобный.


> ilkz

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

Ага, включил пакеты и все заработало! Спасибо DVM и всем остальным за помощь!

> ilkz   (18.01.08 21:59) [16]
>
> Ага, включил пакеты и все заработало!

Будешь переносить программу на другой компьютер, не забудь перенести и пакеты тоже.

> Кто может объяснить где косяк

Объяснение здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=831
см. раздел "Чудо шестое"

Читаю... Вникаю помаленьку...

Мне непонятно следующее:
Мне что - для решения проблемы надо использовать пакеты, таская за собой рантаймы?

Или же необходимо пользоваться методами ClassName и ClassNameIs и далее приведением типов в стиле TForm(FindedResult)?

Или оба эти варианта имеют право на жизнь, но каждый хорош по-своему?

> Или оба эти варианта имеют право на жизнь, но каждый хорош
> по-своему?

Оба я же уже говорил.

Правда вариант с f:=TForm(Application.Components[i]); он, как бы сказать, не совсем корректен, но работать будет.

А почему он не совсем корректен?

> А почему он не совсем корректен?

Ну, дело в том, что приводятся один к другому совершенно разные классы. Но так как по внутреннему устройству они абсолютно одинаковы, то приведение возможно. В общем случае может оказаться, что классы будут различны - тогда возникнет ошибка приведения. Такое возможно, имхо, если dll делалась на одной версии Delphi, а основное приложение в другой.

Ага, понятно.

> DVM ©   (19.01.08 17:44) [24]
>
>
> > А почему он не совсем корректен?
>
> Ну, дело в том, что приводятся один к другому совершенно
> разные классы. Но так как по внутреннему устройству они
> абсолютно одинаковы, то приведение возможно. В общем случае
> может оказаться, что классы будут различны - тогда возникнет
> ошибка приведения. Такое возможно, имхо, если dll делалась
> на одной версии Delphi, а основное приложение в другой.

Одна или разные версии Delphi - это не важно. В любом случае даже одинаковые классы в приложении и DLL при компиляции в одной и той же версии Delphi, будут различными (VMT, в частности, у каждого будет своя), то в результате проверка через is/as даст отрицательный результат. Если компилировать с пакетами (но версия, естественно, должна быть одной и той же), тогда результат уже будет положительным.

> Amoeba ©  

Это все само собой. Я не совсем о том. Я о приведении.
От версии к версии, например, у того же класса TForm могут появиться дополнительные новые методы или свойства. Если приложение компилируется в старой версии делфи, а длл в новой, то при попытке приведения из в длл переданного в ее процедуру указателя к типу TForm и последующем вызове какого либо метода может получиться ошибка. А в случае одной и той же версии делфи ошибки может и не быть.

можно попробовать вместо is проверять ClassName например...

> MetalFan ©

посмотри внимательно код в [0]