將 JPEG 圖片檔轉換成 BMP 格式

bestlong

Convert JPEG to BMP

1. uses JPEG;
   
2. 
   
3. procedure JPEGtoBMP(const FileName: TFileName);
   
4. var
   
5.   jpeg: TJPEGImage;
   
6.   bmp:  TBitmap;
   
7. begin
   
8.   jpeg := TJPEGImage.Create;
   
9.   try
   
10.     jpeg.CompressionQuality := 100; {Default Value}
    
11.     jpeg.LoadFromFile(FileName);
    
12.     bmp := TBitmap.Create;
    
13.     try
    
14.       bmp.Assign(jpeg);
    
15.       bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    
16.     finally
    
17.       bmp.Free
    
18.     end;
    
19.   finally
    
20.     jpeg.Free
    
21.   end;
    
22. end;

複製代碼

bestlong

1. uses Jpeg, ClipBrd;
   
2. 
   
3. procedure TfrmMain.ConvertBMP2JPEG;
   
4. var
   
5.   jpgImg: TJPEGImage;
   
6. begin
   
7.   chrtOutputSingle.CopyToClipboardBitmap;
   
8.   Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
   
9.   jpgImg := TJPEGImage.Create;
   
10.   jpgImg.Assign(Image1.Picture.Bitmap);
    
11.   jpgImg.SaveToFile('TChartExample.jpg');
    
12. end;

複製代碼