Komplettes Projekt in DLL auslagern

[PierreB]

Moin,

ich hab da ein mehr oder weniger kompliziertes Problem:

Ich will ein fertiges Programm (besteht circa aus 4 Forms) in eine DLL auslagern, da es seinen Dienst als Plugin in einem anderen Programm tun soll. Also kein Fremdprogramm, ich hab die Sourcen zu dem Programm. Dies soll nun komplett in die DLL wandern um es dann aus dem anderen Programm heraus aufzurufen.

Nur leider sind meine Kenntnisse im Bezug auf DLL und Plugins extrem begrenzt, weshalb ich auf eure Hilfe aufbaue. Die Suchfunktion brachte mehr oder weniger gute Threads zum Vorschau, wo ich zwar ungefähr erkennen konnte wie man ein neues Form in einer DLL erstellt, jedoch möchte (kann) ich nicht alles neuprogrammieren, sondern möchte es wie gesagt nur in die DLL "verschieben". hat da jemand ne Ahnung wie man das einfach hinbekommen kann ?

Danke,

[Matze]

Hi,

ich weiß nur, dass sich Firmulare in DLLs nicht gut machen. Es soll irgendwelche Kompatibilitätsprobleme o.ä. geben (Habe ich hier irgendwo einmal gelesen). Für das Auslagern von Formularen sind Packages geeignet, doch musst du einige VCL Packages mit ausliefern.

[mirage228]

Hi,

Erstmal könntest Du natürlich Runtime packages verwenden, aber um mal auf das Problem hier einzugehen ... ;)

Du bindest einfach die Form-Unit in die DLL ein und rufst das Formular dynamisch auf.
Du kannst dann natürlich nicht die globalen Form Variablen benutzen, du musst die anderen Forms auch dynamisch erstellen.

Beispiel:

Delphi-Quellcode:

library Bla;

uses
  uDeineFormUnit;

function ShowForm(): Integer; stdcall;
begin
  with TDeinForm.Create(nil) do
  try  
    Result := ShowModal();
  finally
    Free;
  end;
end;

exports
  ShowForm;

begin
end.

mfG
mirage228

[PierreB]

Zitat:

Du bindest einfach die Form-Unit in die DLL ein und rufst das Formular dynamisch auf.
Du kannst dann natürlich nicht die globalen Form Variablen benutzen, du musst die anderen Forms auch dynamisch erstellen.

:shock: So einfach geht das ? Ich werd das ausprobieren, danke erstmal.

@Matze: Danke für den Hinweis, mal gucken ob ich dazu noch was finde.

[PierreB]

Moin,

also so wie von mirage beschrieben geht es erstmal wunderbar (mit Form1), jetzt hab ich nur so meine Probleme mit dem zweiten Form. Auf Form1 liegt ein Button, der folgendes Ereignis aufruft:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i : Integer;
begin
  with TchooseFont.Create(nil) do
  try
     if ShowModal() = mrYes then
     begin
       form1.schriftart.Text := '';
       if Listbox2.Items.Count > -1 then
        begin
         if Listbox2.Items.Count = 1 then Form1.schriftart.text := form1.schriftart.text + ' ' + Listbox2.Items[0] else
          begin
           for i := 0 to Listbox2.Items.Count-1 do
           Form1.schriftart.text := form1.schriftart.text + ' ' + Listbox2.Items[i] + ',';
          end;
        Edit1.Text := '';
        if not Listbox2.Items.Count < -1 then Form1.RichEdit1.Font.Name := Listbox2.Items[0] else Form1.RichEdit1.Font.Name := 'Tahoma';
        end;
     end
  finally
    Free;
  end;
end;

ChooseFont ist in diesem Fall Form2, auf dieser Form liegt ein Button dessen ModulResult Eigenschaft ich auf "mrYes" gesetzt hab. Klicke ich nun auf den Button im Form1, wird Form2 auch korrekt erstellt und läuft. Klicke ich nun auf den Button auf Form2, werden die Werte aus der Listbox auf Form2 nicht wie erwartet ins "schriftart"-Edit auf Form1 übertragen, sondern ich bekomme ne böse Fehlermeldung a'la "
Zugriffsverletzung bei Adresse 0038A72B in Modul 'test.dll'. Lesen von Adresse 00000360.". Dies allerdings nur wenn ich die Forms aus der DLL lade, kompiliere ich das Projekt ganz normal als eigenständige Exe geht alles problemlos. Weiß jemand wo der Fehler liegt ?

Danke,

[mirage228]

Hi,

Du benutzt die globale Variable Form1, das ist nicht gültig in diesem Kontext (da dein Form ja nicht darin verwendet ist sondern wie im Code oben anders erstellt wird).
Da du ja eh in TForm1 bist gerade kannst Du einfach "Self" nehmen oder Form1. ganz weglassen.

mfG
mirgae228

[PierreB]

Vielen Dank, jetzt gehts fehlerfrei. :cheers:

[PierreB]

Argh, jetzt bekomme ich beim Beenden des Programmes das die DLL einbindet so einige Runtime-Errors, unter anderem:

Zitat:

---------------------------
**************.exe - Fehler in Anwendung
---------------------------
Die Anweisung in "0x00b43192" verweist auf Speicher in "0x01292208". Der Vorgang "read" konnte nicht auf dem Speicher durchgeführt werden.
Klicken Sie auf "OK", um das Programm zu beenden.
---------------------------
OK
---------------------------

Und

Zitat:

---------------------------
Error
---------------------------
Runtime error 216 at 0051F1A9
---------------------------
OK
---------------------------

Weiß jemand woran das liegt und wie man es aufheben kann ?

[PierreB]

Das Problem an dem Problem ist, dass die Fehler nur kommen wenn ich die DLL in das bereits fertige Projekt einbinde. Erstelle ich ein neues Projekt und binde die DLL ein geht alles fehlerfrei, es muss also an dem bestehenden Projekt liegen. Leider habe ich keine Ahnung wo der Fehler liegen kann, keine ne Idee ? :(

[Balu der Bär]

Bei einem anderen Projekt bekomme ich beim Beenden des Programmes nachdem ich ein Form aus einer DLL aufgerufen habe ebenfalls obige zwei Meldungen. Hat jemand eine Idee woran das liegt und wie man es vermeiden kann? Besten Dank.