كيف تصدير صورة من قاعدة البيانات وعرضها

[mohammed77]

جربت هذا الكود ولم ينجح معي الأمر

Image1.Picture:=ADOTable1.FieldByName( 'img')Assign;

[format82]

ابحث في المنتدي وسوف تجد المزيد
انظر
http://www.delphi4arab.net/forum/showthr...p?tid=6548
http://www.delphi4arab.net/forum/showthr...p?tid=5613

[mohammed77]

مشكور أخي ولكن المشكة تكمن في زر التعديل أي إني أود إسترجاع الصورة على المكون (Image1) من قاعده البيانات

item_name.Text:=adotable1.fieldbyname('item_name').AsString ; هذا الامر يسترجع إسم الصنف
item_type.Text:=adotable1.fieldbyname('item_type').AsString; وهذا يسترجع النوع
quantity.Text:=adotable1.fieldbyname('quantity').AsString; وهذا يسترجع الكمية
كيف أقم بإسترجاع صورة الصنف؟

[laoubi_adel]

اوصيك باستعمال المفات في التعامل مع الصور وقاعده البيانات
مثلا من اجل التعامل مع الصور في قاعده البيانات استعمل مجلد وسمه الصور
وقم بوضع الصور فيه وسم الصور حسب ارقام قواعد البيانت
وعند ما تريد عرض الصوره قم بالبحث عليها حسب رقم الصوره ورقم الموظف

كود :

begin if ADOTable1.RecordCount>0 then begin if FileExists('d:\hpp\mastere\'+ ADOTable1cl .AsString+'.bmp') then begin Image1.Picture.LoadFromFile('d:\hpp\mastere\'+ADOTable1.FieldbyName('clé').AsString+'.bmp') ; end else begin Image1.Picture.LoadFromFile('d:\hpp\mastere\vide.bmp') ; end; end;