有人用过LibTiffDelphi吗？

[fisher_older]

请问哪儿有demo或者其他例子？
下载了一个有源码，但是没有demo，还是不会用。不知哪位大侠可以提供一点帮助。
我现在需要将tif转换为jpg格式，打算尝试用libtiffDelphi转换，但是没有找到例子。
多谢了。

[fisher_older]

谢谢楼上两位。不过不是我想要的。GDIPLUS我试过，对有些压缩格式的tif不能识别的。估计只能识别LZW格式的。

[kye_jufei]

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. 

[ecjtu5208]

居飞啥玩意都用过啊。LibTiffDelphi我都没听过。嘿嘿。