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

[afshinrz]

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

[masoode]

https://stackoverflow.com/questions/8111447/how-to-resize-a-picture

[دلفــي]

دوستان میخاهم از طریق دلفی عکس در دیتابیس ذخیره کنم
حال سوال این است با چه کد و دستوراتی باید مشخص کنم که هر عکس که کاربر وارد کرد با هر سایز و اندازه برنامه اونو تبدیل کنه مثلا به 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;