FMX und VCL verbinden

[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.

[DeddyH]

Zitat:

Delphi-Quellcode:

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

Wieso lädst Du die DLL noch einmal, wenn sie bereits erfolgreich geladen wurde?

[Minz3]

Da hab ich gepennt. Danke für den Hinweis! Der Schritt ist natürlich überflüssig.