Главное приложение  ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 

unit formGetForm;

interface
uses
  System.SysUtils, System.Types, System.Classes, Winapi.Windows,
  FMX.Forms, FMX.Controls, FMX.Controls.Presentation, FMX.Types, FMX.StdCtrls;

type
  P_Get = procedure; safecall;
  TfrmGetForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var frmGetForm: TfrmGetForm;

implementation
{$R *.fmx}

procedure TfrmGetForm.Button1Click(Sender: TObject);
var  hDll:HMODULE;
       F_Get:P_Get;
begin
   if(hDll=0) then
    begin
     hDll:=LoadLibrary('evTestForm.dll');
     F_Get := P_Get(GetProcAddress(hDll,'Get_F'));
     F_Get;
     FreeLibrary(hDll);
     hDll:=0;
    end;
end;

end.

Dll  ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
library evTestForm;
uses
  FMX.Dialogs;

{$R *.res}
procedure Get_F;  safecall;
begin
 ShowMessage('+++');
end;

exports   Get_F;

begin
end.

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Если заменю  FMX.Dialogs; на  VCL.Dialogs; приложение закрывается без AV. 

typedef struct ISciterAPI {
  UINT version;
  LPCWSTR SciterClassName(void);
  UINT SciterVersion(BOOL major);
};
typedef ISciterAPI* LPSciterAPI;

В Delphi я все оформляю так:

type
  PSciterAPI = ^ISciterAPI;
  ISciterAPI = packed record
    version: UINT;
    SciterClassName: function(): LPCWSTR; // LPCWSTR - PWideChar;
    SciterVersion: function(major: Integer): UINT; // Использовал до этого BOOL, но наткнулся на статью, где рассказывалось о том, что он немного странно работает, мол BOOL false = 0, а BOOL true = -1; Поэтому напрмиер функция SciterVersion у меня не работала правильно, но при использовании Integer все стало нормально работать.
  end;

Но, как я уже сказал ранее - только некоторые функции работают, остальные падают с исключением ACCESS VIOLATION.

Почему так может быть?

P.S: Единственный пока рабочий для меня вариант - написание отдельной библиотеки, которая выносит все эти функции в экспорт, соответственно их теперь можно вызывать непосредственно из самой библиотеки, минуя ISciterAPI, но минусы такого подхода в том, что эта библиотека по сути является посредником между программой на Delphi и Sciter...

procedure CreateHD;
begin
  FormHD := TFormHD.Create(nil);
  FormHD.Caption := 'HD';
  FormHD.Show;
end;

форма создаётся, далее вызываю функцию закрытия и уничтожения формы FM

procedure CloseHD;
begin
  FormHD.Close;
  FreeAndNil(FormHD);
end;

Но при попытке выгрузить dll приложение зависает.

Возможно уничтожение формы FM как-то отличается от VCL и нужно что-то вызвать ещё кроме FreeAndNil или проблема в другом?

(dll и приложение написаны в Delphi XE6)

Приложение.zip

дублирую тестовый пример (не мой)

Form from DLL.rar

Есть проблема, с которой не могу разобраться уже на протяжении какого-то времени.

Суть проблемы.

Создаю dll библиотеку и сую туда форму со своим функционалом (Delphi, RAD Studio XE5). Динамически подгружаю в приложение и по сути всё работает, но... Когда же я хочу выгрузить приложение я получаю, либо ряд ошибок AV, либо зависание всего приложение при выполнении FreeLibrary, либо неизвестную мне ошибку "DXGI ERROR: CreateDXGIFactory cannot be called from DllMain. [ MISCELLANEOUS ERROR #76: ]".

Так же не могу понять, как передать Handle приложения в библиотеку (в VSL это было довольно просто).

К сожалению никакой информации по данным вопросам я не смог найти, кроме не больших вырезок со своими недочётами.

Прошу вас помочь в решении данных проблем.

Большое спасибо.

С уважением, Ethernet.

Что имею в данный момент:

1. Вызываем форму из dll - ОК
2. Форма появилась. Закрываем вызванную форму - ОК
3. Закрываем приложение и получаем ошибку - FAIL
4. Так же не понятный вопрос с Application. Handle в Firemonkey, класс TApplication есть, проперти Handle - нет. Пока поставил nil

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

Проект прилагается. XE6. Спасибо. 

Form from DLL.zip

Есть DLL написанная на C++. В ней есть экспортная функция.

int getStatusFlags (int *fatalStatus, int *currentFlagsStatus, int *documentStatus);

импортирую функцию следующим способом 

  function getStatusFlags (var fatalStatus, currentFlagsStatus, documentStatus:Integer):integer; stdcall; external DllName;

В режиме компиляции Debug все идеально, но если откомпилировать в Release то приложение наглухо виснет при вызове функции.

Подозреваю что я неправильно импортирую функцию и происходит неправильная работа с памятью. Пробовал менять тип передаваемых переменных на PInteger с передачей указателей, но все равно падает.

Кто сталкивался. Помогите!