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.