DLL с формой и ее вызов динамически.

[Alexandr17]

Как сделать свою DLL с формой и ее динамический вызов из проекта. Есть ли пример.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=46633

[Alexandr17]

--DLL--
unit UnDllForms;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Function TestForms(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean; StdCall;
var
  Form1: TForm1;

implementation

{$R *.dfm}
Function TestForms(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean; StdCall;
begin
  form1.Button1.Caption:=textbtn1;
  form1.Button2.Caption:=textbtn2;
  form1.Caption:=textdialog;
  if form1.ShowModal=mrok then begin
    resulttextmemo:=PAnsiCHar(form1.Memo1.Text);
    result:=true;
    form1.Close;
  end else begin
    result:=false;
    form1.Close;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.ModalResult:=mrok;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.ModalResult:=mrno;
end;

end.
library ProjectDll;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

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

{$R *.res}

exports TestForms;

begin
end.
--Project--
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.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 TForm1.Button1Click(Sender: TObject);
type tTestForms=Function(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean;
var
  TestForms:TTestForms;
  dll_instance: Thandle;
begin
  dll_instance:= LoadLibrary('ProjectDll.dll');
  @TestForms:=GetProcAddress(dll_instance, 'TestForms');
  if TestForms('OK', 'No', 'DIALOG DLL FORMS', paNSIchar(Caption)) then
    Form1.Caption:=Form1.Caption+';TRUE';
  FreeLibrary(dll_instance);
end;

end.

В итоге получаю это

[ZuBy]

А где создание форм?

[Alexandr17]

Упс да а как создать ее если она существует

[Alexandr17]

Вот теперь создаю форму.

Function TestForms(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean; StdCall;
begin
  Form1:= TForm1.Create(Application);
  form1.Button1.Caption:=textbtn1;
  form1.Button2.Caption:=textbtn2;
  form1.Caption:=textdialog;
  if form1.ShowModal=mrok then begin
    resulttextmemo:=PAnsiCHar(form1.Memo1.Text);
    result:=true;
    form1.Free;
  end else begin
    result:=false;
    form1.Free;
  end;
end;

Ошибки при вызове формы нет но ззато возникает ошибка при ее удалении.

[Stilet]

Form1:= TForm1.Create(Application);

Зачем Application?
Ставь nil

[Alexandr17]

Не помагло. Все равно при зыкрытии dll формы программа зависает и выводится что программа не работает

[evg_m]

type tTestForms=Function(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean;

Function TestForms(textbtn1, textbtn2, textdialog, resulttextmemo:PAnsiCHar):Boolean; StdCall;

разные схемы управления стеком при вызове функции (stdcall и ???) =>разрушение стека => зависание и прочие проблемы.
описание должно быть одинаковым.

[eval]

схемы управления стеком

cоглашение о вызове.