Delphi-PRAXiS - Delphi Komischer Stream

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Komischer Stream (https://www.delphipraxis.net/75616-komischer-stream.html)

Komischer Stream

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

Re: Komischer Stream

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.

Re: Komischer Stream

hab vergessen nach dem laden zu seeken -.- :wall: