BMP, GIF, JPG, PNG in BMP, GIF, JPG, PNG umwandeln

[igel457]

Eigentlich ganz einfach:
Du konvertierst das Bild erst in ein BMP und das kannst du dann in jedes andere Format konvertierten. Ungefähr so...

Delphi-Quellcode:

var in,out:tgraphic;
    bmp:TBitmap;
begin
  if typin = 'PNG' then in := TPngImage.Create;
  if typin = 'BMP' then in := TBitmap.Create;
  if typin = 'JPG' then in := TJpeg.Create;
  if typin = 'GIF' then in := TGifImage.Create;
  bmp := TBitmap.Create;
  bmp.width := in.width;
  bmp.height := in.height;
  bmp.canvas.draw(in,0,0);
  if typout = 'PNG' then out := TPngImage.Create;
  .
  .
  .
  out.width := bmp.width;
  .
  out.canvas.draw(bmp);
  out.savetofile(blbla)
end;