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.
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
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...