تغییر سایز عکس در دلفی

دوستان میخاهم از طریق دلفی عکس در دیتابیس ذخیره کنم
حال سوال این است با چه کد و دستوراتی باید مشخص کنم که هر عکس که کاربر وارد کرد با هر سایز و اندازه برنامه اونو تبدیل کنه مثلا به 200 در 200 پیکسل و حجم مثلا 100 کیلو بایت ؟ یه جورایی یه کانورتور میخام که هر عکسی که وارد شد اونو تغیر سایز و حجم بده ممنون میشم راهنمایی کنید

https://stackoverflow.com/questions/...size-a-picture

نقل قول:

---

نوشته شده توسط afshinrz

دوستان میخاهم از طریق دلفی عکس در دیتابیس ذخیره کنم
حال سوال این است با چه کد و دستوراتی باید مشخص کنم که هر عکس که کاربر وارد کرد با هر سایز و اندازه برنامه اونو تبدیل کنه مثلا به 200 در 200 پیکسل و حجم مثلا 100 کیلو بایت ؟ یه جورایی یه کانورتور میخام که هر عکسی که وارد شد اونو تغیر سایز و حجم بده ممنون میشم راهنمایی کنید

---

procedure ResizeBitmap(Bitmap: TBitmap; const NewWidth, NewHeight: integer);

var

  buffer: TBitmap;

begin

  buffer := TBitmap.Create;

  try

    buffer.SetSize(NewWidth, NewHeight);

    buffer.Canvas.StretchDraw(Rect(0, 0, NewWidth, NewHeight), Bitmap);

    Bitmap.SetSize(NewWidth, NewHeight);

    Bitmap.Canvas.Draw(0, 0, buffer);

  finally

    buffer.Free;

  end;

end;