Помогите с формами в dll

[yaschenko]

Доброго времени суток!
Подскажите пожалуйста: При нажатии на кнопку я загружаю с помощью loadlibrary dll и отрываю из этой dll форму, как мне при закрытии формы вызванной из dll сразу же с помощью FreeLibrary выгрузить dll из памяти?

[Streletz]

FreeLibrary выгрузить dll из памяти

Передайте в FreeLibrary handle dll.
В помощь: Динамическая и статическая загрузка DLL

[yaschenko]

я не знаю где мне написать FreeLibrary что бы именно после закрытия dll-ной формы освободить память. Что бы при следующем нажатии на кнопку у меня снова загружалась dll и открывалась форма.

[Streletz]

Сообщение от yaschenko

я не знаю где мне написать FreeLibrary что бы именно после закрытия dll-ной формы освободить память. Что бы при следующем нажатии на кнопку у меня снова загружалась dll и открывалась форма.

FreeLibrary выгружает dll из памяти.
Если форма используется часто, то dll, возможно, имеет смысл выгружать при завершении работы программы. Либо при каждом её вызове снова загружать dll и после закрытия формы снова выгружать. Как-то так...

[yaschenko]

Сообщение от Streletz

FreeLibrary , при каждом её вызове снова загружать dll и после закрытия формы снова выгружать.

именно это мне и нужно, но я не знаю где где мне написать FreeLibrary что бы выгрузить dll при закрытии формы вызванной из dll.

[Аватар]

dll знает, что окно закрылось, пусть и передает сообщение об этом, в обработчике которого выгружать

[yaschenko]

Аватар, Можете скинуть пример как это реализовать, третьи сутки интернет лопачу решение найти не могу?

[Аватар]

Покажите код взаимодействия проги и dll

[yaschenko]

Код основной программы:

procedure TForm1.Button1Click(Sender: TObject);
var hLib:THandle;
    _Create:procedure(Parent:TComponent);
    _Show:procedure;
begin
hLib:=LoadLibrary('Project2.dll');
@_Create:=GetProcAddress(hLib,'FormCreate');
@_Show:=GetProcAddress(hLib,'FormShow');
_Create(Self);
_Show;
end;

Dll:

library Project2;

uses
  SysUtils,
  Classes,
  Unit2 in 'Unit2.pas' {Form1};

{$R *.res}

procedure FormCreate(Parent:TComponent);
begin
Form1:=TForm1.Create(Parent);
end;

Procedure FormShow;
begin
Form1.Show;
end;

exports
  FormCreate,
  FormShow;
begin
end.

[Аватар]

Примерно в этом направлении

library Project2;

uses
  SysUtils,
  Classes,
  Unit2 in 'Unit2.pas' {Form1};

{$R *.res}

procedure FormCreate(Parent:TComponent);
begin
  Form1:=TForm1.Create(Parent);
end;

Procedure FormShow;
begin
  Form1.Show;
end;

Procedure FormDestroy;
begin
  Form1.Free;
end;

exports
  FormCreate,
  FormShow,
  FormDestroy;

begin
end.


unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
const cMy_DLL_FormClose = WM_USER+1;
begin
  Action:=caHide;
  PostMessage(TWinControl(Owner).Handle,cMy_DLL_FormClose,0,0);
end;

end.

unit Unit1;

interface

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

const cMy_DLL_FormClose = WM_USER+1;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure MyDLLFormClose(var Msg: TMessage); message cMy_DLL_FormClose;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var hLib:THandle;

procedure TForm1.Button1Click(Sender: TObject);
var _Create:procedure(Parent:TComponent);
    _Show:procedure;
begin
hLib:=LoadLibrary('Project2.dll');
@_Create:=GetProcAddress(hLib,'FormCreate');
@_Show:=GetProcAddress(hLib,'FormShow');
_Create(Self);
_Show;
end;

procedure TForm1.MyDLLFormClose(var Msg: TMessage);
var _Destroy:procedure;
begin
  @_Destroy:=GetProcAddress(hLib,'FormDestroy');
  _Destroy;
  FreeLibrary(hLib);
end;

end.

Создавать вторую форму из dll, не закрыв первую этим кодом нельзя