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

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

Создание плагинов

Medved ©   (2005-08-30 14:47:00) 

Суть проблемы:есть программа с формами. Нужно, чтобы была возможность загружать некоторые формы из DLL. Код, приведенный ниже, работает неправильно (выход из программы - после двух нажатий на кнопку закрытия одного окна или одного нажатия на каждом из окон по очереди). Может, у мастеров есть какие-то идеи?

LoadPlugin.dpr


program LoadPlugin;

uses
 Forms,
 Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.


Plugin.dpr


library plugin;

 uses
   ShareMem,
   SysUtils,
   Classes,
   Forms,
   Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

 procedure Init;
 begin
   Application.Initialize;
   Application.CreateForm(TForm2, Form2);
   Application.Run;
 end;

 exports
   Init name 'Init';

begin
end.


Unit1.pas


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure Init; external 'plugin.dll' name 'Init';

procedure TForm1.Button1Click(Sender: TObject);
begin
 // load form form DLL
 Init;
end;

end.


Unit2.pas


unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm2 = class(TForm)
   Memo1: TMemo;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

end.


---

Суслик   (2005-08-30 15:55:00) [1]

Копай лучше в сторону runtime пакетов.
С ними куда меньше проблем, чем с dll.

Почитай об этом материалы на сайте www.delphikingdom.ru

---

Medved   (2005-08-30 15:39:00) [2]

Спасибо! Попробую разобраться.

---

Digitman   (2005-08-30 15:25:00) [3]

program LoadPlugin;

uses
ShareMem,
Forms,
Unit1 in 'Unit1.pas' {Form1};

---

xShadow   (2005-08-30 15:15:00) [4]

http://narod.yandex.ru/cgi-bin/yandsearch?user=delphiworld&text=%F4%EE%F0%EC%E0+%E2+dll&where=2

Почитай для начала.

---

Наверх