Nur ein Bild aus Stream öffnen?

Jungsta · Beiträge: 22 Win Xp Delphi 7 Pers.

Hallo erst einmal.
Ich habe ein Programm geschrieben(siehe anhang),
in dem man beliebig viele Bitmaps in einen Stream
speichern kann.
Nun möchte ich diese öffnen.
Eins klappt, aber wenn ich dann das zweite öffnen will:
Stream.Position := Stream.Position + 1;
Bitmap.LoadFromStream(Stream);
kommt eine Fehlermeldung :?:

Weiß vielleicht einer warum???
Und wie kann ich den Code in so eine Box einfügen?

Einloggen, um Attachments anzusehen!

jakobwenzel · Verfasst: Sa 05.05.07 17:57

Position ist die Größe in Bytes und nicht in Bildern. Die Position muss also auf die Größe des 1. Bildes gesetzt werden.

Nach dem laden des 1. Bildes sollte die Position aber eigentlich schon richtig gesetzt sein.

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Jungsta · Beiträge: 22 Win Xp Delphi 7 Pers.

OK, danke, ich werde es ausprobieren :zustimm:

Jungsta · Beiträge: 22 Win Xp Delphi 7 Pers.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
stream: TFileStream;
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Stream := TFileStream.Create('C:\Dokumente und Einstellungen\Tim\Desktop\Movie Maker\Bild.vot', fmOpenRead or fmSharedenyRead);
Bitmap.LoadFromStream(Stream);
Image1.Picture.Bitmap:= Bitmap;
Stream.Position:= 5318;
end;

Das funzt irgendwie auch nicht, habe ich etwas übersehen?

Moderiert von raziel: Code- durch Delphi-Tags ersetzt

jakobwenzel · Verfasst: Sa 05.05.07 18:22

Is das der Code zum laden vom ersten oder 2. Bild?

Eigentlich sollte das so klappen:

markieren

Delphi-Quelltext

1:
2:

bild1.LoadFromStream(stream);
bild2.LoadFromStream(stream);

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Jungsta · Beiträge: 22 Win Xp Delphi 7 Pers.

Ich hatte eigenlich gedacht, dass wenn ich auf den Button klick, dass dann das zweite Bild erscheint. Gibt es auch eine Methode, die automatisch das nächste Bild anzeigt???

Jungsta · Beiträge: 22 Win Xp Delphi 7 Pers.

Also wenn ich die Bilder mit einzelnen Buttons öffne, funktioniert es:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TStream;
Bitmap: TBitmap;
begin
Stream:= TFilestream.Create('C:\Dokumente und Einstellungen\Tim\Desktop\Movie Maker\Bild.vot', fmOpenRead or fmSharedenyRead);
Stream.Position:= 5318;
Bitmap:= TBitmap.Create();
Bitmap.LoadFromStream(Stream);
Image1.Picture.Bitmap:= Bitmap;
Stream.Free;

Aber wenn ich alles in einem Button mach und eine Variable 'i' habe und diese immer um 5318
aufzähle kommt eine Fehlermeldung: Stream-Lesefehler!!!
Warum geht es so nicht???

Jungsta · Beiträge: 22 Win Xp Delphi 7 Pers.

Ich habe es jetzt selbst herausgefunden!!! :lol:

Und danke für alle Antworten!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme