Komposition von mehreren JEPG zu neuem Bild???

[soulfly79]

Hallo Zusammen,
für eine Visualisierung müssen mehrere Zustände dargstellt werden (Delphi6).

Nun habe mehrere Einzelbilder die ich übereinander positionieren und dann als sozusagen neues Bild anzeigen will.

Meine Frage ist wie kann ich mehrere Bilder virtuell übereinander legen?
Und wie dann daraus ein neues Bild erzeugen?

Gruß Carsten

[semo]

BitBlt und der entsprechende raster operation code müsste dir helfen.
aber das bezieht sich alles auf bitmaps....

[Progman]

Jpegs lassen sich doch intern in Bitmaps umwandeln und die kann man verarbeiten und das Resultat evt. zurückwandeln in JPG.

[semo]

ja klar, war ja nur als anmerkung gedacht ;)

[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;