Controls in DLL erzeugen und in Controls anzeigen

[Helmi]

Hallo,

ich hab mir letztens mal überlegt, ob es möglich wäre, eine DLL zu erstellen, in der eine Procedure ein Control erstellt, dass dann über Übergabe-Variablen an ein Control der MainForm übergeben werden kann.

Meine DLL schaut so aus (testweise):

Delphi-Quellcode:

library Project2;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }


uses
  SysUtils,
  Classes,
  StdCtrls,
  Controls;

{$R *.res}

procedure DoEdit(Komponente: TWinControl; Links, Oben: Integer); stdcall;
var
  neues_Edit: TEdit;

begin
  neues_Edit := TEdit.Create(nil);

  with neues_Edit do
    begin
      Parent  := Komponente;
      Left    := Links;
      Top     := Oben;
      Width   := 250;
//      Height  :=

      Enabled := true;
      Visible := true;
    end;
end;

exports
  DoEdit;

begin
end.

Meine MainForm so:

Delphi-Quellcode:

//DLL: Functions und Procedures
procedure DoEdit(Komponente: TWinControl; Links, Oben: Integer); stdcall;
  external 'Project2.dll';



procedure TForm1.Button1Click(Sender: TObject);
begin
  DoEdit(Panel1, 10, 10);
end;

Nur wenn ich auf den Button klicke, bekomm ich folgenden Fehler:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: 'TFont kann nicht zu TFont zugewiesen werden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------


Weiss jemand warum?

OK, ich gib mich geschlagen, etwas quickAndDirty.

[Bernhard Geyer]

Zitat:

Zitat von Helmi

Weiss jemand warum?

Ja. Ohne Laufzeitpackages wird das nichts. Entweder du nimmst Laufzeitpackages so das TObjekt auf Exe auch wirklich TObject aus DLL ist (wie oft habe ich denn Satz wohl schon geschrieben :gruebel:). Ansonsten hast du in der Exe und DLL zwei vollkommen unabhänige Klassenbibliotheken.

[Namenloser]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von Helmi

Weiss jemand warum?

Ja. Ohne Laufzeitpackages wird das nichts. Entweder du nimmst Laufzeitpackages so das TObjekt auf Exe auch wirklich TObject aus DLL ist (wie oft habe ich denn Satz wohl schon geschrieben :gruebel:). Ansonsten hast du in der Exe und DLL zwei vollkommen unabhänige Klassenbibliotheken.

Soviel ich weiß wird doch nicht das Objekt selber, sondern sein Handle übergeben, also müsste es doch gehn. Ich hatte allerdings bei einem ähnlichen versuch den gleichen Fehler. :wiejetzt:

[Sunlight7]

@Bernhard Geyer: Sorry, muß Dich enttäuschen, das tritt auch in Delphi Versionen auf, in denen es noch keine Packages gibt.

@Helmi: Wenn Du vorher ParentFont auf False stellst, kannst Du den Fehler umgehen.

Doch ich hab einiges herum versucht, das neue Edit ist zwar (scheinbar, aber nicht wirklich) auf der Form, und ich bekomme es nicht hin, das es sichtbar wird :gruebel:

[Bernhard Geyer]

Zitat:

Zitat von Sunlight7

@Bernhard Geyer: Sorry, muß Dich enttäuschen, das tritt auch in Delphi Versionen auf, in denen es noch keine Packages gibt.

Dort besteht gar keine sichere Möglichkeit das zu umgehen.

Zitat:

Zitat von Sunlight7

@Helmi: Wenn Du vorher ParentFont auf False stellst, kannst Du den Fehler umgehen.

Löst aber das Problem nicht das es an allen anderen möglichen stellen krachen wird.

Zitat:

Zitat von NamenLozer

Soviel ich weiß wird doch nicht das Objekt selber, sondern sein Handle übergeben, also müsste es doch gehn. Ich hatte allerdings bei einem ähnlichen versuch den gleichen Fehler. :wiejetzt:

So wie die Funktionsdefinition gemacht wurde wird hier die Referenz auf ein TWinControl übergeben und nicht nur ein Windows-Handle.
Das ist auch eine Möglichkeit auf Win32-API Ebene sich zu begeben und mit Handels zu arbeiten. Man muß "nur" solche kleinigkeiten wie für die Tabulator-Reihenfolge eine eigen Lösung finden.

[Sunlight7]

Zitat:

Zitat von Bernhard Geyer

Löst aber das Problem nicht das es an allen anderen möglichen stellen krachen wird.

Doch :mrgreen:

Es kracht niergends :???:
Nicht mal beim beenden :!:

Ich kann mir das Edit rüber holen, damit herumspielen, nur auf die Form bekomme ich es nicht.

Edit: Heureka!
Jemand an der Lösung (zumindest mit Edit's funkt's) Interesse?
Wenn ja, schreib ich das leserlich um :mrgreen:

[Bernhard Geyer]

Zitat:

Zitat von Sunlight7

Zitat:

Zitat von Bernhard Geyer

Löst aber das Problem nicht das es an allen anderen möglichen stellen krachen wird.

Doch :mrgreen:

Es kracht niergends :???:
Nicht mal beim beenden :!:

Dann nimm mal einen neuere Delphi-Version für deine Exe ohne die DLL neu mit dieser Delphi-Version zu kompilieren. Dann sollte es sehr schnell krachen.

[Sunlight7]

Das versteht sich ja von selbst, jedoch war nicht die rede davon...
Man muss sich ja nicht extra Fehler basteln.



So, Helmi, hab mal das angehängt, das kannst Du mal Versuchen, ob Dir das zusagt :zwinker: bzw. noch weiter verbessern :mrgreen:

Grüßle!