السلام عليكم و رحمة الله .. درسنا لهذا اليوم هو عن تخزين الصور ذات الصيغة bmp داخل قاعدة بيانات Access
و سأتطرق إن شاء الله في درس آخر عن تخزين أي صيغة مهما كانت ( jpeg - png - .... )
إذا ً لنقم بفتح مشروع جديد في الدلفي
ثم نقوم بربطه بقاعدة بيانات Access تحتوي على الحقول ( ID - Nom - Prénom - Image )
لا تنسو الحقل Image يأخذ Le Type OLE Opject
الآن بعد عملية الربط نفعل الشيئ الموضح في الفيديو ..
هنا قمت بسحب عناصر ADOTable إلى الفورم مباشرة
يصبح الفورم كما يلي
ملاحظة : لاداعي لسحب ID لأنو هو المسؤول عن ترقيم السجلات و هو ترقيم تلقائي
الآن نضيف المكون OpenPictureDialog في الخاصية Filter لهذا المكون نغيرها كما يلي
هذا من أجل جعل المستخدم يختار الصور بصيغة bmp فقط
لنقم الآن بإضافة زر جديد أما المكون DBImage كي نقوم بتحميل الصور من خلاله
و المكون DBGrid و DBNavigator ليصبح تصميم الفورم النهائي بهذا الشكل
الآن إلى صلب موضوعنا هو كيف يمكن تحميل الصورة ؟ إليكم الإجابة
دوبل كليك على الزر و نضع الكود التالي
----------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
----------------------------------------------------------------------------------
هنا نصل إل نهاية موضوعنا أتمنى أن يكون مفهوم للجميع و لم لديه إضافة فل يتفضل
و لأي أسئلة أنا في الخدمة
هذا فيديو لنتيجة ما كنا نقوم به لم يريد المشاهدة
لتحميل ملفات المشروع كاملاً
أو الملف التنفيذي فقط
و ضروري تحميل قاعدة البيانات
مدونة ديزاد سوفت التقنية
0 comments: