| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Интерфейсы... [D7]

GanibalLector ©   (2006-06-08 23:21:00) 

Есть главное приложение,в нем находиться 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;



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

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

---

vl_chel   (2006-06-09 11:57:00) [1]

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

---

GanibalLector   (2006-06-09 09:47:00) [2]

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

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

---

evvcom   (2006-06-09 08:26:00) [3]

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

---

Наверх