Разработка PlugIn

[BOBAH13]

Приветствую. Разрабатываю плагин, допустим есть программа в ней окно пустое, вызываю плагин в нем форма, на ней компоненты VCL. Так вот же не задача, как мне эту форму в длл разместить на форме моего приложения ? Добился помещения, но после UpdateWindow(); форма не отображает контролы, наверное из-за ShowWindow(); Есть варинаты отображения и т.п. Можно послушать идеи на счет этого, но меня интерисует наибольше то, как получить не хендл, а указатель на экземпляр окна (TForm) и свободно с ним работать в приложении.

[Stilet]

А может лучше будет не с DLL а с BPL работать, я если не ошибаюсь там можно и MDI формы и вообще удобнее работать на много

Кстати вот со старых времен у меня примерчик остался про формы в ДЛЛках:

Это код главной формы:

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;
   procedure u(w:TWinControl); external 'project2.dll';
var     f:THandle;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
u(Form1);
end;

end.

Это самой ДЛЛ

library Project2;

{ 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
  SysUtils,Controls,
  Classes,
  Unit2 in 'Unit2.pas' {Form2};
var f:TForm2;
{$R *.res}
procedure u(s:TWinControl);
begin
 f:=TForm2.CreateParented(s.Handle);

 //f.Parent:=s;
 f.Show;
end;

exports u;
begin

end.

Код формы в ДЛЛКе я не привожу он значения не имеет.

[BOBAH13]

Да спасибо, я на подобии такого и сделал, ну правда у меня немного больше кода получилось.

[BOBAH13]

Еще вопрос... думаю что знаю в чем проблема вообщем вот код:

library...

function GetIcon: TIcon; stdcall;
...

exports
  GetIcon name 'GetIcon';

...

program...

var
  GetIcon: function: TIcon; stdcall;

...

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

[B_N]

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

....в другой области памяти ( не моего приложения )......

Ну, это, конечно, ерунда: сам принцип dll в том, что они "грузятся" в адресное пространство приложения, мало того, изо всех сил стараются сесть на один и тоже адрес.

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

Как мне получить ссылку на класс из dll и спокойно его использовать ?

Помнится, какие-то жуткие вещи были связаны с борландовскими классами в dll-ках, не уверен, что получится спокойно его использовать . А что касается класса, не совсем понял, нужен адрес самой реализации? он был где-то вначале переменной self, то ли по нулевому оффсету, то ли по четвертому, то ли по восьмому, уже точно не помню, отладчиком можно точно посмотреть, класс сразу видно по таблице методов.

[BOBAH13]

Я хочу получать классы ( ссылки ) из длл в свое приложение и использовать их как классы, которые созданные в моем приложении.

[Stilet]

Я хочу получать классы ( ссылки ) из длл в свое приложение и использовать их как классы, которые созданные в моем приложении.

Для этого в либе пропиши Uses <Твоя главная прога-юнит>
Посмотри как у меня:

...
uses   
....
  Unit2 in 'Unit2.pas' {Form2};  
....

[BOBAH13]

Вообщем ладно, походу никто ничего не понял что я хотел сделать. У меня была цель експортировать ссылки на классы графических файлов сделал чуть подругому. Т.к. файлы в ресурсах длл сделал так

procedure initialize; stdcall;
begin
  ...
  Icon := LoadIcon(hInstance, 'Name of Icon');
  BitMap := LoadBitMap(hInstance, 'Name of BitMap');
end;

procedure Finalize;
begin
  ...
  DeleteObject(Icon);
  DeleteObject(BitMap);
end;

// to get these variables
function GetIcon: HICON;
begin
  Result := Icon;
end;

остальное по аналогии... а в проге отрисовывал просто, DrawIconEx. Или TIcon.Handle := GetIcon; Вообщем как обычно сам спрашиваю, сам разбираюсь но всеравно спасибо

[BOBAH13]

И опять вопрос допустим я экспортирую функцию из длл типа

function GetName: PCHAR;
begin
  Result := 'текст';
end;

и после вызова в программе типа

String := GetName;

и вот вопрос, после этого не будет утечки памяти строки GetName которая вернулась...

[BOBAH13]

как нистранно, после закоментирования вызовов такой процедуры модуль при выходе выводил на 200 б меньше потерь

unit CheckMemory;

interface

implementation

uses
  Windows, Forms, SysUtils, Dialogs;

var
  HPs: THeapStatus;
  HPe: THeapStatus;
  lost: Integer;

initialization
   HPs := GetHeapStatus;

finalization
   HPe := GetHeapStatus;
   Lost:= HPe.TotalAllocated - HPs.TotalAllocated;
   if lost >  0 then
   begin
      MessageBox(Application.Handle, PCHAR(format('lostMem: %d',[ lost ])), '', 0);
   end;
    
end.