[Erledigt] Suche FileStorage Komponente

[xnalpf]

Hi,
ich suche eine Komponente, mit der ich beliebige Dateien in der Formulardatei speichern kann. Also so wie z.B. bei einer TImage Komponente ein Bild mit dem Formular gespiechert wird soll es eine "File" Property geben bei der man eine beliebige Datei von Platte wählen kann und die wird dann im Form mit abgespeichert.
Später zu Laufzeit soll es dann möglich sein diese Datei mit komponente.savetofile wieder auf Platte zu kopieren. Also als würde man image1.picture.bitmap.savetofile() aufrufen.
Kennt jemand so eine Komponente für Lazarus?

[theo]

Weiss nicht ob ich richtig verstehe.

Eigentlich macht man das mit Ressourcen.

Aber ich habe mal vor Jahren ein paar Funktionen geschrieben, die sowas machen.
S. Anhang.

Enkodieren so:

Code: Alles auswählen

IF OpenDialog1.Execute then Memo1.text:=EncodeFileForUnit(OpenDialog1.FileName);    

Das gibt dann eine StringKonstante, die man sich in den Code kopieren kann.

Dekodieren so:

Code: Alles auswählen

  Strm:=TMemoryStream.Create;
  DecodeFileFromUnit(TestC,Strm);
  Image1.Picture.LoadFromStream(Strm);
  Strm.free;

[xnalpf]

Ja das Prinzip ist richtig. Nur ist das Handling bei dir natürlich umständlicher als nötig. Jede komponente speichert in der IDE ihre Propertys in einem Stream in die Formulardatei. Und auf diese Propertys kann ich im Designmodus also in der IDE sowie zur Laufzeit zugreifen.

Ich kann z.B. auf die property Caption eines Labels zugreifen. Im Property Editor kann ich den Wert Lesen und schreiben. Und wenn ich mein Projekt speichere und einen Tag später das Projekt wieder öffne ist der Wert immer noch der gleiche da er halt in der Formulardatei gespeichert vorliegt.

Gleiches gilt zur Laufzeit. Gut - wenn ich zur Laufzeit die Property ändere wird das nicht in die Exe geschrieben. Aber lesen kann ich die Daten. Und weiter damit arbeiten.

Jetzt sind die Propertys von den Komponenten aber in der Regel Typisiert. In ein Image kann ich nur Bilddaten schrieben, in Caption nur Strings, Width, Height nur numerisch etc.

Eine FileStorage Komponente speichert beliebige Daten binär in der Property. Das ist der Trick. Gabs für Delphi zu Hauf. In den Jedi Komponenten war meine ich auch sowas. Ich hab so eine Komponente seinerzeit für Delphi auch mal programmiert. Mein Problem jetzt ist, dass das Handling mit Property Editor etc. unter Lazarus etwas anders ist. Das müsste ich alles umschreiben. Daher hoffe ich, dass es so eine Komponente evtl. fertig gibt.

[xnalpf]

So, ich hab einfach kurzerhand meinen alten Delphi Quältext abgestaubt und für Lazarus modifiziert.
Leider ist dabei der ComponentEditor auf der Strecke geblieben aber ansonsten macht die Komponente das, was sie früher schon unter Delphi gemacht hat.
Wer sowas braucht mag es gerne zu seinem Nutzen nutzen.

[Michl]

Hab jetzt nicht alles gelesen, evtl. hattest du ja sowas, wie die TINIPropStorage oder TXMLPropStorage http://wiki.freepascal.org/TXMLPropStorage/de gesucht?!

[creed steiger]

mxStorage käme evtl in Frage

http://forum.lazarus.freepascal.org/ind ... ic=12056.0

[xnalpf]

Hab jetzt nicht alles gelesen, evtl. hattest du ja sowas, wie die TINIPropStorage oder TXMLPropStorage http://wiki.freepascal.org/TXMLPropStorage/de gesucht?!

Die zwei sind wenn ich das richtig verstanden habe auch nur auf bestimmte Datentypen beschränkt. Ich wollte aber eine Kompnente mit der man beliebige Daten speichern kann.

[xnalpf]

mxStorage käme evtl in Frage

http://forum.lazarus.freepascal.org/ind ... ic=12056.0

Werde ich mir mal anschauen. Von der Beschreibung her ganu das gesuchte. Nur kam der Hinweis zu spät. Trotzdem danke!