Komplettes Formular speichern/laden

[Cind12]

Hi,

Ich habe ein Formular Form1, das in einem PageControl mit 11 Seiten über hundert Objekte besitzt.
Ich will von fast jedem dieser Objekte mehrere Eigenschaften in eine Datei speichern.

Deshalb habe ich mich dagegen entschieden jede wichtige Eigenschaft einzeln in einen Stream zu schicken. Stadtdessen will ich das gesamte Formular mit WriteComponent und ReadComponent über ein FileStream speichern und laden.

Ich weiß, dass dies wenig elegant ist, viel Speicher- und Ladezeit und Speicherplatz beansprucht. Allerdings wäre der Quellcode bei jeder Alternative die mir einfällt riesig. (es müsste ja von jedem Objekt jede zu speichernde Eigenschaft behandelt werden)

Ich habe bereits zwei Prozeduren zum Laden und Speichern geschrieben:

Delphi-Quellcode:

//Speichert Formular in Datei
procedure TForm1.Speichern1Click(Sender: TObject);
var Stream:TFileStream;
begin
//Eine TSaveDialog-Komponente wird erschaffen und gibt den Pfad vor
  SaveDialog1 := TSaveDialog.Create(self);
  if SaveDialog1.Execute then
  begin
    //Die TFileStream-Komponente wird erschaffen und versucht das Formular in eine Datei zu  schreiben 
    Stream := TFileStream.Create(SaveDialog1.FileName, fmCreate);
    try
      Stream.Position := 0;
      Stream.WriteComponent(Form1);
    finally
      Stream.free;
    end;
  end;
end;

Diese Prozedur scheint zu funktionieren, die Datei ist nach dem Speichervorgang am gewünschten Pfad zu finden.

Delphi-Quellcode:

//Lädt Formular aus Datei
procedure TForm1.Laden1Click(Sender: TObject);
var Stream : TFileStream;
begin
  //Eine TOpenDialog-Komponente wird erschaffen und gibt den Pfad zur zu ladenden Datei an
  OpenDialog1 := TOpenDialog.Create(self);
  if OpenDialog1.Execute then
  begin
    //Falls die Datei existiert wird die TFileStream-Komponente erschaffen
    if not FileExists(OpenDialog1.Filename) then exit;
    Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    try
    //Das Formular Form1 wird aus der Datei gelesen
      Stream.Position := 0;
      Form1 := Stream.ReadComponent(Form1) as TForm1;
    finally
      Stream.Free;
    end;
  end;
end;

Das Laden funktioniert nicht. Mit dem Fehler "A Component named [name] already exists" bricht das Programm ab.
[name] entspricht dabei der ersten Komponente von Form1, in dem Fall die PageControl1 : TPageControl Komponente.

Das die Komponente bereits existiert ist klar, sie soll jedoch mit der in der Datei gespeicherten Komponente überschrieben werden, um deren gespeicherte Eigenschaften zu übernehmen. Ich weiß jedoch nicht, wie ich dem Programm diese Überschreibung klarmachen kann.

Ich habe bereits viel gesucht und in diesem Forum einige ähnliche Probleme gefunden, jedoch ist mein Problem sehr konkret und dieser konkrete Fall ist bisher noch nicht aufgetaucht.

Ich hoffe ihr könnt mir entweder erklären, wie ich es schaffe das gesamte Formular, samt all seiner Unterkomponenten und deren Eigenschaften aus der Datei überschreibend zu lesen, oder mir eine Möglichkeit aufzeigen, viele Eigenschaften vieler Komponenten mit wenig Quelltext zu speichern und zu laden.

Mit freundlichen Grüßen
Cind12

[implementation]

Zitat von Cind12:

Das Laden funktioniert nicht. Mit dem Fehler "A Component named [name] already exists" bricht das Programm ab.
[name] entspricht dabei der ersten Komponente von Form1, in dem Fall die PageControl1 : TPageControl Komponente.

Das die Komponente bereits existiert ist klar, sie soll jedoch mit der in der Datei gespeicherten Komponente überschrieben werden, um deren gespeicherte Eigenschaften zu übernehmen. Ich weiß jedoch nicht, wie ich dem Programm diese Überschreibung klarmachen kann.

