Ist die Unit jpeg fehlerhaft?

[blablab]

Hallo!

irgendwie bin ich etwas verwirrt.
ich benutze die unit jpeg und ich hab ein TJpegImage namens jpg mit nem bild drin.

wenn ich das hier mache dann zeigts mir in der image-komponente ein bild an.

Delphi-Quellcode:

Image.Picture.Assign(jpg);

wenn ich das hier mache gibts ein jpeg 42 fehler.

Delphi-Quellcode:

s := TStringStream.Create('');
jpg.SaveToStream(s);
jpg.LoadFromStream(s);
Image.Picture.Assign(jpg);

aber normalerweise müsste das doch funktionieren oder nicht?
hab ich hier irgend einen denkfehler drin?

Gruß Simon

[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]

[mkinzler]

Warum nimmst du einen StringStream?

[Uwe Raabe]

Setz mal ein

Delphi-Quellcode:

s.Position := 0;

zwischen das SaveToStream und LoadFromStream.

[blablab]

danke für die schnelle antworten!

@mkinzler: ich will mehrere jpegs in eine datei speichern

@uwe raabe: so funktionierts. danke! nur leider ist mein eigentliches problem damit immer noch nicht gelöst...
und zwar sieht das folgendermaßen aus:


ich speicher meine Bilder so:

Delphi-Quellcode:

procedure TContacts.SpeichernBilder(var str: string);
var i, tmp: integer;
      strstr: TStringStream;
      tmpstr: string;
begin
   //Anzahl der Bilder speichern
   tmp := Length(Bilder);
   str := str + VarToString(@tmp, SizeOf(tmp));

   for i := 0 to Pred(tmp) do with Bilder[i] do begin
      //Bild speichern
      tmpstr := '';
      if not Empty then begin
         strstr := TStringStream.Create('');
         SaveToStream(strstr);
         tmpstr := strstr.DataString;
         strstr.Free;
      end;
      tmp := Length(tmpstr);
      str := str + VarToString(@tmp, SizeOf(tmp)) + tmpstr;
   end;
end;

und dann lad ich sie wieder so:

Delphi-Quellcode:

procedure TContacts.LadenBilder(var str: string; var pos: cardinal);
var i, laenge, tmp: integer;
      strstr: TStringStream;
      tmpstr: string;
begin
   //Anzahl der EigensDefs auslesen
   laenge := StringToInt(Copy(str, pos, SIZE));
   SetLength(Bilder, laenge);
   Inc(pos, SIZE);

   //Objekte initialisieren
   for i := 0 to Pred(laenge) do with Bilder[i] do begin
      Bilder[i] := TJPEGImage.Create;
      //Bild laden
      tmp := StringToInt(Copy(str, pos, SIZE));
      Inc(pos, SIZE);
      if tmp > 0 then begin
         strstr := TStringStream.Create(Copy(str, pos, tmp));
         tmpstr := Copy(str, pos, tmp);
         LoadFromStream(strstr);
         strstr.Free;
         Inc(pos, tmp);
      end;
   end;
end;

aber irgendwie klappts net so richitg.
der string den ich speicher ist 6671 zeichen lang und der der zu laden ist ist au wieder 6671 zeichen lang und die ersten zeichen stimmen auch überein. deshalb geh ich mal davon aus, dass die strings identisch sind...
ich hab auch mal Position := 0 reingemacht aber es geht trotzdem nicht
ich krieg immer eine zugriffsverletzung...

[mkinzler]

Beim Schreiben von Binärwerten in eine String(Stream) werden sich die Werte ändern! Nimm einen MemoryStream.

[blablab]

oh... ich glaub ich hab den fehler gefunden...

liegt an dem with

danke für eure mühe!

@mkinzler:
ich hatte bis jetzt aber noch nie probleme mit stringstream. was ist den der vorteil von memorystream?

[mkinzler]

Er kann alle Werte aufnehmen. Beim StringStream könnte es dir passieren, das Werte anders interpretiert werden.

[blablab]

aber ich muss sagen mit dem stringstream klappt das ganz gut.
der ist halt relativ praktisch weil ich mir damit einen speicherstring machen kann mit bildern und anderen informationen drin und wenn der string erstellt wurde speicher ich ihn an einem stück ab.
und damit hab ich jetzt schon n paar jpeg-bilder abgespeichert. von daher müssten schonmal alle chars von 0-255 abgespeichert worden sein und es hat au immer geklappt (solange ich keine solche fehler gemacht hab wie mit dem with)...
ich glaub weil der string nicht nullterminiert ist geht das ohne probleme

[DeddyH]

