Интерфейсы...

← →
GanibalLector © (2006-06-08 23:21) [0]

Есть главное приложение,в нем находиться TPopupMenu. Есть библиотеки(с формами),некоторые компоненты на этих формах должны иметь TPopupMenu одинакового "формата".
Соответсвенно,дабы не плодить TPopupMenu на каждую форму решил брать ее из главного приложения.
Делал через интерфейсы. В общем-то сделал... все вышло,но от Лукавого,т.к. ничего другого в голову не лезло(пришлось вызывать LoadLibrary из библиотеки на главное приложение).

Собственно,код :

Главное приложение :
IPopup = interface ["{F3B3F5EB-0E26-417C-8509-5734C71458BE}"] function GetPopup:Pointer; end; type TPop = class(TInterfacedObject,IPopup) function GetPopup:Pointer; end; ... var Form1: TForm1; PPop:TPop; ... function TPop.GetPopup: Pointer; begin Result:=Form1.PopupMenu1; end; function GetPopup: IPopup;stdcall; begin PPop:=TPop.Create; Result:=PPop as IPopup; end; exports GetPopup;

Библиотеки с формами (этот код и не нравиЦа) :
... var hMain:HWND; GetPopup :function : IPopup;stdcall; FPopup:IPopup; begin hMain:=LoadLibrary(PChar(Application.ExeName)); if hMain<>0 then begin GetPopup:=GetProcAddress(hMain,"GetPopup"); if Assigned(GetPopup) then begin FPopup:=GetPopup; if Assigned(FPopup) then StringGridEx1.PopupMenu:=FPopup.GetPopup; end; FreeLibrary(hMain); end;

Вот и вопрос назрел...насколько это правильно (или как сделать правильно)???

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

← →
evvcom © (2006-06-09 08:26) [1]

Какая разница, что ты сделал через интерфейсы или делал бы без них. В результате ты все равно приходишь к присвоению свойству типа dll.TPopupMenu объекта exe.TPopupMenu, пусть даже эти адреса ты вычислил с извращениями через интерфейсы. Если ты не используешь runtime packages, то код твой некорректен.

← →
GanibalLector © (2006-06-09 09:47) [2]

Еще предложения будут?

2 evvcom © (09.06.06 08:26) [1]
runtime packages не собираюсь использовать в силу некоторых причин.

Код очень сомнительный и не совсем логичный. Смысл из библиотеки вызывать библиотеку ?????
Вы попутали библиотеку и главное приложение.
В библиотеке должна быть функция ShowWindow(PopUp: IPopup)

Интерфейсы... Найти похожие ветки