Como transformar imagem BMP para JPEG no delphi?

uses Jpeg;  // não esqueça de incluir esta unit

// BmpToJpg
procedure BmpToJpg(FileName: string);
var
  Jpg: TJpegImage;
  Stm: TMemoryStream;
  Bmp: TBitmap;
begin
  if FileExists(FileName) then
    begin
      Bmp := TBitmap.Create;
      Bmp.LoadFromFile(FileName);
      Jpg := TJpegImage.Create;
      Jpg.Assign(Bmp);
      Jpg.Compress;
      Stm := TMemoryStream.Create;
      Jpg.SaveToStream(Stm);
      Stm.Position := 0;
      Stm.SaveToFile(ChangeFileExt(FileName, '.jpg'));
      Stm.Free;
      Jpg.Free;
      Bmp.Free;
    end;
end;

O uso deste procedimento pode ser assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // após a conversão será criado o arquivo Egito.jpg no mesmo diretório
  BmpToJpg('C:\Windows\Egito.bmp');  
end;

O BMP é um tipo de arquivo de imagem descompactado, que é suportado pela maioria dos dispositivos (especialmente dispositivos herdados). Ele contém dados de pixel de imagem quase bruta (por exemplo, 24 bits, RGB). O JPEG é amplamente suportado por causa de sua alta taxa de compactação e formato simples para ler e gravar.

Assim, temos:

procedimento Jpeg2Bmp (const BmpFileName, JpgFileName: string); // olá . com

var

Bmp: TBitmap;

Jpg: TJPEGImage;

início

Bmp: = TBitmap.Create;

Bmp.PixelFormat: = pf32bit;

Jpg: = TJPEGImage.Create;

experimentar

Jpg.LoadFromFile (JpgFileName);

Bmp.Assign (Jpg);

Bmp.SaveToFile (BmpFileName);

finalmente

Jpg.Free;

Bmp.Free;

fim;

fim;

O BMP é um tipo de arquivo de imagem descompactado, que é suportado pela maioria dos dispositivos (especialmente dispositivos herdados). Ele contém dados de pixel de imagem quase bruta (por exemplo, 24 bits, RGB). O JPEG é amplamente suportado por causa de sua alta taxa de compactação e formato simples para ler e gravar.

Assim, temos:

procedimento Jpeg2Bmp (const BmpFileName, JpgFileName: string); // olá . com

var

Bmp: TBitmap;

Jpg: TJPEGImage;

início

Bmp: = TBitmap.Create;

Bmp.PixelFormat: = pf32bit;

Jpg: = TJPEGImage.Create;

experimentar

Jpg.LoadFromFile (JpgFileName);

Bmp.Assign (Jpg);

Bmp.SaveToFile (BmpFileName);

finalmente

Jpg.Free;

Bmp.Free;

fim;

fim;