Trotzdem verwendest Du eine Bananenkiste, um Äpfel zu transportieren. Was hast Du denn gegen TMemoryStream?

[blablab]

ehrlich gesagt weiß ich einfach net wie ich des dann machen soll...

[Matze]

Versuche doch einfach mal "TStringStream" durch "TMemoryStream" zu ersetzen.

[DeddyH]

Nur so ein Gedanke: eine Cardinal (oder int64) in den Stream schreiben mit der Größe des folgenden Bildes, anschließend das Bild selbst. Beim Auslesen hast Du nun immer die benötigte Größe zur Verfügung.

[blablab]

äh... irgendwie seh ich da kein vorteil.
also meiner meinung nach gibt es zwei wege um meine sachen abzuspeichern:

1)
ich mach mir nen string wo alles drin steht und speicher den dann an einem stück ab

2)
ich nehm einen filestream und speicher dann stückchenweise immer mehr in die datei.

ich hab mich für 1) entschieden und ich glaub auch dass es keine schlechte möglichkeit ist.
ich fang also an und speicher zb den inhalt einer edit in meinen string, dann füg ich ne jpg zum string hinzu und danch nen integer usw.
so mach ich den string immer länger und wenn ich fertig bin speicher ich alles ab.
wenn ich da jetzt TStringStream benutz dann kann ich ganze einfach den datastring zu meinem speicherstring hinzufügen und fertig.

ich frag mich jetzt nur was mir da der memorystrem bringen soll... ich wills doch sowieso in nen string umwandeln und da ist das mit nem memorystream doch nur komplizierter.

und wenn ich die variante 2) benutzen würde, dann könnt ich doch direkt filestream benutzen und da wär dann meiner meinung nach der memorystream au wieder umständlicher...


@detlef: so mach ichs doch schon (siehe oben). ich wüsste auch gar nicht wie ichs anders machen könnte :)

[QuickAndDirty]

Strings werden von schon mal als UTF/8 gespeichert oder als WIDECHAR oder als ANSI.

Wenn die Codegear Jungs (und das hat Borland auch schon gebracht)
sich überlegen das in der nächsten Version der Standard für String
ein anderer ist, dann kannst du das gespeicherte auf einmal nicht
mehr lesen.

Deswegen macht es Sinn TMemoryStream zu nehmen.

[jbg]

Zitat:

Zitat von QuickAndDirty

Wenn die Codegear Jungs (und das hat Borland auch schon gebracht) sich überlegen das in der nächsten Version der Standard für String ein anderer ist, dann kannst du das gespeicherte auf einmal nicht mehr lesen.

Spielst du da vielleicht darauf an, dass wenn er sein Jpeg in Delphi 7 speichert und in Delphi 2009 lädt, die Daten nicht mehr richtig lesen kann? (rethorische Frage)

[DeddyH]

Wenn man zwischendurch zu Tisch ist... wird genau das geschrieben, was man selbst auch noch sagen wollte :zwinker:

[mjustin]

Zitat:

Zitat von QuickAndDirty

Strings werden von schon mal als UTF/8 gespeichert oder als WIDECHAR oder als ANSI.

Und deshalb kann man ab Delphi 2009 ja das Encoding schon im Konstruktor angeben, z.B.

Delphi-Quellcode:

S := TStringStream.Create(Input, TEncoding.UTF8);

[DeddyH]

Und welchen Sinn soll es machen, Binärdaten in UTF8 zu speichern?

[Klaus01]

Zitat:

Zitat von DeddyH

Und welchen Sinn soll es machen, Binärdaten in UTF8 zu speichern?

TStringStream provides file-like access to information stored as a long string.

Grüße
Klaus

[mjustin]

Zitat:

Zitat von DeddyH

Und welchen Sinn soll es machen, Binärdaten in UTF8 zu speichern?

Richtig, für diesen Anwendungsfall ist dann eher TEncoding.ASCII geeignet.

Korrektur: ASCII ist nur ein 7 Bit Encoding. Geeignet wäre das RawByteString Encoding, das mit TEncoding.GetEncoding($FFFF) erzeugen könnte. Leider erhalte ich bei dem Versuch einen EEncodingError, hier bin ich also auch erst mal an die Grenzen gestossen (und habe eine Frage in der RTL Gruppe gestellt)

[mkinzler]

Zitat:

TStringStream provides file-like access to information stored as a long string.

Und was für einen Vorteil bringst das ihm hier?
Ein Bild ist nunmal kein String.

[DeddyH]

Zitat:

Zitat von mkinzler

Und was für einen Vorteil bringst das ihm hier?

Genau das versuche ich auch die ganze Zeit zu ergründen.