كيفية فتح ملف أي نوع من خلال الفورم

[abbas79]

السلام عليكم ورحمة الله وبركاته

ألى الأخوه ذوي الخبره
أرجو المساعده في أيضاح كيفية فتح أي ملف من أي نوع ( وورد أو بي دي أف....) أو أي شئ
وذلك عن طريق الفورم

علما أن مسار الملف محفوظ في حقل في الجدول وأريد أستعراض الملف

فهل هناك وسيله علما أني أعمل على dev6i
أرجو الرد فهو مهم جدا جدا جدا

مع جزيل الشكر

[MORSAL55]

أخي العزيز السلام عليكم:
1-أولا يجب عليك أن تقوم بنسخ d2kwut60.dll إلىORACLE HOME \BIN ثم فتح D2kcomn.pll و D2kwutil.pll من الفورم ونسخ كل الPACKAGES الضرورية لتشغيل الفورم الى الفورم التي أنشأتها ،سوف يدلك الفورم نفسه عندما تعمل COMPILE .(هذه المكتبة: تجدها d2kwut60.dll في هذا الموقع الرائع مع كل ملحقاتها)
2-قم يإنشاء BLOCK طبعأ أنت تريد أن يفتح الملف من مسار محفوظ في جدول معين لذلك قم بإنشاء هذا الBLOCK إعتمادا على هذا الجدول لتفترض أن هذا الجدول إسمه EQUIPMENT وإسم الحقل الذي سوف تخزن فيه الURL أو ال PATH إسمه:PATH.
3-الأن قم بإضافة زرين PUSH BUTTON الى هذا ال BLOCK الأول إسمه على سبيل المثال :Browse والثاني إسمه PREVIEW.
4-أضف TRIGGER:WHEN-BUTTON-PRESSED الى زر Browse:وقم بكتابة الكود التالي:

begin
:EQUIPMENT.PATH := Win_API_Dialog.Open_File('Select File to Open', '$WINDIR$', 'All Files(*.*)|*.*|');

end;

هذا الكود هو لفتح أي ملف من الويندوز والمسار الإفتراضي هو C:\WINDOWS
5-أضف TRIGGER:WHEN-BUTTON-PRESSED في زر PREVIEW :قم بكتابة الكود التالي:

begin 
COMMIT;
win_api_shell.startfile(:EQUIPMENT.PATH);

end;

6-الأن شغل الفورم وقم بالنقر على زر Browse ثم اختار الملف الذي تريد تشغيله ثم أنقر على زر PREVIEW
هذه طريقة مجربة معي وهي شغالة مئة بالمئة وتشغل أي ملف تريده.ويوجد ميزات كثيرة ورائعة شغل الفورم المرفقة مع المكتبة وسوف تستفيد كثيرا.
وجزاكم الله كل خير والشكر كل الشكر لمشرفي هذا الموقع الرائع علماً أنا بالصدفة دخلت عليه مؤخراًوأستفدت منه كثيراً :أخوكم بالله: المهندس مرسل الزين من سورية .

[hashemhbg]

بارك الله فيك....استفدنا من هذا الموضوع كثيرا