Mengecilkan Ukuran Image/gambar di delphi

Hari ini saya akan share source code yang digunakan untuk memperkecil ukuran foto di delphi.
Source code compress file foto di delphi seperti mencari jarum di dalam jerami, agar ada dokumentasi dan mungkin bisa membantu kamu yang sedang mencari bagaimana memperkecil ukuran foto di delphi.

source code compress foto atau memperkecil foto di delphi bisa langsung di copy di bawah ini.

procedure fnSetSizeImage(img : TImage; min : Integer);
var
  w, h : Integer;
begin
  w := img.Bitmap.Width;
  h := img.Bitmap.Height;
  if (w >= min) or (h >= min) then begin
    repeat
      w := Round(w/1.1);
      h := Round(h/1.1);
    until ((w <= min) and (h <= min));
    img.Bitmap.Resize(w , h);
  end;
end;

Jika ada pertanyaan silahkan ajukan di bawah ini.

Share :