图形文件转换

操作平台：WIN2K  
      数据库系统：SQL2K  
   
      问题：  
              怎样将JPG格式的图片转换成24位位图来保存？ 问题点数：20、回复次数：2Top

1 楼Carfield（一只特别懒的猫）回复于 2002-03-05 14:51:55 得分 20

function   Bmp2Jpg(Bmp:   TBitmap;   Quality:   Integer   =   100):   TJpegImage;    
   
  begin    
   
      Result   :=   nil;    
   
      if   Assigned(Bmp)    
   
      then   begin    
   
      Result   :=   TJpegImage.Create;    
   
      Result.Assign(Bmp);   {Its   all   folks...}    
   
      Result.CompressionQuality   :=   Quality;    
   
      Result.JPEGNeeded;   {Key   method...}    
   
      Result.Compress;    
   
      end;  
   
  end;  
   
     
   
  function   Jpg2Bmp(Jpg:   TJpegImage):   TBitmap;    
   
  begin    
   
      Result   :=   nil;    
   
      if   Assigned(Jpg)    
   
      then   begin    
   
      Result   :=   TBitmap.Create;    
   
      Jpg.DIBNeeded;   {Key   method...}    
   
      Result.Assign(Jpg);   {Its   all   folks...}    
   
      end;    
   
  end;  
   
  Top

2 楼quark（夸克）回复于 2002-03-05 15:53:43 得分 0

//==============================================================================  
  //转换JPG到BMP格式**************************************************************  
  //==============================================================================  
  procedure   JPG2BMP(const   Source,   Target:string);  
  var   JPG:   TJpegImage;  
          BMP:   TBitmap;  
  begin  
      BMP   :=   TBitmap.Create;  
      JPG   :=   TJpegImage.Create;  
      try  
          JPG.LoadFromFile(Source);  
          BMP.Assign(JPG);  
          BMP.SaveToFile(Target);  
      finally  
          BMP.free;  
          JPG.Free;  
      end;  
  end;  
   
  //==============================================================================  
  //转换BMP到JPG格式**************************************************************  
  //==============================================================================  
  procedure   BMP2JPG(const   Source,   Target:string;   const   Scale:   Byte);  
  var   Image:   TImage;  
          JPG:   TJpegImage;  
  begin  
      Image   :=   TImage.Create(Application);  
      JPG   :=   TJpegImage.Create;  
      try  
          Image.Picture.Bitmap.LoadFromFile(Source);  
          JPG.Assign(Image.Picture.Bitmap);  
          JPG.CompressionQuality   :=   Scale;  
          JPG.Compress;  
          JPG.SaveToFile(Target);  
      finally  
          Image.free;  
          JPG.Free;  
      end;  
  end;  
   
  Top

相关问题

• 转换
• source
• jpg
• tjpegimage
• bmp
• tbitmap
• assign
• 格式
• result
• begin

• 帖主：acdmax
• Carfield

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