Komischer Stream

[Neutral General]

Hi,

Also mir fällt leider grad kein passenderer Name für das ein. Ich hab mir ein Dateiformat programmiert das mehrer Dateien in einer Datei speichert und auch wieder rausladen kann. Naja das klappt ja eigentlich auch ABER jetzt habe ich so eine Datei angelegt mit 3 Bitmaps..

Folgender Quelltext:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
 if Opendialog1.Execute then
 begin
  Bilder := TGameFile.Create;
  with Bilder do
  begin
   LoadFromFile(Opendialog1.Filename);
   // Files[0].Data.SaveToFile('C:\Ka.bmp'); funktioniert.. auf der Festplatte befindet sich danach ein 100% funktionierendes Bitmap-Bild
   Image1.Picture.Bitmap.LoadFromStream(Files[0].Data); // Ich sehe NIX.. 
  end;
  Bilder.Free;
 end;

Warum funktioniert das nicht ?
Das kann doch gar nicht sein -.-

EDIT: Ach ja Image1.Repaint/Refresh oder sonstwas bringt auch nix

Gruß
Neutral General

[Muetze1]

Stimmt denn der Position Eigenschaftswert? Also ist dieser 0? SaveToFile() geht vorher zum Anfang der Datei um alles zu speichern. Wenn du nun Data[] mit CopyFrom() o.ä. befüllst, ist danach Position = Size, somit falsch, da LoadFromStream() immer von der aktuellen Position aus lädt.

[Neutral General]

hab vergessen nach dem laden zu seeken -.-