التعامل مع الصور من نوع JPEG او JPG في قواعد البينات بالدلفي
في هذا الدرس الخاص بالدلفي من سلسلة دروس وافكار
برمجية في الدلفي هذه المرة مع درس ادراج صور في قاعدة البيانات من نوع Jpg او jpeg
طبعا الدلفي و مع التطور اصبحت هناك عدة
محركات لقواعد البيانات متطورة جدا
اليوم و في هذا الدرس سنقوم بتطبيق صغير على قاعدتي بيانات مختلفة BMPاما عن امتداد الصور فالدلفي يقبل فقط
الصيغة
Access الأولى و المشهورة جدا هي
AbsoluteDataBase و الثانية هي
Test طبعا سنقوم اولا بإنشاء قاعدتي البيانات و
التي سنسميها في الحالتين
وستكون الحقول عبارة عن :الرقم - الاسم - اللقب - تاريخ الميلاد - مكان
الميلاد - الصورة
قاعدة البينات Access :
نفتح البرنامج ثم نختار قاعدة البيانات على MicroSoft access format 2002-2003 و التي نحفظها بهذا الإمتداد ليتسنى لبرنامج الدلفي و عن طريق مكونات Ado ايجاد الدرايفر المناسب لربط قاعدة البيانات بالدلفي
الأن سنقوم بإنشاء حقول قاعدة البيانات و التي ذكرناها في السابق
الأن سنقوم بإنشاء القاعدة الثانية و الخاصة بمحرك قواعد البيانات AbsoluteDataBase
و عن طريق DBmnager
الأن سنحاول ملئ حقول قاعدة البيانات و التي ذكرناها في السابق
بعد ان انشأنا قاعدتي البيانات نقوم بفتح مشروع جديد في الدلفي و نضع المكونات اللازمة لذلك ثم سنحول ربطهما
مع مكوناتهما في الدلفي
تم ربط القاعدة الأولى بنجاح الآن سنحاول الآن ربط قاعدة البيانات الثانية
تم ربط القاعدتين كما في الصورة السابقة و نلاحظ ظهور جميع الحقول في الجدولين
الأن سنقوم بتجهيز الفورم بوضع المكونات الأساسية الخاصة بقواعد البيانات
spSkinDBEdit
spSkinDBDateEdit
spSkinDBImage
DBNavigator
spSkinButton
و ربطها مع الحقول عن طريق مكون Datasource
وبعد ضبط جميع الإعدادات سنحصل على التالي
ثم نضيف مكون spSkinOpenPictureDialog
و نضع له الفلاتر الخاصة بالإمتداد JPG و JPEG
*.jpg;*.jpeg|*.jpg;*.jpeg;|*.png_old|Fichier image JPEG (*.jpg)|*.jpg|Fichier image JPEG (*.jpeg)|*.jpeg
الأن جاء وقت برمجة جميع الأزرار و هي كالآتي :
الزر الخاص بإضافة الصورة و نضع القيم التالية
procedure TForm1.spSkinButton2Click(Sender: TObject);
var
Im: TPicture;
sExt, sFileName: string;
begin
ADOTable1.Edit;
ABSTable1.Edit;
if spSkinOpenPictureDialog1.Execute then
begin
sFileName := spSkinOpenPictureDialog1.FileName;
sExt := UpperCase(ExtractFileExt(sFileName));
if (sExt = '.JPEG') or (sExt = '.JPG') then
begin
Im := TPicture.Create;
Im.LoadFromFile(sFileName);
spSkinDBImage1.Picture.Bitmap.Assign(Im.Graphic);
Im.Free;
end ;
end;
end;
ثم ندهب الى الزر الخاص بالإضافة و نضيف القيم التالية
ADOTable1.Insert;
ADOTable1.edit;
ABSTable1.Insert;
ABSTable1.edit;
ثم ندهب الى الزر الخاص بتأكيد الإضافة و نضع القيم التالية
ADOTable1.post;
ABSTable1.post;
الأن نقوم بتنفيذ البرنامج و نضيف سجلات الى قاعدتي البيانات
فنحصل بعد اضفة السجلات على صور داخل قاعة البيانات بصيغة او امتداد
JPEG -JPG
البرنامج يعمل بكفاءة اتمنى اني لم اطل في الشرح و اتمنى اني قد وفقت
قد يعجبك ايضا