تخزين صورة في قاعدة بيانات

أخي السلام عليكم

هناك طرق عديدة لعمل ذلك

واليك الطريقة التي استخدمها

1-إضافة Open Picture Dialog1 الى الفورم

2-أضافة Image1 الى الفورم

3-في On click على خانة أدخال الصورة في DBEdit1 المخصص لادخال الصورة في قاعدة البيانات

تكتب الامر التالي

var

currentfile:Tfilename;

Begin

if OpenPictureDialog1.execute then

begin

currentfile:=OpenPictureDialog1.filename;

Image1.Picture.Loadfromfile(currentfile);

DBImage1.Picture:=Image1.Picture;

end;

end;