Komposition von mehreren JEPG zu neuem Bild???

[Progman]

kurzes Code-Beispiel:

Delphi-Quellcode:

var bmp1, bmp2: TBitmap;
    jpeg: TJpegImage;
begin
    Jpeg:=TJpegImage.Create;
    try
      jpeg.LoadFromFile(InFile);
      bmp1:=TBitmap.Create;
      try
        bmp1.width:=jpeg.Width;
        bmp1.height:=jpeg.Height;
        bmp1.canvas.Draw(Rect(0,0,bmp1.width,bmp1.Height),jpeg);
       // oder Assign verwenden ?

        //hier ver-/bearbeiten

        jpeg.assign(bmp1);
      finally
        bmp1.free;
      end;
      jpeg.SaveToFile(OutFile);
    finally
      jpeg.Free;
    end;
  end;