Graphics32-Frage!!

[SirThornberry]

dann ist es ja eigentlich ganz einfach:

Delphi-Quellcode:

var
  lBmp  : TBitmap;
  lJpg  : TJPEGImage;
begin
  lBmp  := TBitmap.Create();
  lJpg  := TJPEGImage.Create();
  lJpg.LoadFromFile(FileName);
  lBmp.Assign(lBmp);
  lBmp.PixelFormat := pf24Bit;
  [...]
  ASrcImage.Assign(lBmp);
  [...]
  lJpg.Assign(ADstImage);
  lJpg.SaveToFile(FileName);
  lBmp.Free;
  lJpg.Free;
end;