Hallo,
Ich hab hier ein kleines Problem, mit dem ich nicht ganz zurecht komme:
Ich hab diese Klasse:
Delphi-Quellcode:
type
TTest = class(TComponent)
private
FImage: TImage;
published
property Image: TImage read FImage write FImage;
end;
Als erstes erstell ich ein Objekt der Klasse:
Delphi-Quellcode:
TestComponent := TTest.Create(Form1);
TestComponent.Image := TImage.Create(Form1);
... dann lad ich das Bild hinzu:
Delphi-Quellcode:
OpenDialog1.Execute;
TestComponent.Image.Picture.LoadFromFile( OpenDialog1.FileName );
Und anschließend speicher ich die Komponente:
Delphi-Quellcode:
tmpStream := TFileStream.Create('C:\test.dat',fmCreate);
Try
tmpStream.WriteComponent( TestComponent );
Finally
tmpStream.Free;
End;
Aber aus irgendeinem Grund, speichert er das Bild nicht mit ab. Das Laden der Komponente funtioniert. Man sieht halt schon an der Größe der gespeicherten Datei, dass da was fehlt.
Ich hab zum Test mal, ein Objekt der Klasse TImage gespeichert (anstatt TTest). Das hat funktioniert. Wieso das hier nicht?
Danke schonmal für jede Hilfe
