Image format Conversion ... ab XE

[bernhard_LA]

DANKE !!!

/// wifBmp Identifies a Bitmap image.
/// wifPng Identifies a PNG image.
/// wifJpeg Identifies a JPEG image.
/// wifGif Identifies a GIF image.
/// wifTiff Identifies a TIFF image

procedure ImageFormatConversion(FileType, OldFilename, NewFilename: String);

var ATWICImage : TWICImage;
begin
ATWICImage := TWICImage.Create ;

ATWICImage.LoadFromFile(OldFilename);

ATWICImage.ImageFormat := wifBmp;

ATWICImage.SaveToFile(NewFilename);

ATWICImage.Free;
end;