有人用过LibTiffDelphi吗？

unit   Unit1; 



interface 



uses 

    Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms, 

    Dialogs,   StdCtrls,   GDIPAPI,   GDIPOBJ,   GDIPUTIL; 



type 

    TForm1   =   class(TForm) 

        Memo1:   TMemo; 

        procedure   FormCreate(Sender:   TObject); 

    private 

        {   Private   declarations   } 

    public 

        {   Public   declarations   } 

    end; 



var 

    Form1:   TForm1; 



implementation 



{$R   *.dfm} 



procedure   TForm1.FormCreate(Sender:   TObject); 

var 

    encoderClsid:   TGUID; 

    stat:   TStatus; 

    Image:   TGPImage; 

begin 

      //   Get   a   JPEG   image   from   the   disk. 

      Image   :=   TGPImage.Create( '..\..\Media\FRUIT.JPG '); 



      //   Get   the   CLSID   of   the   Bitmap   encoder. 

      GetEncoderClsid( 'image/bmp ',   encoderClsid);／／这里设置格式！ 



      TGPBitmap(image).SetResolution(96,   96); 

      stat   :=   image.Save( 'HighRes.bmp ',   encoderClsid); 



      if(stat   =   Ok)   then 

            memo1.Lines.Add( 'HighRes.bmp   saved   successfully. ') 

      else 

            memo1.Lines.Add(GetStatus(Stat)   +   '   Attempt   to   save   HighRes.bmp   failed. '); 



      image.Free; 

end; 



end.