Comment faire pour charger et afficher des images tiff en TImage de contrôle?

Je suis actuellement en train de travailler sur Delphi XE2 version d'essai. Je veux charger et afficher des images TIFF en TImage de contrôle sans l'aide d'un tiers de la composante/bibliothèque.

J'ai essayé le code ci-dessous mais il n'est pas woking pour moi.

Procedure TForm1.Button1Click(Sender: TObject); 
Var 
     OleGraphic               : TOleGraphic; 
     fs                       : TFileStream; 
     Source                   : TImage; 
     BMP                      : TBitmap; 
Begin 
     Try 
          OleGraphic := TOleGraphic.Create; 

          fs := TFileStream.Create('c:\testtiff.dat', fmOpenRead Or fmSharedenyNone); 
          OleGraphic.LoadFromStream(fs); 

          Source := Timage.Create(Nil); 
          Source.Picture.Assign(OleGraphic); 

          BMP := TBitmap.Create; 
          bmp.Width := Source.Picture.Width; 
          bmp.Height := source.Picture.Height; 
          bmp.Canvas.Draw(0, 0, source.Picture.Graphic); 

          image1.Picture.Bitmap := bmp;
     Finally 
          fs.Free; 
          OleGraphic.Free; 
          Source.Free; 
          bmp.Free; 
     End; 
End;

S'il vous plaît conseils.

Si l'extension du fichier est une extension tiff, ce serait un one-liner, image1.Image.LoadFromFile(MyTiffFile). Sinon, cette question peut vous aider how-to-load-an-arbitrary-image-from-a-blob-stream-into-a-timage
Je me demande si ce code est entré à partir de l'échantillon dans swissdelphicenter.ch/fr/showcode.le php?id=2012 (datant de 2004). Je viens de trouver efficacement le même code dans un rarement exploré une partie de la base de code que je travaille sur.

OriginalL'auteur Dev | 2011-10-21

  1. 3

    Comme dit dans mon commentaire, si l'extension de fichier est la norme tiff extension le code pour ouvrir le fichier est trivial :

    image1.Picture.LoadFromFile(MyTiffFile);

    Si non, suivez la réponse de dwrbudr.

    Voici un exemple :

    procedure LoadBitmapFromFile( aImage : TImage; tiffFilename : String);
var
  tiffIm : TWICImage;
  ext : String;
begin
  ext := SysUtils.ExtractFileExt(tiffFilename);
  if (ext = '.tif') or (ext = '.tiff')
    then aImage.Picture.LoadFromFile(tiffFilename)
    else begin
      tiffIm:= TWICImage.Create;
      try
        tiffIm.LoadFromFile(tiffFilename);
        aImage.Picture.Bitmap.Assign(tiffIm);
      finally
        tiffIm.Free;
      end;
    end;
end;

    Voir aussi TWICImage, qui fonctionne pour XP SP3 et.

    OriginalL'auteur LU RD

  2. 6
         tiff := TWICImage.Create;
     tiff.LoadFromFile(Filename);
     ABitmap.Assign(tiff);

    OriginalL'auteur dwrbudr

  3. 4

    Vous pouvez utiliser GDI+:

    uses ..., ActiveX, GDIPAPI, GDIPOBJ, GDIPUTIL;

function LoadImageFromFile(const FileName: string; Bmp: TBitmap): Boolean;
var
  GPImage: TGPImage;
  encoderClsid: TGUID;
  MemStream: TMemoryStream;
begin
  Result := False;
  GPImage := TGPImage.Create(FileName);
  try
    if GPImage.GetLastStatus = Ok then
    begin
      MemStream := TMemoryStream.Create;
      try
        GetEncoderClsid('image/bmp', encoderClsid);
        if GPImage.Save(TStreamAdapter.Create(MemStream), encoderClsid) = Ok then
        begin
          MemStream.Position := 0;
          Bmp.LoadFromStream(MemStream);
          Result := True;
        end;
      finally
        MemStream.Free;
      end;
    end;
  finally
    GPImage.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadImageFromFile('D:\ML_10222.tif', Image1.Picture.Bitmap);
end;

    Je tiens également à mentionner Synopse TSynPicture (GDI+ emballage): https://stackoverflow.com/a/6251810/937125

    EDIT: GDI+ TGPImage prend également en charge plusieurs tiff images/pages:

    Pour obtenir les images de comptage d'utilisation: 

    GPImage.GetFrameCount(GDIPAPI.FrameDimensionPage);

    Pour définir le cadre actif utilisation:

    GPImage.SelectActiveFrame(GDIPAPI.FrameDimensionPage, Index);

    Noter que TSynPicture prend également en charge plusieurs images.

    OriginalL'auteur kobik