Ich habe ein JPG und lade dies mit
Delphi-Quellcode:
fName := AddBackSlash(fDirDst) + ExtractFileName(fNamePic);
M.LoadFromFile(fName);
M.Position := 0;
I.LoadFromStream(M);
ShowPage := TfShowPicture.Create(Application);
ShowPage.Image1.Picture.Assign(I);
ShowPage.Show;
in ein TImage.
Mittels
Delphi-Quellcode:
var
Jpg: TJPEGImage;
begin
If (Not Assigned(Image1.Picture.Graphic)) or Image1.Picture.Graphic.Empty Then
MessageDlg('Kein Bild im Speicher', mtWarning, [mbOK], 0)
else begin
if SaveDialog1.Execute then
Begin
Jpg := TJPEGImage.Create;
try
Jpg.CompressionQuality := Compressionfactor;
Jpg.ProgressiveEncoding := true;
Jpg.PixelFormat := jf8Bit;
Jpg.Assign(Image1.Picture.Graphic);
Jpg.Compress;
Jpg.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.jpg'));
finally
Jpg.Free;
end;
end;
end;
end;
kann sich der User dieses Bild wieder speichern.
Wie kann ich sicherstellen, dass das im Image geladene Bild gleich dem zu sichernden Bild ist?
Die originale JPG Datei sollte gleich der gespeicherten JPG Datei sein.
Kann man das sicherstellen, ausser den Stream beim Laden mit im Speicher zu halten?