Ich habe bereits viel gesucht und in diesem Forum einige ähnliche Probleme gefunden, jedoch ist mein Problem sehr konkret und dieser konkrete Fall ist bisher noch nicht aufgetaucht.

Ich hoffe ihr könnt mir entweder erklären, wie ich es schaffe das gesamte Formular, samt all seiner Unterkomponenten und deren Eigenschaften aus der Datei überschreibend zu lesen, oder mir eine Möglichkeit aufzeigen, viele Eigenschaften vieler Komponenten mit wenig Quelltext zu speichern und zu laden.

Hallo,

zu dem Zeitpunkt, an dem du das Form lädst, existiert das alte noch. Nun könnte man überlegen, dies vielleicht einfach vorher freizugeben, aber schön wäre es nicht, da du der Methode das Self unter den Füßen wegreißen würdest. Du solltest daher lieber schauen, ob es nicht noch andere Möglichkeiten gibt, die bestehende Instanz einfach daraus ihre Daten bekommen zu lassen, statt eine neue zu erzeugen und die alte dadurch zu setzen.

[Cind12]

Hi,

danke für die schnelle Antwort!

Ich habe mir etwas ähnliches bereits gedacht, komischerweise bekomme ich die Fehlermeldung auch dann, wenn ich lokal für die Ladeprozedur ein neues Formular deklariere und dieses direkt aus dem Stream erschaffe:

Delphi-Quellcode:

procedure TForm1.Laden1Click(Sender: TObject);
var Stream : TFileStream; Form_neu : TForm1;
begin
  OpenDialog1 := TOpenDialog.Create(self);
  if OpenDialog1.Execute then
  begin
    if not FileExists(OpenDialog1.Filename) then exit;
    Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    try
      Stream.Position := 0;
      Form_neu := TForm1.Create(Stream.ReadComponent(Form1) as TForm1);
    finally
      Stream.Free;
    end;
  end;
end;

Wieder bricht es mit der Fehlermeldung "A Component named [name] already exists" ab. Ich bekomme die Daten also in gar kein Formular des Typs TForm1 geladen.

mit freundlichen Grüßen
Cind12

[Uwe Raabe]

Zitat von Cind12:

      Form_neu := TForm1.Create(Stream.ReadComponent(Form1) as TForm1);

Das geht so auch nicht! Dein Code macht in etwa folgendes:

Lese eine Komponente aus dem Stream und verwende als Instanz für die Daten Form1 (dabei werden aber alle Child-Komponenten nochmal erzeugt) und gib diese Instanz als Funktionswert zurück. Dann erzeuge ein neues TForm1 (TForm1.Create) mit der gerade gelesenenen Instanz als Owner und weise sie Form_neu zu. Form_neu ist jetzt aber leer und eine Child-Komponente von Form1.

So sollte es funktionieren:

Delphi-Quellcode:

Form_neu := Stream.ReadComponent(nil) as TForm1;

oder so:

Delphi-Quellcode:

Form1.DestroyComponents;
Stream.ReadComponent(Form1);

Übrigens: Raize-Components hat eine TRzPropertyStore-Komponente, mit der man einzelne Properties des Forms und seiner Komponenten in der Registry oder einem IniFile speichern und auch wieder laden kann.

[Cind12]

Hi,

@shmia
Ja, das ist natürlich eine Lösung. So ähnlich sähe es aus, wenn ich jede Komponente und jede ihrer Eigenschaften (natürlich in Schleifen zusammengefasst) speichern würde.
Es sind trotzdem noch eine Menge unterschiedlicher Komponenten von denen ich unterschiedliche Eigenschaften speichern muss, allein jede Komponente durchzugehen und zu entscheiden, welche Eigenschaften theoretisch änderbar sind und deshalb gespeichert werden müssen wäre im Vergleich recht viel Aufwand.

@Uwe Raabe
Das ist doch was ich hören wollte!

Die Variante
Form_neu := Stream.ReadComponent(nil) as TForm1; habe ich probiert. Hier bekomme ich den Fehler "Class TForm1 not found"...

Die Variante

Delphi-Quellcode:

Form1.DestroyComponents;
Stream.ReadComponent(Form1);

funktioniert prima.
Ich habe Form1.Destroy, Form1.Free, Form1.Close, Form1.FreeInstance...
Wirklich einiges versucht, um das Formular so weit zu löschen, dass es die Informationen aus der Datei aufnehmen kann...
Auf Form1.DestroyComponents bin ich noch nicht allein gestoßen^^

