请问如何将指定的tif图片转换为jpg格式,急! ( 积分: 100 )

  • 主题发起人 主题发起人 figoxie
  • 开始时间 开始时间
F

figoxie

Unregistered / Unconfirmed
GUEST, unregistred user!
最好能写出代码,谢谢,100分送上。
 
最好能写出代码,谢谢,100分送上。
 
补充一下,我下了个GraphiEx控件,好像可以做到这点,麻烦哪位大虾写下简单的源码
 
搜索一下
 
看一下从前人家的贴子吧
雪鹰 (2002-04-09 9:57:00)
uses jpeg,graphiex
//功能:ico,jpg,gif,tif,pic,tga,pcx,.........到bmp图像格式的转换.
//参数说明:
// PicFileName:要转换的文件名,如C:/1.jpg
// BmpFileName:转换结果的bmp文件名,如:C:/1.bmp
// 返回值:失败返回0,成功返回大于0
function PicToBmp(PicFileName:String;BmpFileName:String):Integer;
var
aPicture:TPicture;
aBmp:TBitMap;
begin
Result:=0; //默认转换失败
Try
aPicTure:=TPicture.Create;
APicture.LoadFromFile(PicFileName); //APicture加载图像时,根据扩展名自动解码图像文件
Except
on e:exception do begin
messagebox(0,PChar('装载图象文件'+PicFileName+'出错,请联系小邱(QQ:66240).错误信息:'+e.message),'图象转化例程库(By Qsy)',MB_OK);
APicTure.Free;
end;
end;

ABmp:=Tbitmap.Create;
ABmp.Assign(APicture.Graphic);
form1.image1.picture.Bitmap.Assign(abmp);
try
ABmp.SaveToFile(BmpFileName);
Except
on e:exception do begin
messagebox(0,PChar('保存图象文件'+PicFileName+'出错,请联系小邱(QQ:66240).错误信息:'+e.message),'图象转化例程库(By Qsy)',MB_OK);
APicture.Free;
ABmp.Free;
end;
end;
APicture.Free;
ABmp.Free;
Result:=1;
end;
 
jpg-->bmp-->gif 这倒容易,JPG直接到GIF就没试过了.
 
GraphicEx9.9图像控件
网上有的!
从http://www.lischke-online.de/GraphicEx.php当下来的。

可以用它来开发查看图形文件。

可以打开:
1。TIFF 图像 (*.tif; *.tiff), extended base line implementation
每个采样点1到16 bits;
支持indexed索引色、 grayscale灰度色、 RGB(A)真彩色、 CMYK及 L*a*b*
支持未压缩格式、压缩格式、LZW、 CCITT T.4、 Thunderscan、 Deflate及新的JPEG格式
2。GFI fax 图像 (*.fax), 使用TTIFFGraphic进行查看
3。SGI 图像 (*.bw, *.rgb, *.rgba, *.sgi)
每个采样点1到16 bits;
支持indexed索引色、 grayscale灰度色、 RGB(A)真彩色
支持未压缩格式、 RLE
4。Autodesk 图像 files (*.cel; *.pic) (就比较老的格式)
每个采样点8bits,支持indexed索引色、支持未压缩格式
5。Truevision 图像 (*.tga; *.vst; *.icb; *.vda; *.win), 支持这种格式的读写
每个采样点5到8 bits;
grayscale灰度色、支持indexed索引色、 15 bits RGB(555), 24 bits RGB(A)(888)
支持未压缩格式、 RLE
6。ZSoft Paintbrush 图像 (*.pcx, *.pcc; *.scr)
每个采样点1到8 bits;
支持indexed索引色、 grayscale灰度色、 RGB真彩色
支持未压缩格式、 RLE
7。Kodak Photo-CD 图像 (*.pcd)
每个采样点8bits,采用YCbCr格式,分辨率(192 x 128 到6144 x 4096)
8。Portable pixel/gray map 图像 (*.ppm, *.pgm, *.pbm)
每个采样点1到8 bits;
支持indexed索引色、 grayscale灰度色、 RGB真彩色、未压缩格式。
9。Dr. Halo 图像 (*.cut, *.pal)
每个采样点8bits,带索引、采用RLE压缩
10。CompuServe 图像 (*.gif)
每个采样点1、4或8bits,带索引、采用LZW压缩
11。SGI Alias/Wavefront 图像 (*.rla, *.rpf)
每个采样点8bits,RGB(A)真彩色、采用RLE压缩
12。标准Windows位图(*.bmp, *.rle, *.dib)
13。Photoshop 图像 (*.psd, *.pdd)
每个采样点1、8或16 bits
支持indexed索引、RGB、CMYK、CIE L*a*b*
未压缩格式、位压缩格式
14。Paintshop Pro 图像 (*.psp)
每个采样点1、4或8bits,
支持indexed索引色、 grayscale灰度色、 RGB真彩色
支持未压缩格式、RLE和LZ77
单独分层的文件
15。Portable network graphic 图像 (*.png)
每个采样点1、2、4、8或16 bits,
支持indexed索引、grayscale alpha、RGB(A)及LZ77压缩格式
 
惭愧啊!!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
1K
swish
S
后退
顶部