看一下从前人家的贴子吧
雪鹰 (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;