如何压缩 bmp jpg图片(100分)

如何通过代码压缩已知的 bmp和jpeg格式的图片

调用compress_picture
compress_graphics ,至于他们嘛,自己写,google一下

jpg的压缩率已经很高了,再压缩就有损图像质量了,bmp转换为jpg是个好方法

jpeg已经是压缩的格式了，压缩比也很高！
引用jpeg单元，delphi自带的！把bmp转换成jpeg就好了！

procedure TfrmLevelPic.SaveAsJPG(FnameMap:string) ;
var
jp: TJPEGImage;
begin
jp := TJPEGImage.Create;
try
with jp do
begin
jp.CompressionQuality := 75;
jp.Compress ;
Assign(Image1.Picture.Bitmap);
SaveToFile(FnameMap+'.jpg');
end;
finally
jp.Free;
end;
end;
////---读入方法如下:
procedure TfrmLevelPic.OpenJPGInImage(Fnamemap:string);
var
jp: TJPEGImage;
begin
jp := TJPEGImage.Create;
jp.LoadFromFile(Fnamemap);
try
with jp do
begin
Image1.Picture.Bitmap.Assign(jp);
end;
finally
jp.Free;
end;
end;