FMX und VCL verbinden

[Minz3]

Puh also für mich wird's langsam schon unübersichtlich.

Zitat:

Ähm, das ist ja genau das was deine Funktion in der DLL macht. Sie liefert den Boolean Wert "False" retour. Funktioniert also alles wie erwartet.

Tatsächlich tut sie dahingehend das, was sie soll. Habe jetzt eine procedure geschrieben, welche nur das FMX Formular aufruft, um mal weg von der function zu kommen.

Zitat:

Betreffs dem "überladen" hast du wohl nun diese Funktion 2x in deinem Code. Poste mal deinen aktuellen Quellcode, wenn du es nicht selber siehst. Mach am besten eine eigene Unit mit den ganzen Funktionen/Proceduren der DLL und dann hast im Interface die Definitionen und im der Implementation die Verbindung zu externen DLL.

Cool das du das ansprichst! Das habe ich in dem einen Tutorial auch gesehen, aber nicht ganz verstanden, warum man das so machen sollte. Ich sehe da keinen wirklichen Vorteil. Dient das "nur" zur Übersicht oder ist es damit einfach besserer zu arbeiten? An der Umsetzung sitze ich jetzt, bis dahin hänge ich mal den aktuellen QuellCode ran.

DLL:

Delphi-Quellcode:

library ProjectDLL;

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

{$R *.res}

exports
  //TestFunc,
  TestProc;

begin
end.

FMX:

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
  TFMXForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    TrackBar1: TTrackBar;
    ImageViewer1: TImageViewer;
    Label1: TLabel;
    Calendar1: TCalendar;
    CalloutRectangle1: TCalloutRectangle;
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  FMXForm1: TFMXForm1;

function TestFunc : Boolean; export;
procedure TestProc; export;

implementation

{$R *.fmx}

procedure TestProc;
begin
  FMXForm1.Show;
end;

function testfunc : Boolean;
begin

  result := false;

end;

end.

Main Unit:

Delphi-Quellcode:

unit UnitMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB,
  Vcl.StdCtrls, Vcl.ExtCtrls, Datasnap.DBClient, Vcl.Grids, Vcl.DBGrids, Vcl.Mask,
  Vcl.DBCtrls, Datasnap.Provider, UnitDBM, UnitRB;

type
  TForm1 = class(TForm)
    DBGrid2: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Button2: TButton;
    TOPcount: TEdit;
    Label4: TLabel;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TTestFunc = function : Boolean;
  TTestProc = procedure;

var
  Form1: TForm1;
  //TestFunc: TTestFunc = nil;
  //TestProc: TTestProc;
  DllHandle: THandle;

implementation

{$R *.dfm}

function TestFunc : Boolean; external 'ProjectDLL.dll' name 'TestFunc';
procedure TestProc; external 'ProjectDLL.dll' name 'TestFunc';

procedure TForm1.Button2Click(Sender: TObject);
begin
  TestProc;
end;

procedure TForm1.DBGrid2DblClick(Sender: TObject);
begin
  {with UnitDBM.Form2 do
    ShowMessage(ClientDataSet1.FieldByName('payment_date').AsString);}
end;

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

finalization
if DLLHandle <> 0 then
  FreeLibrary(DLLHandle);}
end.

ProjectDLLInterface

Delphi-Quellcode:

unit ProjectDLLInterface;

interface

procedure TestProc;

implementation

function TestFunc : Boolean; external 'ProjectDLL.dll' name 'TestProc';
procedure TestProc; external 'ProjectDLL.dll' name 'TestProc';

end.

So für zwischendurch: Danke euch für die Hilfe! Ich konnte schon einiges lernen.

[Minz3]

Noch eine Frage zum Verständnis:

Die Art und Weise, wie das ganze funktioniert ist doch folgende:

Die Main Unit beinhaltet die VCL Form und die Grundfunktionen, die FMX Unit beinhaltet die FMX Form und FireMonkey Funktionen. Die FMX Unit gibt die Prozeduren und Funktionen über den Befehl procedure TestProc; export; an die DLL frei.

In der DLL befinden sich die Informationen, auf welche Unit zugegriffen wird (für die Quellfunktionen) und welche Funktionen/Prozeduren exportiert werden.

In der Main Unit werden dann die Funktionen mit Hilfe der DLL geladen und aufgerufen. Entweder per Initialisierung oder als Funktionsdeklaration.

Delphi-Quellcode:

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

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

procedure TestProc; external 'ProjectDLL.dll' name 'TestProc'; An welcher Stelle kommt dann die "ProjectDLLInterface" Unit von Rolf zum Einsatz?

Habe ich das so richtig verstanden oder hab ich was falsch wiedergegeben?

[Minz3]

Kleines Update:
Ich teste ja fleißig und probiere verschiedene Methoden.

Mir ist aufgefallen, dass bei den beiden Zugriffsmöglichkeiten auf die DLL bei verschiedenen Adressen die Zugriffsverletzung eintritt.

Bei der ersten Variante über

Delphi-Quellcode:

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

finalization
if DLLHandle <> 0 then
  FreeLibrary(DLLHandle)

kommt der Fehler:
"Zugriffsverletzung bei Adresse 047E30E3 in Modul 'ProjectDLL.dll'. Lesen von Adresse 000000B0"

Während bei der Methode:
procedure TestProc; external 'ProjectDLL.dll' name 'TestProc'; die Meldung:
"Zugriffsverletzung bei Adresse 02A630E3 in Modul 'ProjectDLL.dll'. Lesen von Adresse 000000B0"
kommt.

[DeddyH]

Du solltest das Formular in der DLL vielleicht besser erst einmal erzeugen, bevor Du es anzeigst.

[Minz3]

Zitat von DeddyH:

Du solltest das Formular in der DLL vielleicht besser erst einmal erzeugen, bevor Du es anzeigst.

Hoffe das hab ich richtig umgesetzt (bin ja noch Neuling im Umgang mit DLL Files)

Unit1FMX.pas (befindet sich im DLL Projekt)

Delphi-Quellcode:

procedure TestProc;
begin
  FMXForm1 := TFMXForm1.Create(Application);
  FMXForm1.ShowModal;
end;

Ich vermute aber, dass ich da einen Fehler gemacht habe.

[DeddyH]

Versuch es mal so (die globale Variable kannst Du eigentlich löschen):

Delphi-Quellcode:

procedure TestProc;
var
  frm: TFMXForm1;
begin
  frm := TFMXForm1.Create(nil);
  try
    frm.ShowModal;
  finally
    frm.Free;
  end;
end;

[Minz3]

Nope das hat leider auch nicht geholfen, sieht aber auf jeden Fall richtiger aus.

Ich habe die Vermutung, dass der Fehler weiter vorne liegen muss, also habe ich den Zugriff auf die DLL vielleicht nicht richtig umgesetzt.