Подключение библиотек

[PTyTb32]

Привет, есть главная форма и набор модулей (dll) на главной форме список доступных модулей и 1 кнопка для открытия нужного модуля.
вот код этой кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var
  showF: procedure(f: TApplication); stdcall;
  setModul: procedure(s: string); stdcall;
begin
  @setModul := nil;
  dll := LoadLibrary(PWideChar(Label43.Caption));
  @showF := nil;
  if dll <> 0 then
  begin
    @showF := GetProcAddress(dll, 'showModul');
    @setModul := GetProcAddress(dll, 'SetModul');
  end
  else
    exit;
  if @setModul <> nil then
    setModul(selectednode);
  if @showF <> nil then
    showF(Application);
end;

в библиотеках всегда есть метод showModul, он везде одинаковый создает и показывает форму модуля, но есть модуль в который нужно передать параметр...
на это создан метод SetModul в который собственно и нужно передать параметр.
код библиотеки:

library OWN;

uses
  Vcl.Forms,
  System.SysUtils,
  System.Classes,
  uOWN in 'uOWN.pas' {fOWN},
  uOWNT in 'uOWNT.pas' {fOWNT};

{$R *.res}
const
  ver = '4';
  dateBuild = '29.03.2019';

function GetVersion(): String;
begin
  Result := ver;
end;

function GetDate(): String;
begin
  Result := dateBuild;
end;

procedure showModul(f: TApplication);
begin
  f.CreateForm(TfOWN, fOWN);
  f.CreateForm(TfOWNT, fOWNT);
  fOWN.Show;
end;

procedure SetModul(s:string);
begin
   ModulObject:= s; //ModulObject - переменная типа string на fOWN
  fown.Caption:=ModulObject;
end;

exports showModul, GetDate, GetVersion, SetModul;

begin
end.

работать то оно работает, но после закрытия основного окна появляется сообщение "Runtime Error 216 at addres"
я через дебаг режим посмотрел что хранит в себе переменная @setModul если вызвать модуль без этого метода и она оказалась не nil, в ней что то было, думаю именно по этому и вылетает ошибка после закрытия, но я не знаю как ее устранить, подскажите пожалуйста

P.S.
Кажется я пытаюсь присвоить значение переменной которая еще не создана...... но как тогда оно работает!?

P.S.
Пробую вот так:

procedure showModul(f: TApplication; s:string);
var s1,s2:string;
begin
  f.CreateForm(TfOWN, fOWN);
  f.CreateForm(TfOWNT, fOWNT);
  ModulObject:= s;
  fown.Caption:=s;
  fOWN.Show;
end;

ну и кнопка в главной форме:

procedure TForm1.Button1Click(Sender: TObject);
var
  showF: procedure(f: TApplication; s:string); stdcall;
begin
  dll := LoadLibrary(PWideChar(Label43.Caption));
  @showF := nil;
  if dll <> 0 then
    @showF := GetProcAddress(dll, 'showModul')
  else
    exit;
  if @showF <> nil then
    showF(Application,selectednode);
end;

при этом в библиотеку (в параметр s:string) ничего не приходит, я проверил, переменная selectednode не пуста

P.S.
Получилось, создавая отдельный метод и через него сохранять значение в переменную, а при создании формы брать это значение.

[PTyTb32]

А на сколько правильно закрывать целое приложение в DLL? программа со своими формами, методами хранится в одном DLL и может быть реализована лишь с помощью делфи той же версии.. я писал на 10.1 и при попытке использовать ее методы из под делфи 7 ничего не работало, в плоть до кодировки.. это "говнокод"?

[R71MT]

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

это "говнокод"?

похоже на то..
Код "правильной" длл'ки не должен зависеть от версии компилятора 7 или 10. Более того, нет разницы на каком языке программирования написана длл. Например, большинство системных либ Win написаны на сях, но их функции спокойно импортируются в программы на других языках.

Для проверки, могу написать DLL на ассемблере с одной функцией "HelloWorld!", а ты подключи её к своему проекту в Дельфи, и вызови экспортируемую из этой DLL функцию - должно работать как часы.

[PTyTb32]

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

Код "правильной" длл'ки не должен зависеть от версии компилятора 7 или 10.

в этом то и прелесть dll однако из под 7 ки при вызове функций из библиотеки страдает кодировка и это вызывает ошибки, в прочем это не важно, конкретно в моем случае библиотеки служат как модули расширяющие функционал основной системы, они не предназначены для других приложений

[3D Hunter]

Хоть IDE и последняя, разве допустимо передавать во внешние методы библиотеки тип string? только PChar.

[PTyTb32]

Сообщение от 3D Hunter

Хоть IDE и последняя, разве допустимо передавать во внешние методы библиотеки тип string? только PChar.

Спасибо, я учту это