delphi中Bmp转Jpeg JPG转BMP – CSDN博客

;—-Bmp转Jpeg—– uses Jpeg;procedure TForm1.Button1Click(Sender: TObject);VarJpg : TJpegImage;BMP : TBitMap ;beginJpg :=TJpegImage.Create;BMP :=TBitmap.Create;BMP.LoadFromFile(H:/Avi_图_Wav/跳.bm

来源: delphi中Bmp转Jpeg JPG转BMP – CSDN博客


;----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;
==========================================================

分享到:更多 ()