[DELPHI] Ridurre le dimensioni di un'immagine

[domk]

Originariamente inviato da massi25

procedure Ridimensiona(AFilename : string);
var
  mBmpSource, mBmpDestination : Tbitmap;
begin
  mBmpSource :=  TBitmap.Create;
  mBmpDestination :=  TBitmap.Create;
  mBmpDestination.PixelFormat := pf24bit;
  try
    mBmpSource.loadfromfile(afilename);

    mBmpDestination.height:= 100;
    mBmpDestination.width := 100;

    mBmpDestination.Canvas.StretchDraw(mBmpDestination.Canvas.ClipRect,mBmpSource);

    mBmpDestination.SaveToFile('tuofile.bmp'):

  finally
    mBmpDestination.Free;
    mBmpSource.Free;
  end;
  
end;

Funziona...nel mio codice ho avuto bisogno solo di mBmpDestination.Canvas.StretchDraw(mBmpDestination .Canvas.ClipRect,mBmpSource);
dove le mie immagini erano di tipo timage ed erano anche jpeg...nonostante ciò mi funziona! Allora xkè dici che con le immagini di tipo Jpeg è più complicato?Ho sbagliato qualcosa?