borland\delphix\help\examples\jpeg;
~是版本号
~是版本号
解决方案 »
- 关于截取一个图片的大小
- 实现多线程同步查询,但是有错误请高手帮忙看看:)
- 大家价绍几本VCL的书
- 兄弟们好,小弟准备开服装店啦!!!!
- delphi6的补丁2哪有下载???请提
- 怎样进行端口扫描?
- 怎样实现十进制与十六进制之间的转换?
- 我的天,delphi程序员找工作太难了,没人要呀。在深圳转了一个月无一家公司招聘我。
- 为感谢大家对我这个菜鸟的帮助。特地把DELPHI5开发人员指南电子版发到公司的服务器上请下载。但是希望别用太多线程。要不就完了。普通的虚拟主机而已。
- 请问WORD里面的帮助小精灵是怎样做成的?(就是那个两颗黑眼珠转来转去的家伙)
- 不知何时才能有真正的DELPHI中文版和中文帮助呢?
- 新年快乐!恭喜发财!
就可以了。当然要指定压缩率就是JPG的一个属性,我见大家一般都用75你也可以用
100
随你了
var BitMap:TBitMap;
Jpeg:TJpegImage;
begin
try
BitMap:=TBitMap.Create; Jpeg:=TJpegImage.Create;
BitMap.LoadFromFile('c:\windows\desktop\myBmp.bmp');
Jpeg.CompressionQuality:=75;
Jpeg.Assign(BitMap);
Jpeg.SaveToFile('c:\windows\desktop\myjpg.jpg');
finally
BitMap.Free; Jpeg.Free;
end;
end;