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

来源：百度知道 编辑：UC知道 时间：2024/06/07 05:34:37
如题，怎么把JPEG、BMP，wmf等Timage支持的格式转化为TIFF？ 第三方控件也可以，Imageen，或者GraphicEx等等，最好能给个例子。

GraphicEx能显示tif文件，但只支持TGA的保存，但其对tif的有个方法是savetostream，能否再把stream转成文件呢？请高手指点。
我问的是编程处理。

//利用GDI将图片转换为tif格式
//使用前先下载GDIPlus
//以下代码GDIPlus + delphi7通过
//转换后的图片与原图片在同一目录下

var
img1 :TGPImage;
ImgGUID :TGUID;
begin
opendialog1.Filter := '支持的所有图片格式|*.png;*.jpg;*.gif;*.bmp;*.tif;*.emf;*.wmf;*.ico' +
'|*.png|*.png' +
'|*.jpg|*.jpg' +
'|*.gif|*.gif' +
'|*.bmp|*.bmp' +
'|*.tif|*.tif' +
'|*.emf|*.emf' +
'|*.wmf|*.wmf' +
'|*.ico|*.ico';
if opendialog1.Execute then
begin
img := TGPImage.Create(opendialog1.FileName);
GetEncoderClsid('image/tiff', ImgGUID);
img.Save(ChangeFileExt(opendialog1.FileName, '.tif'), ImgGUID);
img.Free;
end;
end;

不知道你是不是说的图片！
如果是的话，你直接用个photoshop打开你的图片，在另存为TIF的格式就好了！