Image format Conversion ... ab XE

[bernhard_LA]

ich wollte eine kurze Lösung für Bildformate konvertieren mit TWICImage bauen.
leider geht folgende Code nicht :

/// 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.LoadFromFile(OldFilename);

ATWICImage.ImageFormat := wifBmp;

ATWICImage.SaveToFile(NewFilename);

ATWICImage.Free;
end;

Wenn ich ein *.tif Bild lade und versuche ImageFormat auf BMP ziu ändern bekomme ich eine AV. geht mein Ansatz nicht ???
(Lösung wie unter http://www.delphipraxis.net/163577-d...umwandeln.html wollte ich nocht wählen, mein Ansatz wären nur 4 zeilen code)

[DeddyH]

Wo legst Du denn die Instanz an (Create)?

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

[DeddyH]

Delphi-Quellcode:

procedure ImageFormatConversion(FileType, OldFilename, NewFilename: String);
var ATWICImage : TWICImage;
begin
  ATWICImage := TWICImage.Create;
  try
    ATWICImage.LoadFromFile(OldFilename);
    ATWICImage.ImageFormat := wifBmp;
    ATWICImage.SaveToFile(NewFilename);
  finally
    ATWICImage.Free;
  end;
end;

Sonst hast Du im Fehlerfall u.U. ein Speicherleck.