关于压缩图片的控件

菜鸟先飞888 2004-11-22 03:40:35

谁有压缩图片的控件，感谢！

最好有PB源码，如有BMP转JPG就更好了

先谢过了

...全文

181 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

菜鸟先飞888 2004-11-24

打赏
举报

发了没有哟，我还没有收到呢

zhangdatou 2004-11-23

打赏
举报

来看看~~~路过的给我2分我就升级啦

WorldMobile 2004-11-22

打赏
举报

明天再发给你吧，今天太忙，呵呵

WorldMobile 2004-11-22

打赏
举报

给你写个，不过你就20分，好像太少了，建议你加点分

一会就发给你

菜鸟先飞888 2004-11-22

打赏
举报

谢谢楼上兄弟，我没有delphi怎么办？
有没有现成的呢？

WorldMobile 2004-11-22

打赏
举报

delphi代码，你直接写一个OCX即可实现你的要求

WorldMobile 2004-11-22

打赏
举报

用Delphi写个控件，很简单的，给你段代码
procedure TForm1.Button1Click(Sender: TObject);
(*压缩MBP为JPEG;但是没有提供压缩比可选项
凑合用吧，大概1/3 ^_^:
Note:必须加上JPEG到Uses单元
*)
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile('e:\lm.BMP'); //你的图片位置
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
CompressionQuality:=10; //压缩比例
Compress;
SaveToFile('e:\lm01.JPEG');//保存路径……
Free;
end;
finally
Free;
end;
end;