[DELPHI] Ridurre le dimensioni di un'immagine

[massi25]

Immagino che per capacità tu intenda dimensione...

Intanto supponiamo che siano bitmap altrimenti e' un po' piu' complicato...

Magari questo stralcio di codice ti puo dare una spinta...

(attenzione che non l'ho provato)

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;

Ciao
Massimiliano