如何实现bmp和jpeg格式图片的互相转换及图像质量控制？

请问如何实现bmp和jpeg格式图片的互相转换及图像质量控制？ 问题点数：20、回复次数：2Top

1 楼chinasdp（）回复于 2005-10-19 14:38:39 得分 20

use   jpeg;  
  ]  
  function   BmpToJpg(Bmp:   TBitmap;   Quality:   Integer   =   100):   TJpegImage;  
  begin  
      Result   :=   nil;  
      if   Assigned(Bmp)   then    
      begin  
          Result   :=   TJpegImage.Create;  
          Result.Assign(Bmp);    
          Result.CompressionQuality   :=   Quality;  
          Result.JPEGNeeded;    
          Result.Compress;  
      end;  
  end;  
   
  function   JpgToBmp(Jpg:   TJpegImage):   TBitmap;  
  begin  
      Result   :=   nil;  
      if   Assigned(Jpg)   then    
      begin  
          Result   :=   TBitmap.Create;  
          Jpg.DIBNeeded;    
          Result.Assign(Jpg);    
      end;  
  end;  
   
  Top

2 楼kfb007（坦克）回复于 2005-10-19 16:01:44 得分 0

楼上jpgtoBmp如何控制bmp质量？Top

相关问题

• 图像
• 转换
• jpeg
• 控制
• 质量
• bmp
• jpgtobmp
• tjpegimage
• tbitmap
• jpeg格式图片

• 帖主：kfb007
• chinasdp

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载