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?