有没有快速的从BMP生成JPEG文件的函数 有没有快速的从BMP生成JPEG文件的函数,用TJPEGIMAGE里面的COMPRESS太慢了,有没有快速的算法或函数? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以使用opencvcvLoadImage........cvSaveImage........这个转换速度应该很理想 //bmp转化为JPGBMPToJPG(BmpFilepath,BmpFileName,SizeNameJpgFilepath,SizeCodejpgFileName,jpgFileName:string;Flag:boolean=false);var Jpeg : TJPEGImage; Bmp : TBitmap; var Create:boolean;begintry if DirectoryExists(SizeNameJpgFilepath)=false then begin if ForceDirectories(SizeNameJpgFilepath)=false then begin SizeNameJpgFilepath:=SizeCodejpgFileName; ForceDirectories(SizeNameJpgFilepath); end; end; Bmp := TBitmap.Create; try Bmp.LoadFromFile(BmpFilepath+BmpFileName); Jpeg := TJPEGImage.Create; try Jpeg.Assign(Bmp); Jpeg.Compress; //保存图片 Jpeg.SaveToFile(SizeNameJpgFilepath+jpgFileName); finally Jpeg.Free; end; finally Bmp.Free; end;exceptend; if Flag=true then DeleteFile(BmpFilepath+BmpFileName);end;//JPG文件转换为BMP文件,其中省略的部分只要将bmp文件创建与操作同JPG换过来,同上面的函数//差不多,只是写出来的那部分不一样JPGToBMP(BmpFilepath,BmpFileName,SizeNameJpgFilepath,SizeCodejpgFileName,jpgFileName:string;Flag:boolean=false);var Jpeg : TJPEGImage; Bmp : TBitmap; var Create:boolean;begintry ... try ... try .... Bmp.Assign(Jpeg); Bmp.Dormant; Bmp.FreeImage; //保存图片或者绘制图片 .... finally end; finally ...... end;exceptend; .......end; intel 提供了个Dll, 叫 ijl20.dll, 应该很快, 试试看吧 to milky: 你有ijl20.dll这个文件吗?从哪里可以找到有没有相关的DELPHI的例子? 我在Google Earth 里面找到这个文件了,该如何使用?有例子吗? 如何调用另一个程序实例的函数? 帮忙一下怎样用代码实现 DELPHI的未来 命运 Acces插入数据的问题。(分少可以加,只要能解决) 大伙可知道控件F1BOOK 6.01的免费版在哪有下载的? 急啊!!!有谁做过fastreport打印曲线图?? Jbuider 6 Register code ClientDataSet.ApplyUpdates 报出错误:列名“XX”无效 JEDI的网站地址是什么?现在怎么上不去了? delphi的光盘出来了吗?请告知 DLL加载问题---急!!!11 在Delphi里复制,剪切,粘帖 英文怎么表示?
BMPToJPG(BmpFilepath,BmpFileName,SizeNameJpgFilepath,SizeCodejpgFileName,jpgFileName:string;Flag:boolean=false);
var
Jpeg : TJPEGImage;
Bmp : TBitmap;
var
Create:boolean;
begin
try
if DirectoryExists(SizeNameJpgFilepath)=false then
begin
if ForceDirectories(SizeNameJpgFilepath)=false then
begin
SizeNameJpgFilepath:=SizeCodejpgFileName;
ForceDirectories(SizeNameJpgFilepath);
end;
end;
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile(BmpFilepath+BmpFileName);
Jpeg := TJPEGImage.Create;
try
Jpeg.Assign(Bmp);
Jpeg.Compress;
//保存图片
Jpeg.SaveToFile(SizeNameJpgFilepath+jpgFileName);
finally
Jpeg.Free;
end;
finally
Bmp.Free;
end;
except
end;
if Flag=true then
DeleteFile(BmpFilepath+BmpFileName);
end;//JPG文件转换为BMP文件,其中省略的部分只要将bmp文件创建与操作同JPG换过来,同上面的函数
//差不多,只是写出来的那部分不一样
JPGToBMP(BmpFilepath,BmpFileName,SizeNameJpgFilepath,SizeCodejpgFileName,jpgFileName:string;Flag:boolean=false);
var
Jpeg : TJPEGImage;
Bmp : TBitmap;
var
Create:boolean;
begin
try
...
try
...
try
....
Bmp.Assign(Jpeg);
Bmp.Dormant;
Bmp.FreeImage;
//保存图片或者绘制图片
....
finally
end;
finally
......
end;
except
end;
.......
end;
有没有相关的DELPHI的例子?
有例子吗?