AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi jpegs in stream speichern.
Thema durchsuchen
Ansicht
Themen-Optionen

jpegs in stream speichern.

Ein Thema von Arnulf · begonnen am 31. Jul 2008 · letzter Beitrag vom 16. Aug 2008
Antwort Antwort
Seite 1 von 2  1 2      
Arnulf

Registriert seit: 28. Okt 2004
Ort: Wien
271 Beiträge
 
#1

jpegs in stream speichern.

  Alt 31. Jul 2008, 13:16
Hi
Ich will Jpegs in einen Stream speichern und wieder auslesen.
Im prinzip hab ich mir gedacht ich nehm die größe des jpegs als integer und speicher das vor jedes bild das ich in den stream kopiere.

Allerdings weiß ich nicht wie ich die größe des jpegs im stream bekomme bevor ich das als stream gespeichert habe.

Beispiel:
wobei mir klar ist, dass sizeof nur die größe des pointers liefert also 4
auch ist fraglich, ob mJpeg.SaveToStream den stream wirklich richtig positioniert - aber ich glaube schon.

schreiben:
Delphi-Quellcode:
     myJpeg.Assign(myBitmap);
     i := sizeof(myJpeg);
     FileStream.Write(i,sizeof(integer));
     myJpeg.SaveToStream(FileStream);
lesen:
Delphi-Quellcode:
var
  pbyte : ^BYTE;
  i : integer;
playstream := TFileStream.Create('myFile.jps',fmOpenRead);
while playstream.Position <= playstream.Size-1 do
begin
     playStream.Read(i,sizeof(integer));
     playStream.Read(pByte,i);
     myJpeg.Assign(pByte);
end;
beides ist nur pseudocode - mir ist auch klar, dass ich einen byte pointer nicht auf ein jpeg assignen kann.
Aber dort liegen meine probleme.
Die Einzige lösung die ich dazu hätte wäre das alles vorher in einen memory stream zu kopieren
Die größe abzufragen, das in einen filestream kopieren.
beim lesen dann wieder umgekehrt.
so würde ich die bilder schon wieder einzeln bekommen.
Aber das ganze erzeugt einen ordentlichen overhead den ich gerne vermeiden würde.

lg
Arnulf
  Mit Zitat antworten Zitat
riko.delphipraxis

Registriert seit: 13. Aug 2008
12 Beiträge
 
#2

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 10:16
hallo arnulf,

ich weiss ja nicht wozu du die größe brauchst, aber die steht in stream.size...

anbei ein kleines beispiel (1. - 2. - 3. Button)...

lg.
Richard
Angehängte Dateien
Dateityp: pas unit1_106.pas (1,5 KB, 38x aufgerufen)
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.993 Beiträge
 
Delphi 7 Professional
 
#3

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 10:26
Wie sollten einzelne jpg's denn wieder aus dem Stream gelesen werden, wenn deren Größe nicht bekannt ist?
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 10:27
Zitat von taaktaak:
Wie sollten einzelne jpg's denn wieder aus dem Stream gelesen werden, wenn deren Größe nicht bekannt ist?
Genau das ist doch sein Problem. Aber die Lösung hat riko.delphipraxis schon gepostet.

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."
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.993 Beiträge
 
Delphi 7 Professional
 
#5

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 10:32
Schon klar! Sollte eine Antwort auf die Frage von riko sein, dem offenbar nicht klar war, wozu die Größe benötigt wird
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#6

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 11:37
Hi,

ich lese aus dem Post des Erstellers, dass er mehrere Jpegs in einem Stream speichern möchte. Bei Riko ist das nur ein Jpeg in einem Stream.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#7

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 12:08
Nur eine Idee: mit 2 Streams arbeiten. Zunächst die Grafik in den einen laden, dessen Größe ermitteln, diese in den "Hauptstream" schreiben und mit CopyFrom hintendrankopieren. Anschließend den temporären Stream auf Größe 0 setzen und das Ganze von vorn. Wenn ich keinen Denkfehler gemacht habe, hat man jetzt immer schön das Offset zur nächsten Grafik im Hauptstream und kann sich somit durchhangeln.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#8

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 12:13
Hi,

hier ein kleines Beispielprojekt.

Exe liegt auch mit bei.
Angehängte Dateien
Dateityp: zip testproj_990.zip (284,8 KB, 45x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#9

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 12:43
Kommt mir bekannt vor, die Lösung
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#10

Re: jpegs in stream speichern.

  Alt 15. Aug 2008, 12:59
Die hatte ich schon getippt, bevor Du geschrieben hast. Ich hab Dein Post erst gelesen, als ich das Ding hier reinstellen wollte.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz