+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تصدير صورة من قاعدة البيانات وعرضها (/showthread.php?tid=4429)
كيف تصدير صورة من قاعدة البيانات وعرضها - mohammed77 - 06-08-2012
جربت هذا الكود ولم ينجح معي الأمر
Image1.Picture:=ADOTable1.FieldByName( 'img')Assign;
كيف تصدير صورة من قاعدة البيانات وعرضها - format82 - 06-08-2012
ابحث في المنتدي وسوف تجد المزيد
انظر
http://www.delphi4arab.net/forum/showthread.php?tid=6548
http://www.delphi4arab.net/forum/showthread.php?tid=5613
كيف تصدير صورة من قاعدة البيانات وعرضها - mohammed77 - 06-08-2012
مشكور أخي ولكن المشكة تكمن في زر التعديل أي إني أود إسترجاع الصورة على المكون (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 - 10-08-2012
اوصيك باستعمال المفات في التعامل مع الصور وقاعده البيانات
مثلا من اجل التعامل مع الصور في قاعده البيانات استعمل مجلد وسمه الصور
وقم بوضع الصور فيه وسم الصور حسب ارقام قواعد البيانت
وعند ما تريد عرض الصوره قم بالبحث عليها حسب رقم الصوره ورقم الموظف
كود :
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;