FMX und VCL verbinden

[Minz3]

Huhu Gemeinde!

Ich probiere seit einigen Tagen diverse Möglichkeiten durch, um innerhalb einer VCL Anwendung FireMonkey zum laufen zu bringen. Letztendlich bin über Stephen Ball und später über Harry Stahl auf die Methode der Einbindung via DLL Files gekommen. Das Prinzip klingt gut nur an der Umsetzung hapert es.
Ich schaffe es immer wieder eine access violation zu erzeugen (Screenshot im Anhang).

Hoffentlich habe ich an alles gedacht, sodass ihr euch ein gutes Bild machen könnt. Ziel ist es wie gesagt für mich im ersten Schritt aus dem VCL Formular das FMX Formular zu öffnen. Vielleicht bin ich da schon irgendwie auf dem falschen Dampfer. ^^

Ich danke euch schon mal für alle Vorschläge und Hinweise.

Die Ordner-Struktur meines Projekts sieht so aus:

Projektpfad
C:\Users\USERNAME\Documents\Embarcadero\Studio\Pro jekte\Neuer Ordner
Debugpfad (inklusive exe und DLL)
C:\Users\USERNAME\Documents\Embarcadero\Studio\Pro jekte\Neuer Ordner\Win32\Debug

Die DLL ist ganz wie im Beispiel von Harry Stahl aufgebaut:

Delphi-Quellcode:

library ProjectDLL;

uses
  System.SysUtils,
  System.Classes,
  FMX.Forms,
  Unit1FMX in 'Unit1FMX.pas' {Form1};

{$R *.res}

exports
  TestFunc;

begin
end.

Die FMX Form beinhaltet lediglich nur ungenutzte Elemente, damit es nicht ganz so leer ist. Die Funktion ist auch eher ein Dummy:

Delphi-Quellcode:

unit Unit1FMX;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Filter,
  FMX.Effects, FMX.Filter.Effects, FMX.Surfaces, FMX.StdCtrls, FMX.Layouts,
  FMX.ExtCtrls, FMX.Controls.Presentation, FMX.Objects, FMX.Calendar;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    TrackBar1: TTrackBar;
    ImageViewer1: TImageViewer;
    Label1: TLabel;
    Calendar1: TCalendar;
    CalloutRectangle1: TCalloutRectangle;
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

function testfunc : Boolean; export;

implementation

{$R *.fmx}

function testfunc : Boolean;
begin
  result := false;
end;

end.

Jetzt kommen wir zur VCL Form. Ich werde mich hier auf die wesentlichen Funktionen beschränken:

Delphi-Quellcode:

{...Unit, Interface, Uses, TForm1...}

type
  TTestFunc = function : Boolean;

var
  Form1: TForm1;
  TestFunc: TTestFunc = nil;
  DllHandle: THandle;

implementation

{$R *.dfm}
{...Funktionen...}
procedure TForm1.Button2Click(Sender: TObject);
begin
  TestFunc;
end;

{...Funktionen...}

initialization
  if DllHandle = 0 then begin
    DllHandle := LoadLibrary('ProjectDLL.dll');
    if DllHandle > 0 then begin
     @TestFunc := GetProcAddress(DllHandle,
       'TestFunc');
    End else begin
      MessageDlg('TestFunc steht nicht zur Verfügung',
        mtInformation, [mbOK], 0);
    end;
end;

finalization
if DLLHandle <> 0 then
  FreeLibrary(DLLHandle);

end.