怎么把JPEG、BMP，wmf等Timage支持的格式转化为TIFF？

Question

如题，怎么把JPEG、BMP，wmf等Timage支持的格式转化为TIFF？ 第三方控件也可以，Imageen，或者GraphicEx等等，最好能给个例子。GraphicEx能显示tif文件，但只支持TGA的保存，但其对tif的有个方法是savetostream，能否再把stream转成文件呢？请高手指点。

Answer 1

http://www.dssz.net/461574.html这里有个演示程序

Answer 2

自己搜索关键字：delphi bmp to tiff
网上有例程

Answer 3

用GDI+可以很容易的实现 你只给20分 我就不写代码了但其对tif的有个方法是savetostream，能否再把stream转成文件呢？
这个问题 你可以动态创建一个图形显示控件  然后LoadFromStream（Stream） 然后在SaveToFile（YourFileName）

Answer 4

今天升星星了 高兴啊  代码贴这里了 楼主注意看哟 要去网上下载GDI+  如果找不到 我也可以发给你unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses GDIPOBJ, GDIPAPI, GDIPUTIL;{$R *.dfm}const  OpenFileFilter ='选择图片格式|*.jpg;.bmp;*.wmf' +
 '|*.jpg|*.jpg' +
 '|*.bmp|*.bmp' +
 '|*.wmf|*.wmf';var
 FileName: string;
 img: TGPImage;procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter := OpenFileFilter;
  if OpenDialog1.Execute then
  begin
   FileName := OpenDialog1.FileName;
   img.Free;
   img := TGPImage.Create(FileName);
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  ImgGUID: TGUID;
begin
 if FileName = '' then
  begin
   ShowMessage('先要打开文件');
   Exit;
  end;
   GetEncoderClsid('image/tiff', ImgGUID); {先获取格式编码}
  img.Save(ChangeFileExt(FileName, '.tif'), ImgGUID);
  showmessage('图片保存在与原图片相同的路径');
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  img.Free;
end;end.

Answer 5

如果还看不明白 留下邮箱 我可以发你源码DEMO 

Answer 6

谢谢genispan兄弟，已经把gdi plus的文件给装上了，你的代码完全可用。gdi就是简单啊，不用像imageen要装那么多，就准备用这个了。

Answer 7

还是把 源码发一下我吧，邮箱是cboy77@gmail。com。
最好能给我演示一下如何在另存的时候修改一下图像的属性。