السلام عليكم
..
- لدي برنامج بالدلفي يتعامل مع قواعد بيانات SQL Serer 2005 express، ويوجد جدول يتم فيه تخزيم الملفات بجميع أنواعها (MP3, JPG, Txt ,...).
- كيف يمكن حفظ الملف من القاعدة غلى الجهاز باستخدام المكون SaveDialog.
..
كيفية حفظ ملف مخزن في قاعدة بيانات
السلام عليكم
اخي احمد لاحظت ان لا احد من الاخوة اجابك على تسائلك :angry: وبالرغم من أنني مبتدأ في الدلفي ارتايت الا محاولة اجابتك :lol:
ستجد في الملف المرفق مثال على استخدامsavedialog
مع العلم انه لا يوجد عنديsqlserveur لكنني استخدمت قاعدة paradox
واظن انه نفس التطبيق مع sqlserveur
هذا المثال يقوم بحفظ الصورة وملف نصي اما ملفmp3 فعليك استخدامTFileStream وهذا الاخير لا اعرف تطبيقه سلام
تم تعديل هذه المشاركة بواسطة zekiri abdelali في 4 أبريل 2008 في 23:21
تريد الفوز إضغط هنا
اشِهِدي يَا سَمَـا وَاكْتُبَنْ يا وُجـودْ
إنَّـنَـا للِحـمَـا سَنَكُونُ الجُـنُـودْ
فـنَـزيحْ البَـلاَ وَنَـفُـكُّ الْقُيُـودْ
ونَنيلُ الـرِّضـا مِنْ وَفَّى بِالعْهُـودِ
الشيخ عبد الحميد ابن باديس
قمت بكتابة رد بعدها ظهرت لي رسالة خطأ و راح الرد؟
على كل, استخدم TBlobField و ذلك للتحميل(Load) أو للحفظ(Save)
كود لل Load
TBlobField(adotable1.FieldByName('fieldname')).LoadFromFile('anyfilename');كود لل Save
TBLobField(adotable1.FieldByName('fieldname')).SaveToFile('anyfilename');رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
أحمد_ليبيا كتب:TBLobField هل هو متغير يتم تعريفه ام ماذا
هو عبارة عن Class نقوم بعمل Typecast له لكي نستخدم التابعين Loadtofile, Savetofile
هل جربت أن تقوم بما قلته لك؟!
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
أحمد_ليبيا كتب:تظهر رسالة خطأ تفيد بأن TBLobField متغير غير معرف
تأكد من ضم الوحدة DB إلى ال Unit
uses db;
بالنسبة لمثال, ليس هناك وقت لعمله, حاول العمل على الأمر و سوف تنجح:)
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
تأكد من ضم الوحدة DB إلى ال Unit
uses db;
- تم التأكد من تعريف المتغير (Test : TBlobField)
- لكن كيف يتم استخدامه .
------
أحمد_ليبيا كتب:تأكد من ضم الوحدة DB إلى ال Unituses db;
- تم التأكد من تعريف المتغير (Test : TBlobField)
- لكن كيف يتم استخدامه .
اخي احمد , كنت قد كتبت ما يلي في السابق لماذا لم تستطع التطبيق لا ادري!!!!!!
تضع adotable تقوم بربطه مع الجدول الذي يحتوي على الملفات أو Adoquery و تقوم بكتابة تعليمة SQL لجلب الحقول التي تريدها, و من ثم تقوم بالتفعيل
active = true أو open
و بعدها يمكنك استخدام الكود التالي بعد تبديل adotable1 باسم ال Adotable الذي قمت بوضعه أو ال Adoquery و تبديل fieldname باسم الحقل الذي يحتوي على الملف
و تبديل anyfilename باسم الملف الذي سوف يتم حفظه
TBLobField(adotable1.FieldByName('fieldname')).SaveToFile('anyfilename');في حال واجهتك اي مشكلة قم بوضع مثال عن المشكلة, بالتوفيق
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
اسف جدا لعدم الرد بسرعة وذلك بسبب ضيق الوقت, قم بتحويل نوع الحقل في ال SQL server إلى Image بدل من varbinary(100) و من ثم أخبرني بالنتيجة.
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
السلام عليكم..
مشكور على الرد..
..
ولكن قبل ان اجرب ... فقط للعلم سيحمل هذا الحقل جيع انواع الملفا مثلاً (zip,mp3 وغيرها)
..
------
لا يا أخي
إذا كانت العملية مثل ما في paradox فإنه يحمل الا الصور
ماهي المشكلة بالضبط ان لم تكن في نوع الحقل
تم تعديل هذه المشاركة بواسطة أحمد_ليبيا في 26 يونيو 2008 في 23:50
------