将BMP格式图形转化为JPG格式代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】将BMP格式图形转化为JPG格式

作者:秀清 / 发布于2015/5/13/ 861


	procedure ConvertBMPtoJPG(SFileName,DFileName:string);
	Var
	 J:TJpegImage;
	 I:TBitmap;
	 S,D:String;
	begin
	 s:=SFileName;
	 d:=DFileName;
	 J:=TJpegImage.Create;
	 I:=TBitmap.Create;
	 I.LoadFromFile(s);
	 J.Assign(I);
	 I.Free;
	 d:=changefileext(d,'.jpg');
	 J.SaveToFile(d);
	 Application.processmessages;
	 J.Free;
	end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　BMP　　JPG　

同语言下

可能有用的

秀清贡献的其它代码(25)