2011年9月6日
摘要: uses jpegprocedure TForm1.Button1Click(Sender: TObject);var myjpeg:tjpegImage; myBmp:Tbitmap;beginmyBmp:=tbitmap.Create;myBmp.LoadFromFile('C:\Documents and Settings\111\桌面\练习\1.bmp');myjpeg:=tjpegimage.Create;myjpeg.Assign(mybmp);myjpeg.CompressionQuality:=20;//转化的压缩率,越大效果越好myjpeg.Compress; 阅读全文
posted @ 2011-09-06 15:56 在delphi路上 阅读(319) 评论(0) 推荐(0)