DLL richtig beenden

[Tommy82]

Hallo,

zuerst mein Quelltext:

Delphi-Quellcode:

Procedure Artikel_Neu;
var
 Form_anlegen : TForm_Anlegen;
BEGIN
 Form_Anlegen := TForm_Anlegen.Create(NIL);
 Try
  Form_Anlegen.Showmodal;
 Finally
  Form_Anlegen.Release;
 End;
END;

Das klappt auch soweit ganz Prima, die Form wird aufgerufen, aber sobald ich die Form beenden will bekomme ich immer einen Fehler an Adresse "xy".
Ich habe es versucht mit "Form_Anlegen.Release" oder auch einfach nur mit Exit, mit "Form_Close" gehts auch net und mit Hide bleibt es ja immernoch da.
Wie beende ich nun das DLL Formular richtig ?

mfg

Tommy82

[RavenIV]

Versuch mal anstatt Form_Anlegen.Release; ein Form_Anlegen.Free;

[ste_ett]

Klassen werden mit "VarName.Free" freigegeben. :)

Prüfe, ob du im Programm und in der DLL die gleichen Aufrufkonventionen gesetzt hast (z.B. stdcall).

[Tommy82]

Hallo,

danke für die schnellen Antworten.

1) Habe jetzt mal das release gegen das Free getauscht.

Aufrufk. sind gleich (stdCall).

Der Fehler kommt immernoch. Welchen befehl gebe ich dazu, dass er das Form schließt ? Bei Form_anlegen.free tut sich nix, rest wieder Fehler.

mfg

Tommy82

[Tommy82]

Keiner eine Lösung ?

mfg

Tommy82

[ste_ett]

Erzeugst du irgendwelche Komponenten auf deinem Formular, die nicht wieder freigegeben werden?
Tritt der Fehelr auch auf, wenn du ein komplett neunes, leeres Formular anzeigst?

Geh mal mit dem Debugger durch und prüfe, an welcher Stelle der Fehler genau auftritt.

Beim "Free()"?
Beim "end;?"
Woanders?

[Robert Marquardt]

Wieso ist die Form ueberhaupt in einer DLL? Benutzt du ShareMem?

[toms]

Inwiefern hat dein Code mit "DLL richtig beenden" etwas zu tun?

[Tommy82]

Ich habe ein leeres Formular mal spaßeshalber benutzt, selbes Phänomen.

DLL (Aufruf des Formulars)

Delphi-Quellcode:

Procedure TestDll_Start;
var Form1 : TForm1;
BEGIN
 Form1 := TForm1.Create(NIL);
 Form1.ShowModal;
END;

exports
 TestDll_Start;

begin
end.

DLL (Beenden des Formulars)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Free;
end;

nach dem ich auf den Beenden Button geklickt habe, bekomm eich einen Adress-Fehler.

Schon probiert :

Delphi-Quellcode:

Procedure TestDll_Start;
var Form1 : TForm1;
BEGIN
 Form1 := TForm1.Create(NIL);
 Try 
  Form1.ShowModal;
 Finally
  Form1.Release;
 END;
END;

exports
 TestDll_Start;

begin
end.

.. aber das geht auch nicht.

Ich möchte das Formular gerne in eine DLL auslagern, da ich dieses Formular :
a) in mehreren Programmen verwenden möchte
b) ein Update des Formulars schneller möglich ist (ohne das Programm neu zu schreiben)

Nur sobald ich das Formular beende, bekomme ich immer : Zugriffsverletzung bei Adresse 0036D875 in Modul 'TestDll.dll'. Lesen von Adresse 00000000".

Wie kann ich nun das Formular beenden ohne einen Fehler zu bekommen?

mfg

Tommy82

[brechi]

Die Form kann sich doch nicht selbst freigeben. Und hast du mal ein leeres Formular benutzt mit dem Code den du vorher hattest. Also ShowModal + Form.free hintereinander?

[Tommy82]

Showmodal + Free klappt nicht hintereinander

[ste_ett]

Zitat:

Zitat von Tommy82

Showmodal + Free klappt nicht hintereinander

Warum sollte das nicht gehen?
Es ist ein lokales Objekt, was nach Beendigung der Funktion "ShowModal()" ohne Weiteres wieder freigegeben werden kann. :)

[Tommy82]

Delphi-Quellcode:

Procedure TestDll_Start;
var Form1 : TForm1;
BEGIN
 Form1 := TForm1.Create(NIL);
 Form1.ShowModal;
 Form1.Free;
END;

Formular bleibt offen, es tut sich nix
mfg

Tommy82

[Tommy82]

Delphi-Quellcode:

Procedure TestDll_Start;
var Form1 : TForm1;
BEGIN
 Form1 := TForm1.Create(NIL);
 Form1.Show;
 Form1.Free;
END;

da schließt sich das Fenster SOFORT wieder (flackert).

Aber wie baue ich es nun in die Form1 ein?

[MyRealName]

setz mal in den Optionen von exe und dll auf "build with runtime packages" und lass dort RTL und VCL drin stehen. das sollte dein Problem beheben, denn ohne arbeiten exe und DLL jeweils mit einer eigenen Kopie der VCL.
Ansonsten ist es kein problem, folgendes zu machen :

Delphi-Quellcode:

  form1 := TForm1.Create(Application);
  try
    form1.showmodal;
  finally
    form1.free;
  end;

[Tommy82]

Wenn ich auf das Formular einen Butten setze und den mit

Delphi-Quellcode:

Self.Release oder Self.Free

setze, dann klappt das auch.

mfg

Tommy82

[oki]

Hi,

das ist ein Code den ich in einer meiner Kompos zum aufruf eines Einstellungsfensters benutze. Klappt anstandslos:

Delphi-Quellcode:

procedure TBaseSeyControl.PropertyButtonClick(Sender: TObject);
var PropForm : TBaseSeyControlPropForm;
begin
   PropForm := TBaseSeyControlPropForm.Create(self);
   try
     LoadItemsinPropertyForm(PropForm);
     PropForm.ShowModal;
     LoadItemsfromPropertyForm(PropForm);
   finally
     FreeAndNil(PropForm);
   end;
end;

LoadItemsinPropertyForm und LoadItemsfromPropertyForm sind meine Methoden zum Laden und Lesen der Einstellungswerte. Also nicht dran stören.

Gruß oki

[Tommy82]

Auch interressant, werde ich mal bei der nächsten Gelegenheit testen.

mfg

Tommy82