delphi中Bmp转Jpeg JPG转BMP

delphi中Bmp转Jpeg JPG转BMP

转自

xjq2003的专栏

在此致谢

<script type="text/javascript"> document.body.oncopy = function() { if (window.clipboardData) { setTimeout(function() { var text = clipboardData.getData("text"); if (text && text.length>300) { text = text + "/r/n/n本文来自CSDN博客，转载请标明出处：" + location.href; clipboardData.setData("text", text); } }, 100); } } </script> <script>function StorePage(){d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.365key.com/storeit.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));keyit.focus();}</script> ;----Bmp转Jpeg-----

uses Jpeg;
procedure TForm1.Button1Click(Sender: TObject);
Var
Jpg : TJpegImage;
BMP : TBitMap ;
begin
Jpg :=TJpegImage.Create;
BMP :=TBitmap.Create;
BMP.LoadFromFile('H:/Avi_图_Wav/跳.bmp');
Jpg.Assign(BMP);
Jpg.SaveToFile('H:/Avi_图_Wav/跳.Jpg' );
BMP.Free ;
Jpg.Free;
end;

//---------------JPG转BMP-----------------

 procedure TForm1.Button1Click(Sender: TObject);
 var
   MyJPEG : TJPEGImage;
   MyBMP : TBitmap;
 begin
   MyJPEG := TJPEGImage.Create;
   with MyJPEG do begin
     LoadFromFile('UwJpegHier.JPEG');
     MyBMP := TBitmap.Create;
     with MyBMP do begin
       Width := MyJPEG.Width;
       Height := MyJPEG.Height;
       Canvas.Draw(0,0,MyJPEG);
       SaveToFile('UwBmpHier.BMP');
       Free;
     end;
     Free;
   end;
 end;
===========================================================
//JPEG and bitmaps
var
  MyJpeg: TJpegImage;
  Image1: TImage;
begin
  Image1:= TImage.Create;
  MyJpeg:= TJpegImage.Create;
  Image1.LoadFromFile('TestImage.BMP');  // Load the Bitmap from a file
  MyJpeg.Assign(Image1.Picture.Bitmap);  // Assign the BitMap to MyJpeg
object
  MyJpeg.SaveToFile('MyJPEGImage.JPG'); // Save the JPEG to Disk
end;
----------------------------------------
 jpg 转换成 bmp
...convert jpg to bmp ?

Var 
  jpeg: TJPEGImage; 
  bmp: TBitmap; 
Begin 
  jpeg:= TJPEGImage.Create; 
  try 
    jpeg.LoadFromFile( filename ); 
    bmp:= TBitmap.Create; 
    try 
      bmp.Assign( jpeg ); 
      bmp.SaveTofile( ChangeFileExt( filename, '.BMP' )); 
    finally 
      bmp.free 
    end; 
  finally 
    jpeg.free 
  end; 
end;
-------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  bmp : TBitmap;
  jpg : TJpegImage;
begin
  bmp := TBitmap.Create;
  jpg := TJpegImage.Create;
  jpg.LoadFromFile ( 'G:/VCL/Menu_Directory/彩色面版/RIVER.JPG ' );
   bmp.Assign( Jpg);
   bmp.SaveToFile ( 'G:/VCL/Menu_Directory/彩色面版/RIVER.bmp' );
  jpg.Free;
  bmp.Free;
end;
---------------------------------
convert jpg to bmp ?
Var jpeg: TJPEGImage;
  bmp: TBitmap;
Begin
  jpeg:= TJPEGImage.Create;
  try jpeg.LoadFromFile( filename );
    bmp:= TBitmap.Create;
    try bmp.Assign( jpeg );
      bmp.SaveTofile( ChangeFileExt( filename, '.BMP' ));
    finally
      bmp.free
    end; finally
     jpeg.free
  end;
end;