Herzllichen Dank!
Mein Problem ist damit unelegant gelöst, das ist alles was ich wollte

mit freundlichen Grüßen
Cind12

[himitsu]

[edit]
hmmmm, doppelpost

[himitsu]

Zitat von Cind12:

funktioniert prima.

Mit einem Haken.
Du kannst nie wieder was an der Form verändern.
Denn selbst wenn du was im Programm (genauer an dieser DFM) änderst, kannst du keine Daten mehr laden, ohne dieses Rückgängig zu machen, da ja beim Laden die komplette Form "neu" geladen/erstellt wird.



Über die Eigenschaften Controls oder Components kommt man (notfalls rekursiv aufgerufen) an alle Komonenten der Form.

Mit der (alten) RTTI kann man alle published Property einer Komponente rausbekommen und dann darüber die Werte einer Objekt-Instanz auslesen oder verändern.
PS: Genau das nutzt auch die VCL, bzw. diese Read-/WriteComponent-Methode.
Nur daß man eben nicht jede gefunene Eigenschaft speichern sollte, sondern eben nur das was wirklich nötig ist.

Oder man implementiert sich selber das Speichern, beim Durchlaufen.
z.B.

Delphi-Quellcode:

if Components[i] is TLabel then
   Speichere(Components[i].Name, 'Caption', TLabel(Components[i]).Caption);

Man könnte auch einfach alle nötigen Komponenten ableiten, implementiert z.B. eine ILoadAndSaveInterface worüber diese ihre Eigenschaften speichern/laden
und ruft dann beim Durchlaufen dieses Interface auf.
Und muß nun nur noch einmal in der PAS und der DFM diese Komonenten ersetzen. (Suchen+Ersetzen oder man hat ein pasendes Refactoringwerkzeug)

[shmia]

Zitat von Cind12:

Ja, das ist natürlich eine Lösung. So ähnlich sähe es aus, wenn ich jede Komponente und jede ihrer Eigenschaften (natürlich in Schleifen zusammengefasst) speichern würde.
Es sind trotzdem noch eine Menge unterschiedlicher Komponenten von denen ich unterschiedliche Eigenschaften speichern muss, allein jede Komponente durchzugehen und zu entscheiden, welche Eigenschaften theoretisch änderbar sind und deshalb gespeichert werden müssen wäre im Vergleich recht viel Aufwand.

Es ist aber der einfachste Weg, wenn du nicht grundsätzlich ALLE Properties speichern willst.
Du kannst die Liste auch noch verallgemeinern:

Code:

'*', 'Text'
'TEdit', 'Hint'
'TEdit', 'ShowHint'
'TCustomComboBox', 'ItemIndex'
'TCustomCheckbox', 'Checked'

Das '*' bedeutet dass wenn eine Komponente das Property hat, dann wird es gespeichert ohne die Klasse zu prüfen.
Ausserdem kann man die Prüfung des Klassennamens auch so programmieren, dass auch Vorgängerklassen berücksichtigt werden.

[himitsu]

Zitat von implementation:

Du solltest daher lieber schauen, ob es nicht noch andere Möglichkeiten gibt, ...

Da man ja bekanntlich die Form/VCL nicht für die Datenhaltung verwenden sollte, gibt es eigentlich auch keinen Grund die "DFM" im Programm speichern zu wollen.


Aber:
Je nach System(Version) könnte man auch verschiedenste Methoden der RTTI verwenden, um darüber das Nötige zu speichern und zu laden.

Es wäre ja auch zu praktisch, wenn man die "Delphi"-Version mit erwähnen würde.

[Cind12]

@himitsu
Die Version müsste 2006 sein, was RTTI ist weiß ich nichtmal^^
Ich weiß, dass die Form nicht die für die Datenhaltung verantwortlich sein sollte... allerdings sind ungefähr 80% der relevanten, vom Benutzer veränderlichen Daten aufs Formular bezogen, jede Caption, jeden Text und jede Color in arrays zu organisieren wäre doch auch Verschwendung.

Das mein Problem, wenn es gelöst ist, immernoch unelegant gelöst wurde, ist mir klar, allerdings ist mir grade jede Lösung lieber als Keine.

mit freundlichen Grüßen
Cind12