Fórum Converter BMP para JPEG #260660

procedure TfrProdutos.aLerFotoExecute(Sender: TObject);
var ImgLoad, ImgReduc : TBitmap ;
    Rect : TRect ;
    CodBarras : String ;
begin
  CodBarras := dsCadastro.DataSet.FieldByName(´CODBARRAS´).AsString ;
  if CodBarras = ´´ then
     raise Exception.Create(´Esse produto não possui Cod.Barras´) ;

  ArqFoto := DirFotos + CodBarras + ´.jpg´ ;
  if OpenDialog1.Execute then
  begin
     ImgLoad  := TBitmap.Create ;
     ImgReduc := TBitmap.Create ;
     try
        ImgLoad.LoadFromFile( OpenDialog1.FileName ) ;

        ImgReduc.Format := ´JPEG´ ;
        ImgReduc.Width   := 300 ;
        ImgReduc.Height  := 250 ;
        Rect.Left := 0 ; Rect.Top := 0 ; Rect.Right := 300 ; Rect.Bottom := 250 ;
        ImgReduc.Canvas.StretchDraw(Rect, ImgLoad );
        
        ImgReduc.SaveToFile( ArqFoto );
        iFoto.Picture.Assign( ImgReduc );
     finally
        ImgLoad.Free ;
        ImgReduc.Free ;
     end ;
  end ;
end;