Ein Bild aus Stream laden und in stream Speichern

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

Ich habe das Problem, dass ich Bilder durch
Image1.Picture.Graphic.SaveToStream(Stream);
in einen Stream Speichere und möchte diese nacheinander
wieder in einem image anzeigen.
Schon mal danke für die antworten.

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

LoadFromStream :wink:

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

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

OK danke jetzt würde ich noch gerne wissen wie man etwas von einer bestimmten Stelle des Streams lädt.
Aber wenn ich
Image2.Picture.Graphic.LoadFromSTream(Stream);
benutze dann kommt eine Fehlermeldung mit einer
Zugriffsverletzung. :?:

BenBE · Verfasst: Sa 05.05.07 10:25

LoadFromStream läd ab der aktuellen Position im Stream.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

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

BenBE hat folgendes geschrieben:

LoadFromStream läd ab der aktuellen Position im Stream.

Wie kann ich denn dann An den Anfang kommen?

BenBE · Verfasst: Sa 05.05.07 10:30

Siehe Delphi-Hilfe TStream. Die Eigenschaft dafür ist trivial undintuitiv zu finden.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

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

Ich habe jetzt in der Hilfe die Methode
Stream.Position := 0; //Der stream wird auf die Posiition 0 gesetzt
Aber das mit dem LoadFromStream funzt immer noch nicht:
Image2.Picture.Graphic.LoadFromStream(Stream);

BenBE · Verfasst: Sa 05.05.07 10:43

Wenn kein Picture in einem Image geladen ist, so zeigt Graphic immer auf ein Bitmap. Und in deinem Stream wird sicherlich alles andere als ein Bitmap stehen??? Image1.Picture.LoadFromStream.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

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

BenBE hat folgendes geschrieben:

Wenn kein Picture in einem Image geladen ist, so zeigt Graphic immer auf ein Bitmap. Und in deinem Stream wird sicherlich alles andere als ein Bitmap stehen??? Image1.Picture.LoadFromStream.

Image1.Picture.LoadFromStream funzt auch nicht da kommt Undefinierter Bezeichner

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

Also ich speichere und öffne meine Streams jetzt so:

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
Bitmap2: TBitmap;
Stream: TFileStream;
begin
Bitmap := TBitmap.Create;
Bitmap2 := TBitmap.Create;
Bitmap.LoadFromFile('.\Bild1.bmp');
Stream:= TFileStream.Create('.\Stream.Datei', fmCreate);
Bitmap.SaveToStream(Stream);
Bitmap2.LoadFromStream(Stream);
Image1.Picture.Bitmap := Bitmap2;
end;

Das funktioniert auch ganz gut, aber ich würde auch gerne von einem anderem Programm darauf zugreifen können!!!

Moderiert von raziel: Delphi-Tags hinzugefügt

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

Ich habe es geschafft, dass ich die Bitmaps speichere

:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button3Click(Sender: TObject);
var
fs: TFileStream;
Bitmap: TBitmap;
i, c: Integer;
begin
i:= 0;
c:= 0;
SaveDialog1.Execute;
FS := TFileStream.Create(saveDialog1.FileName + '.vot', fmCreate);
Bitmap := TBitmap.Create;
for i := 0 to (ListBox1.Count - 1) do
begin
Bitmap.LoadFromFile(Listbox1.Items[i]);
Bitmap.SaveToStream(FS);
inc(c);
end;
end;

Aber wenn ich dann eins öffne und dann die Position im Stream zu ändern, dann kommt eine Fehlermeldung und das Programm stürzt ab!!! :cry:

Moderiert von raziel: Highlight- durch Delphi-Tags ersetzt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme