Execute News

Delphi supporte depuis plusieurs versions les formats JPEG et PNG, par contre en standard, il n'est pas possible de lire des images TIFF.

Qu'à cela ne tienne, on s'appuyant sur GDI+, l'unité Execute.GDIPBitmap ajoute une méthode GDIPLoadFromStream à la classe TBitmap.

uses
  Execute.GDIPBitmap;
var
  bitmap: TBitmap;
  stream: TFileStream;
begin
  bitmap := TBitmap.Create;
  stream := TFileStream.Create('SAMPLE.JPG', fmOpenRead or fmShareDenyNone);
  bitmap.GDIPLoadFromStream(stream):
  stream.Free;
end;

GDIPBitmap sur Github