+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف احفظ صورة في قاعدة sql ؟ (/showthread.php?tid=5947)
كيف احفظ صورة في قاعدة sql ؟ - أحمد 13 - 15-02-2014
السلام عليكم
عندي جدول مسميه
![[صورة: geosg.png]](http://im33.gulfup.com/geosg.png)
و أود حفظ فيه صورة علما اعمل بقاعدة SQL server 2005
للاشارة جربت الكود التالي و لا يقبله
كود :
var
Im: TPicture;
sExt, sFileName: string;
begin
dm.Typebien.insert;
if OpenPictureDialog1.Execute then begin
sFileName := OpenPictureDialog1.FileName;
sExt := UpperCase(ExtractFileExt(sFileName));
if (sExt = '.JPEG') or (sExt = '.JPG') then
begin
Im := TPicture.Create;
Im.LoadFromFile(sFileName);
DBImage1.Picture.Bitmap.Assign(Im.Graphic);
Im.Free;
dm.Typebien.Post ;
end
else
if (sExt = '.BMP') then
DBImage1.Picture.LoadFromFile(sFileName)
else ShowMessage('Error');
end;هده اول مرة اطبق حفظ صورة في قاعدة بيانات و قد بحثث بخاصية البحث و جربت الكثير من الاكود دون جدوى
و اتمنى لو تبسطوا لي الأمر و جزاكم الله خيرا و نفع الله بكم ان شاء الله
كيف احفظ صورة في قاعدة sql ؟ - أبو معاذ - 17-02-2014
[INDENT]
وعليكم السلام و رحمة الله وبركاته ،
شخصيا أستعمل قاعدة بيانات Interbase و الحقل الذي أخزن فيه الصور من نوع Blob . و أستعمل الكود التالي :
كود :
MyQuery1.ParamByName('IMAGEARTICLES1').LoadFromFile(OpenDialog1.FileName, ftBlob);وجدت في بعض المنتديات الأكواد التالية ممكن تساعدك :
كود :
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
MonQuery.FieldByName('champ_blob').Assign(Image1.Picture.Bitmap);
end;[/INDENT]