REDIMENSIONNER UNE IMAGE JPEG

procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);
var
  Bitmap: TBitmap;
  Ratio: double;
begin
  {Si l'image est vide ou la largeur est nulle, sortir}
  if (srcJpeg.Empty) or (MaxSize <= 0) then
    Exit;

    { Création d'un TBitmap le temps de redimensionner l'image }
    Bitmap := TBitmap.Create;
    try
      { Détermination du cadrage Vertical ou horizontal}
      Ratio := srcJpeg.Height / srcJpeg.Width;
      if Ratio > 1 then
        //Cadrage vertical
        Bitmap.Width := Round(MaxSize / Ratio)
      else
        //cadrage horizontal
        Bitmap.Width := MaxSize;
      Bitmap.Height := Round(Bitmap.Width * Ratio);
      //Copie de l'image avec redimensionnement sur le canvas du TBitmap
      Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect, srcJpeg);
      {Il ne reste plus qu'à copier l'image redimensionnée dan le Jpeg
      à retourner}
      destJpeg.Assign(Bitmap);
    finally
      Bitmap.Free;
    end;
end;

//exemple d'utilisation
procedure TUseBlobsDemoForm.btnLoadImageClick(Sender: TObject);
var
  JpegStream: TStream;
  Jpeg, JpegTemp: TJpegImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    ImgExt := UpperCase(ExtractFileExt(OpenPictureDialog1.FileName));

    if (ImgExt = '.JPG') or (ImgExt = '.JPEG') then
    begin
      JpegTemp := TJpegImage.Create;
      try
        Jpeg := TJpegImage.Create;
        try
          //charger l'image
          Jpeg.LoadFromFile(OpenPictureDialog1.FileName);
          // la redimensionner
          ResizeJpeg( Jpeg, JpegTemp, ImgMaxWidth);
          // l'affecter au contrôle visuel
          Image1.Picture.Assign(JpegTemp);
        finally
          Jpeg.Free;         
        end;
      finally
        JpegTemp.Free;
      end;
    end;
    // afficher les dimensions de la nouvelle image
    with Image1 do
      lblImage.Caption := Format('Image : %d x %d (Hxl)',[Picture.Height, Picture.Width]);
  end;
end;