397
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
菜鸟先飞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;
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;
