فتح ملف word موجود داخل قاعدة البيانات
#11

1- تختار الuser
2- زر لاضافة ملف
3- زر لاستخراج الملف
جرب المرفق


الملفات المرفقة
.rar   delphi open winword.rar (الحجم : 4.73 ك ب / التحميلات : 27)
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
[-] كل من 1 user says قال شكرا ل محمد عبد العزيز على المشاركة المفيدة
  • Med-01
الرد
#12
(07-10-2017, 11:23 AM)B.M.AbdelAziZ كتب :
1- تختار الuser
2- زر لاضافة ملف
3- زر لاستخراج الملف
جرب المرفق

اهلا اخي AbdelAziZ

حينما اختر الملف عن طريق االزر الذي انشأته word-<DB
واضغط على الزر-word<DB لا اجد انه تم اضافته داخل قاعدة البيانات  كما انه لا يتم فتح الملف



[صورة: 636911abd.png]
شكرا كتيرااااااااااااااا على مجهودلك في ميزان حسناتك ان شاء الله :blush:
الرد
#13
يا اخي انت تدور في حلقة
لا تستخدم Access لفتح الملف
هناك زرين، واحد لحفظ الملف واخر لاستراجه
لفتح الملف عليك باستخراجه باستخدم الزر الثاني، تجد ملف File.doc بنفس مكان تنفيذ البرنامج
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
[-] كل من 1 user says قال شكرا ل محمد عبد العزيز على المشاركة المفيدة
  • Med-01
الرد
#14
B.M.AbdelAziZيا اخي انت تدور في حلقة
لا تستخدم Access لفتح الملف
هناك زرين، واحد لحفظ الملف واخر لاستراجه
لفتح الملف عليك باستخراجه باستخدم الزر الثاني، تجد ملف File.doc بنفس مكان تنفيذ البرنامج

اهلا اخي AbdelAziZ اعتدت على فتح الاكسس للاضافة   Tongue 


شكراااا جزيلا اخي AbdelAziZ  جعلها الله في ميزان حسناتك ساعدتني كثيرااا Blush

سؤال خطر في بالي عندما اقوم بتعديل ملف ما وحفظه لما لا يتم حفظه تقائيا لما يجب ان اعود للبرنامج واختر opendialog من جديد ليتم الحفظ

خطر في بالي انه بمجردالضغط على زر DB->Word يتم اعادة تسمية ملف  file حسب id الخاص ب user وبمجرد حدوث تغير في ملف
يقوم البرنامج بالشعور بحالة التغير في الملف  ويقوم تلقائيا باعادة حفظه اعتمادا على id الملف لانه ادا لم يعتمد على Id قد تحدث كارثة
ويتم خلص ملف file بين user

وجزاك الله خيرااا


التغيرات التي سيعتمد عليه البرنامج حفض الملف

[صورة: 706645cccc.png]
سؤال اخر هل ستتحمل قاعدة البيانات ملفات word يعني لن يحدث مشكل ام انه يجب الاكتفاء بعدد معين وشكرااااا
الرد
#15
هناك عدة أمور ينبغي اخذها بعين الاعتبار ما يخطر ببالي الان:
- تتحقق من تثبيت/وجود Microsoft WinWord أو اي برنامج أخر يمكن التعامل مع اللاحقة/الصيغة .DOC
- تتحقق من وجود صلاحيات الكتابة في مكان/مجلد انشاء الملف في حالة عدم وجودها يمكن استخدام مجلد الملفات المؤقتة TEMP طبعا بعد الحصول على مكانه
- بعد استخراج الملف استدعاء WinWord او غيره لفتح الملف ثم انتظار انتهائه وربما التحقق من تاريخ الملف لاعادة حفظه بالقاعدة في حالة تعديله

امكانية حدوث خطا وردة وربما احسن استخدام بديل عن WinWord واستخدام اي مكون اخر يعرض المحتوى داخل برنامجك.

بالنسبة لتحمل قاعدة البيانات ممكن لكن كثرة العدد والحجم يؤثر على سرعة قاعدة البيانات
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#16
اهلا اخي عبد العزيز


 - تتحقق من تثبيت/وجود Microsoft WinWord أو اي برنامج أخر يمكن التعامل مع اللاحقة/الصيغة .DOC
بخصوص التحقق من تنصيب الاوفيس

كود :
Var FileName, Param, FormatParam:OleVariant;


كود :
begin Try WordApplication1.Connect; Except MessageDlg('Word may not be installed', mtError, [mbOk], 0); Abort; End;
من لديه مشكلة مع
WordApplication1 الحل من هنا
من لم يفهم يراسلي لاحل له المشكلة لانه في الاصدارات القديمة تعمل متل delphi 7 اما في xe2 ..xe8
فيجب ضبطها


- تتحقق من وجود صلاحيات الكتابة في مكان/مجلد انشاء الملف في حالة عدم وجودها يمكن استخدام مجلد الملفات المؤقتة TEMP طبعا بعد الحصول على مكانه
لم اتوصل اليها لاني لم اواجه مشكلة في الكتابة تقريبا اي جهاز ستكون الكتابة فيه ممكنة

- بعد استخراج الملف استدعاء WinWord او غيره لفتح الملف ثم انتظار انتهائه وربما التحقق من تاريخ الملف لاعادة حفظه بالقاعدة في حالة تعديله

هذا ما ابحث عنه اعادة الحفظ بتحقق من وقت الملف عند خروجه من قاعدة البيانات وبعد التعديل عليه وحفظ اكيد سيتغير
كيف اقوم بإستراج هدا الوقت وحفظه في متغير ثم مطابقتة هل تغير ام لا ادا نعم يتم الحفط على الفور اذا لا يبقى على حاله

[صورة: 706645cccc.png]
 
امكانية حدوث خطا وردة وربما احسن استخدام بديل عن WinWord واستخدام اي مكون اخر يعرض المحتوى داخل برنامجك.
لماذا قد يحدث خطأ Angel  ؟

وشكراااااااااااااااااااا
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم