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