delphi4arab منتديات دلفي للعرب
تحرير حافظة الصور - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحرير حافظة الصور (/showthread.php?tid=3199)

الصفحات: 1 2


تحرير حافظة الصور - youcef91 - 16-06-2011

السلام عليكم و رحمة الله و بركاته

أخواني أنا أقوم بادخال صورة الى قاعدة البيانات باستخدام الحافظة

PHP كود :
if OpenPictureDialog1.Execute then begin
 DBImage1
.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 
DBImage1.CopyToClipboard ;
DBImage1.PasteFromClipboard ;
 
end; 

و كلما حذفت الصور أو غيرتها بواسطة البرنامج
تزيد حجم قاعدة البيانات
رغم اني أعمل update فقط بلا اضافة

كيف يمكنني تحرير الحافظة او التعامل معها
وشكرا لكم


تحرير حافظة الصور - kachwahed - 16-06-2011

وعليكم السلام ورحمة الله وبركاته
جرب قبل الحذف
PHP كود :
DBImage1.Picture := nil; 
بالتوفيق.



تحرير حافظة الصور - youcef91 - 16-06-2011

لم ينجح اخي
مازالت القاعدة تزيد حجمها


تحرير حافظة الصور - لؤي - 16-06-2011

youcef91 كتب :رغم اني أعمل update فقط بلا اضافة
وشكرا لكم

كيف تقوم بوضع الـ update ؟هل عن طريق كود أم أنك تحذف القديم و تضيف الجديد مباشرة من dbimage إن كانت الثانية فبطبيعة الحال تبقى قاعدتك دائما في الزيادة بالرغم من الحذف


تحرير حافظة الصور - Lam.Abdeldjalil - 16-06-2011

السلام عليكم

إقتباس :و كلما حذفت الصور أو غيرتها بواسطة البرنامج
ربما الصورة المضافة | المعدلة أكبر من الموجودة سابقا !
+ أكتب الكود المستعمل في الحذف ..

بالتوفيق


تحرير حافظة الصور - youcef91 - 16-06-2011

في حدث الضغط على dbimage
PHP كود :
ADOTable1.Edit;
if 
OpenPictureDialog1.Execute then
dbimage1
.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DBImage1.CopyToClipboard;
DBImage1.PasteFromClipboard;
ADOTable1.post; 

علما ان القاعدة هي أكسس
و الصورة المعدلة صغيرة الحجم لكن القاعدة تزيد اضعاف لها


تحرير حافظة الصور - Lam.Abdeldjalil - 16-06-2011

السلام عليكم

ما فائدة السطرين ؟
كود :
DBImage1.CopyToClipboard; DBImage1.PasteFromClipboard;
الصافي Smile
كود :
ADOTable1.Edit; if OpenPictureDialog1.Execute then dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); ADOTable1.post;
بالتوفيق


تحرير حافظة الصور - youcef91 - 16-06-2011

يا أخي هكذا لن يعمل شيئ و لن يضيف
لان السطرين السابقين يحولان اي صورة الى نوع bmp
و هو النوع المقبول في حقول القاعدة


تحرير حافظة الصور - Lam.Abdeldjalil - 16-06-2011

حسبتك تستعمل bmp فقط Big Grin

للعلم أن التحويل إلى الـ bmp يزيد من حجم الصورة
انظر أيضا [B]ضغط الصور في دلفي [/B]

بالتوفيق


تحرير حافظة الصور - youcef91 - 16-06-2011

بارك الله فيك أخي و شكرا على الافادة الرائعه
لكن عملية التحويل تكون عادي عندي لا مشكل
لكن لو عدلت الصورة بنفس الصورة سيزيد الحجم و لو كررت ذلك عدة مرات سيزيد الحجم أكثر
هنا يكمن استفساري
و شكرا لكم