نقل قول از javad_rajabloo
کد مربوط به تبدیل اینه

var
*MyJPEG : TJPEGImage;
*MyBMP* : TBitmap;
begin
*MyBMP := TBitmap.Create;
*with MyBMP do
** try
**** {Cargamos el BMP}
**** {Load the BMP}
**** LoadFromFile("filename.bmp"
**** MyJPEG := TJPEGImage.Create;
**** with MyJPEG do begin
****** Assign(MyBMP);
****** {Grabamos el JPG}
****** {Save the JPG}
****** SaveToFile("filename.JPG"
****** Free;
**** end;
** finally
**** Free;
** end
end;
البته این کد ، فایل bmp رو به jpg تبدیل میکنه و حجمش رو خیلی پایین میاره

این کامپوننت هم یک db image هست که با اونی که داخل خود دلفی هست فرق میکنه و فرقش هم اینه که فایلهای jpg رو ساپورت می کنه
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]





به خاطر کد ممنون
ولی مشکل من بعد از این شروع میشه
چون هرچقدر هم حجم عکسم کم بشه حجم دیتابیس چندین برابر اون بالا میره