TJpegImage Komponente? Woher?

[SiMc]

OK, es hat nun geklappt.

Ich habe anstatt Assign einfach Draw genommen (vorher halt noch die Größe ändern, sonst steht was über/ist was abgeschnitten).

Code:

var              
  imgj := TImage; // das Bild, was man nicht sieht

implementation

uses
Jpeg;

...

imgj := TImage.Create(imgj);

imgj.Picture.LoadFromFile('bild.jpg');
Image1.Height := imgj.Picture.Height;
Image1.Width := imgj.Picture.Width;
Image1.Canvas.Draw(0, 0, imgj.Picture.Graphic);

... // Image1 editieren

Image1.Assign(imgj.Picture); // sorum klappts wunderbar
Image1.Picture.SaveToFile('bild_edit.jpg');

Trotzdem vielen Dank für alle Antworten



-SiMc