Dynamische Packages - Forms anzeigen - Leak

[nahpets]

Zitat von Sequitar:

Result wurde am anfang auf false gesetzt.
Wenn die form erfolgreich geladen wird, soll der Rückgabewert ja "true" sein. Die form soll ja meist nur einmal geladen werden (und modal angezeigt).


OK, ich seh grad: Result müsste am Anfang auf True initialisiert werden,um sinn zu machen.

Zitat von Zoot:

Zitat von Sequitar:

Result := Not(Result);

Lustig.
nach mehmaligen Aufrufen weiß keiner mehr, was Result nun ist.

Das glaube ich jetzt nicht wirklich.

Result := Not(Result) , was theoretisch den Wert Result umkehren könnte, steht immer hinter dem Werfen einer Exception und wird von daher im realen Leben vermutlich nie ausgeführt. (oder hab' ich da was übersehen?)

Dashier verstehe ich nicht:

Delphi-Quellcode:

 With TComponentClass(FormClass).Create(Nil) As TCustomForm Do
            Try
              If Modal Then
                Showmodal
              Else
                Show;
            Finally
              Free;
            End;

Du erstellst ein Formular, dann entscheidest Du, ob es Modal oder nicht angezeigt werden soll.
Bei ShowModal dürfte das auch funktionieren, wenn im Finally das Free aufgerufen wird.

Wie ist das denn beim Show? Bleibt das Programm da quasi im Quelltext stehen und wartet, bis das Formular geschlossen wird, bevor im Finally das Free aufgerufen wird?

Hab's gerade mal unter Delphi 7 ausprobiert: Das auf diese Art und Weise erstellte Formular bekomme ich nicht wirklich zu sehen, ein kurzes Flimmern, bei dem man erahnen kann, dass da irgendwo ein Formular angezeigt werden könnte, ja, aber ein benutztbares Formular? Fehlanzeige.

Automatisch "zerstört" werden könnte es nur, wenn im Create statt Nil ein Parent angegeben wird. Wenn niemand weiß, wem das Formular gehört, wer soll denn dann wissen, wann es "beseitigt" werden soll?

[Sequitar]

Zitat:

Wie ist das denn beim Show? Bleibt das Programm da quasi im Quelltext stehen und wartet, bis das Formular geschlossen wird, bevor im Finally das Free aufgerufen wird?

Hab's gerade mal unter Delphi 7 ausprobiert: Das auf diese Art und Weise erstellte Formular bekomme ich nicht wirklich zu sehen, ein kurzes Flimmern, bei dem man erahnen kann, dass da irgendwo ein Formular angezeigt werden könnte, ja, aber ein benutztbares Formular? Fehlanzeige.

Das ist mir auch schon aufgefallen, daher habe ich bisher alle Formulare modal erstellt. Wusste nicht wie man das ändert (ausser das formular nicht direkt wieder zu zerstören, was aber auch nichts daran ändert, was nahpets beschreibt: Kurzes Flackern und sonst nichts)


Das Formular könnte theoretisch von unterschiedlichen Anwendungen (oder anderen Formularen) geladen werden. Habe daher jetzt einen "parent" parameter eingefügt, der dann für die Freigabe zuständig sein muss und dem ich als Result die erstellte form zur verfügung stelle:

Delphi-Quellcode:

Function Tplgfrm.Loadform(Parent: Tcomponent; Form: String; Modal: Boolean)
    : TCustomForm;
  Var
    FormClass: Tformclass;
  Begin
    Try
      Form := 'T' + Form;
      FormClass := TFormClass(GetClass(Form));
      If FormClass = Nil Then
        Raise Exception.Create('The form "' + Form + '" is not available.')
      Else
        Begin
          Result := TComponentClass(FormClass).Create(Parent) As TCustomForm;
          With Result Do
            Try
              If Modal Then
                Showmodal
              Else
                Show;
            Finally
              // Free;
            End;
        End;
    Except
      Raise Exception.Create('Form could not be loaded.');
    End;
  End;


//Aufruf

Form := Loadform(Application, 'Formname', True);
Form.Free;

[nahpets]

Ich versuchs mal naiv:

Du hast da Deine FormClass.

Wie wäre es, wenn Du die Funktion von diesem Typ machst?

Sowas in der Art:

Delphi-Quellcode:

Function Tplgfrm.Loadform(Parent: Tcomponent; Form: String; Modal: Boolean) : Tformclass;
  Begin
    Try
      Form := 'T' + Form;
      Result := TFormClass(GetClass(Form));
      If not Assigned(Result) Then
        Begin
          Raise Exception.Create('The form "' + Form + '" is not available.');
        End
      Else
        Begin
          With TComponentClass(Result).Create(Parent) As TCustomForm Do
            Try
              If Modal Then
                Showmodal
              Else
                Show;
            Finally
              // Free;
            End;
        End;
    Except
      Raise Exception.Create('Form could not be loaded.');
    End;
  End;

Im Programm wäre dann eventuell sowas möglich:

Delphi-Quellcode:

Procedure irgendwas;
Var
  FormClass : TFormClass;
begin
  FormClass := plgfrm.Loadform(Self,'FromWieAuchImmer', True);

  if Assigned(FormClass) then begin
    ...
    FormClass.Close;
    FormClass.Free;
  end;
end;

Wobei, das Anzeigen des Formulares würd' ich aus der Funktion rausnehmen und im aufrufenden Programm machen, dann kannst Du besser entscheiden, ob das Formular direkt nach dem ShowModal freigegeben wird oder nicht.

Bei 'nem Show kannst Du die Freigabe dann auch beim Beenden des Programmes machen (oder an anderer, sinnvoller Stelle), die variabel FormClass muss dann nur an entsprechender Stelle deklariert werden und nicht innerhalb der Prozedur, die das Formular "anfordert".

[Sequitar]

Das mit dem ausgelagerten Anzeigen ist eine gute Idee.
Danke.
Hilft allerdings noch nicht gegen das problem, dass non-modale Forms nicht korrekt angezeigt werden.

Und das eigentliche Problem, dass durch die Klassenregistration Speicher geleakt zu werden scheint.

Delphi-Quellcode:

Initialization

  Registerclass(TTestform); // hier

Finalization

  Unregisterclass(TTestform);

Zitat von nahpets:

Ich versuchs mal naiv:

Du hast da Deine FormClass.

Wie wäre es, wenn Du die Funktion von diesem Typ machst?

Sowas in der Art:

Delphi-Quellcode:

Function Tplgfrm.Loadform(Parent: Tcomponent; Form: String; Modal: Boolean) : Tformclass;
  Begin
    Try
      Form := 'T' + Form;
      Result := TFormClass(GetClass(Form));
      If not Assigned(Result) Then
        Begin
          Raise Exception.Create('The form "' + Form + '" is not available.');
        End
      Else
        Begin
          With TComponentClass(Result).Create(Parent) As TCustomForm Do
            Try
              If Modal Then
                Showmodal
              Else
                Show;
            Finally
              // Free;
            End;
        End;
    Except
      Raise Exception.Create('Form could not be loaded.');
    End;
  End;

Im Programm wäre dann eventuell sowas möglich:

Delphi-Quellcode:

Procedure irgendwas;
Var
  FormClass : TFormClass;
begin
  FormClass := plgfrm.Loadform(Self,'FromWieAuchImmer', True);

  if Assigned(FormClass) then begin
    ...
    FormClass.Close;
    FormClass.Free;
  end;
end;

Wobei, das Anzeigen des Formulares würd' ich aus der Funktion rausnehmen und im aufrufenden Programm machen, dann kannst Du besser entscheiden, ob das Formular direkt nach dem ShowModal freigegeben wird oder nicht.

Bei 'nem Show kannst Du die Freigabe dann auch beim Beenden des Programmes machen (oder an anderer, sinnvoller Stelle), die variabel FormClass muss dann nur an entsprechender Stelle deklariert werden und nicht innerhalb der Prozedur, die das Formular "anfordert".

[bepe]

Das mit dem RegisterClass ist seltsam. Wie hast du deine Methode denn getestet wenn das Formular gar nicht registriert ist?

Aber mach mal im OnClose von deiner BPL Form Action := caFree; rein. Dann wird das Form beim Schließen freigegeben und das mit dem Leak sollte sich erledigt haben.

[Sequitar]

Zitat von bepe:

Das mit dem RegisterClass ist seltsam. Wie hast du deine Methode denn getestet wenn das Formular gar nicht registriert ist?

Aber mach mal im OnClose von deiner BPL Form Action := caFree; rein. Dann wird das Form beim Schließen freigegeben und das mit dem Leak sollte sich erledigt haben.

Naja, ich kann natürlich die Form nur anzeigen lassen, wenn sie auch registriert ist. Ansonsten
wird ja hier

Delphi-Quellcode:

    Form := Loadform(Application, 'Testform', True);
                  If Form <> Nil Then
                    With Form Do
                      Begin
                        Showmodal; // Leaks 176 bytes
                        Free;
                      End;

auch an entsprechender Stelle abgebrochen.


Da es sich bei einer Testform um ein komplett leeres (neu erstelltes) Formular ohne jeglichen code handelt, das nichts ausführt und keine komponenten hat, außer der Form selbst, dachte ich dass es nur an der Registierung hängen kann...Denkfehler?

Anmerkungen:

- Auch wenn ich bei bestehender Registrierung den gesamten Teil (..Loadform...) auslasse (i.e check ob loadform NIL ergibt) und die Form nicht lade, gibts ein Leck.

- Wenn die Form mehrmals nacheinander aufgerufen und wieder geschlossen wird, bleibt die Leckgröße konstant


Die Action:=cafree festzulegen, hat leider keinen Effekt gezeigt.

[himitsu]

Und wieviel "Leak" wird es, wenn du die Form 100 Mal anzeigen lässt?

[Sequitar]

Übrigens verringert sich das Leak bei Weglassen von Registerclass in der Unit der einzelnen Forms. (Natürlich ist das notwendig um die Klassen zu identifizieren, wenn ich dynamische Packages nutze). Irgendein Workaround / Tip hierfür?