Ещё вопрос о длл...

[Altera]

Привет всем!
Вот у меня возник вопрос!
Вот код EXE:

unit test_form;

interface

uses
  Windows, Controls, SysUtils, Variants, Classes, Messages, Forms,
  StdCtrls, ExtCtrls, iniFiles, ImgList, dialogs, AtomButton, shellApi,
  ExtDlgs, Buttons, Graphics, jpeg, Grids, ValEdit, ComCtrls, TimeDateLabel,
  AtomButton2;

type
  Ttest_form1 = class(TForm)
    comp: TTimeDateLabel;
    tAtomButton21: tAtomButton2;
    tAtomButton22: tAtomButton2;
    tAtomButton23: tAtomButton2;
    Edit1: TEdit;
    tAtomButton24: tAtomButton2;
    procedure tAtomButton24Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tAtomButton23Click(Sender: TObject);
    procedure tAtomButton22Click(Sender: TObject);
    procedure tAtomButton21Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  test_form1: Ttest_form1;
  h: tHandle;
  creating: procedure(const value: pointer); stdCall;
  set12: procedure(const value: boolean); stdCall;
  isPm: function: boolean; stdCall;
  getTime: function: pChar; stdCall;
  setRefreshInterval: procedure (const value: integer); stdCall;
implementation

{$R *.dfm}

procedure Ttest_form1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   FreeLibrary(h);
end;

procedure Ttest_form1.FormCreate(Sender: TObject);
begin
   h := loadLibrary(pChar(extractFilePath(application.ExeName)+'dll\dll.dll'));
   @creating := getProcAddress(h, 'creating');
   @set12 := getProcAddress(h, 'set12');
   @isPm := getProcAddress(h, 'isPm');
   @getTime := getProcAddress(h, 'getTime');
   @setRefreshInterval := getProcAddress(h, 'setRefreshInterval');

   creating(@comp);
end;

procedure Ttest_form1.tAtomButton21Click(Sender: TObject);
begin
   set12(not comp.is12);
end;

procedure Ttest_form1.tAtomButton22Click(Sender: TObject);
begin
   if isPm then showMessage('Is MP') else showMessage('Is AM');
end;

procedure Ttest_form1.tAtomButton23Click(Sender: TObject);
begin
   showMessage(strPas(getTime));
end;

procedure Ttest_form1.tAtomButton24Click(Sender: TObject);
begin
   setRefreshInterval(strToInt(edit1.Text));
end;

end.

а это код DLL:

library dll;


uses
  SysUtils,
  TimeDateLabel,
  forms,
  Classes;

{$R *.res}
var
tdLabel: tTimeDateLabel;

procedure creating(const value: pointer); stdCall;
begin
   tdLabel := tTimeDateLabel.Create(application);
   tdLabel := tTimeDateLabel(value^);
end;

procedure set12(const value: boolean);stdCall;
begin
   tdLabel.is12 := value;
end;

function isPm: boolean; stdCall;
begin
   result := tdLabel.isPm;
end;

function getTime: pChar; stdCall;
begin
   result := pChar(tdLabel.Caption);
end;

procedure setRefreshInterval(const value: integer); stdCall;
begin
   tdLabel.refreshInterval := value;
end;

exports creating, set12, isPm, getTime, setRefreshInterval;

begin
end.

Если прога весит в памяти и не используеться, выг7рузиться ли из памяти dll? Не выскачит ли ошибка при скажем вызове showMessage(strPas(getTime));??? Я знаю, что библиотеки выгружаються от туда по мере надабности.

[Air]

По сути дела нет, если Вы её сами принудительно не выгрузите.
При вызове "getTime" она автоматически загрузится(должна) если была выгружена как не использующаяся библиотека.

[Altera]

При вызове "getTime" она автоматически загрузится(должно) если была выгружена как не использующаяся библиотека.

А переменная tdLabel: tTimeDateLabel; обнулиться?

[Air]

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

А переменная tdLabel: tTimeDateLabel; обнулиться?

Если дллка выгрузится из памяти,то да, в противном случее нет. (ведь она глобальная)
Вообще лучше не выгружать длл если надо сохранять какие-то данные или перебрасывать их в прога, потом отправлять их длл(это только если не обойтись без выгрузки)

[Altera]

Я не собираюсь ничего выгружать до завершения работы программы...

[Air]

Методом "loadLibrary" (когда я загружаю длл) у меня всё сохраняется.
а что мучаться... протестировали бы давно и спрашивать не пришлось бы

[Altera]

И на этом big thank's