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
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."