В очередной раз прошу совета.
Проблема такова - Главная рабочая форма проги - MDIForm, а в подключаемой библиотеке (dll) должна находиться форма MDIChild.
Библиотека должна подключаться ДИНАМИЧЕСКИ (через THandle, LoadLibrary и т.д.). В dll есть соответствующая процедура, создающая эту форму (по крайней мере, она пытается это сделать).
Возможно ли такое? И если возможно, то как это реализовать? Ибо Delphi жутко ругается при попытке показать дочернее окно посредством ShowModal.
Спасибо за внимание.

Не понятно, причем ShowModal и дочернее окно. А для того чтобы создать дочернее окно из dll, нужно передать в библиотеку указатель на TApplication твоего MDI-приложения. И создавать примерно так:

function CreateMDIForm: integer; stdcall;
begin
Result := integer(TfrmChild.Create(Application));//Application ТВОЕГО приложения
end;

и еще. перед выгрузкой библиотеки, ей нужно вернуть старое значение Application.

Хочу поправить что данная прооцедура не срабатывает при создании MDIChild формы,вызываемой из dll. Как тока не пыталься все равно не получаеться создать.
Если кто то делал не могли бы вы поподробнее рассказть что нужно MDIChild форме что бы она намана встала в основное приложение, а вчастносте в форму типа MDIForm.

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

Да, кстати, весьма интересная проблема. В свое время я тоже провел некоторое время пытаясь её решить, но так и не решил. Если кто знает, НЕ МОЛЧИТЕ, plz.

Не ну как то же можно подцепить форму из DLL в основное приложение при этом соблюдать строение MDI ? Не проходите мимо я хочу знать как ???

Да конечно можно! Но как? Может стоит обратиться к API функциям? Ведь есть же подобные программы. Наверное буржуи из Borland зажали это возможность в Delphi. Или может я зря их ругаю?

Я вот чета не понял у сержа получилось или не получилось создать, правда это давно было может его уже и нет (шутка), но все же ??? что есть большая разница между динамическим и статическим вызовом библиотеки и последующим вызовом процедуры по динамическому созданию формы ???, можь я дурак и мне тока на VB писать остаеться

Между динамическим и статическим вызовом библиотек разницы почти нету, кроме эстетической ))
При статической компоновке библиотека всегда должна поставляться вместе с программой. При это создается специальный код пролога/эпилога в программе для облегчения доступа к функциям библиотеки.
При динамической компоновке ты сам грузишьбиблиотеку в памятьЮ сам её освобождаешь, сам добываешь точки входа в процедуры, сам следишь за соответствием типов параметров.

Это сообщение отредактировал(а) HiTek - 21.4.2004, 14:04

Понятно, Спасибо конечно но такую лекцию читать смылса не было я и так это знаю, я просто спросил от метода вызова это может зависить??, канечно понимаю что это глупый вопрос, но кто его знает???

Не думаю, что это может повлиять на решение сей проблемы. Т.к. в итоге все грузится оинаково. Просто при динамической компоновке компилер облегчает жизнь программеру немного.
ИМХО Исток проблемы надо искать в самом Delphi, либо в кривых руках.

Тута глядя на вас я решил создать подобную ситуацию. Создал приложение с главной формой типа MDIForm и создал dll туда добавил форму типа MDIChild, потом попытался из приложения вызвать функцию каторая создает форму MDIChild и...................................................................................... в натуре не работает!!!!, причем ошибка скорее всего исходит от того что MDIChild форма не может найти в классе Screen окно типа MDIForm. вота может в этом загвоздка, (так сказать собака зарыта)???????????

Уважаемый, Гость_Silence, не могли бы вы поподробнее рассказать о своем тесте (код, частями, показать).

Это основное приложение

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; procedure Open(Handle: HWND; sc: PChar); stdcall; external 'DllForm'; var  Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin Open(Application.Handle,@Screen); end; end.

это dll

это dll

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; type  TForm12 = class(TForm)  private    { Private declarations }  public    { Public declarations }  end; procedure Open(Handle: HWND; sc: PChar); export; var  Form12: TForm12; implementation {$R *.dfm} procedure Open; begin Screen.Free; Screen := TScreen(sc); Form12 := TForm12.CreateParented(Handle); Form12.Show; end; end.

зачем частями вот лови почти весь код тока она все равно не фурыкает.
Dll - женщины они все такие, когда тебе надо что то от нее она задом поварачиваеться..

Ну я даже незнаю вообщем вот
1. в Unit'e - dll:

Код

procedure SetParentCtrls (App:TApplication); begin Forms.Application := App; Application.CreateForm (TForm2, Form2); Form2.Show; end;

в library-dll:

Код

exports SetParentCtrls; begin end.

2. в основном приложении:

Код

procedure SetParentCtrls(App:TApplication);external 'DLLFORM.DLL'; ... procedure TForm1.Button2Click(Sender: TObject); begin SetParentCtrls (Application); end;

и все работает
тока перед закрытием основного приложения ОБЯЗАТЕЛЬНО такой код:

Код

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ... Action := caFree; ExitProcess (0); end;

ps и незабыть указать свойства у основной формы - MDIForm, а у dll - MDIChild

СПАСИБО ОГРОМНОЕ, вроде тоже так же делал а че та не работало

А еще есть альтернативный вариант - использовать JEDI VCL. Помимо множества разных прибамбаслв там имеется компонент для построения и использования плагинов. Есть готовые демки для SDI, MDI и прочая....

Люди, а вы можете объяснить такую фразу (message 2, page 1)

Цитата

и еще. перед выгрузкой библиотеки, ей нужно вернуть старое значение Application.

И еще такой вопрос: получается при загрузке dll появляются еще один Application, и еще один Screen (и может еще что-нибудь)? Тогда если воспользоваться вариантом nJIaKca.spb, то они (dll'овские) останутся в памяти, пока программа не завершится?

почему сразу появляется?
они там и так есть -- одна библиотек может использоваться >1 приложением