delphi4arab منتديات دلفي للعرب
عرض ملفات pdf في برنامجي,, كيف؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عرض ملفات pdf في برنامجي,, كيف؟ (/showthread.php?tid=992)

الصفحات: 1 2


عرض ملفات pdf في برنامجي,, كيف؟ - AL-MOB4RM3G - 27-06-2009

السلام عليكم ورمة الله

اخواني الكرام,, سلام الله عليكم اجمعين,,

كما هو العنوان واضح,, كيف يتم عرض ملفات البي دي اف في برنامجي بارك الله لكم؟

هل هناك مكون لذلك ام طريقة اخرى ؟

شكرا لكم


عرض ملفات pdf في برنامجي,, كيف؟ - AL-MOB4RM3G - 27-06-2009

نعم,, نسيت ان اقول انني استخدم دلفي 2009 بارك الله فيكم


عرض ملفات pdf في برنامجي,, كيف؟ - kachwahed - 27-06-2009

مجرد ActiveX ثبته واستعمله.
إبحث في موضوع Delcode Delphi Exemple ستجد شرح بالصور.



عرض ملفات pdf في برنامجي,, كيف؟ - AL-MOB4RM3G - 27-06-2009

kachwahed كتب :مجرد ActiveX ثبته واستعمله.
إبحث في موضوع Delcode Delphi Exemple ستجد شرح بالصور.

بارك الله لك,, تم التثبيت الآن ولله الحمد,,

طيب اخي الكريم,, وآجهتني مشكلة مع هذا المكون,, وهو انه يريد مسار الملف كامل,, فهل من طريقة لعمل غير هذا,, يعني ان يأخذ مسار الملف مبآشرة,,

مثال على ما **** عمله,,

في الحدث onCreate للفورم يعمل لود لملف موجود في نفس مسار الملف التنفيذي و اسمه 1.pdf ;;


هذا هو الكود الذي احاول استخدامه,,

PHP كود :
acroPdf1.src:= '1.pdf'; 

لكن هذا الكود لا ينفع,, يود المسار الكامل,, يعي انطلاقا من ال C:/ او D

بارك الله فيكم جميعا


عرض ملفات pdf في برنامجي,, كيف؟ - kachwahed - 27-06-2009

إذا كان ملف pdf في نفس مجلد البرنامج فاكتب
PHP كود :
acroPdf1.src:= ExtractFilePath(Application.ExeName)+'\1.pdf'; 



عرض ملفات pdf في برنامجي,, كيف؟ - AL-MOB4RM3G - 28-06-2009

kachwahed كتب :إذا كان ملف pdf في نفس مجلد البرنامج فاكتب
PHP كود :
acroPdf1.src:= ExtractFilePath(Application.ExeName)+'\1.pdf'; 

شكرا لك اخي الكريم,, اشكرك كثيرا,, لم تخطر في بالي هذه الفكرة Cool


عرض ملفات pdf في برنامجي,, كيف؟ - AL-MOB4RM3G - 01-07-2009

اخوآني الكرآم,, كآرثة بنسبة لي والله المستعان,,

الآن وبعد ان انتهيت من البرنامج الذي اعمله,, و اكملت كل شي الّى ملف الم ساعدة,,

جربت ان انقل البرنامج الى جهاز آخر و النتيجة,,, ---------->>> البرنامج لا يعمل,, :confused:

المهم,, بعد الفحص و التحرّيات,, وتركيز والمتاعب Wink توصلت على ان المشكلة هي من هذا المكون الذي اضفته,, وهو AcroPDF لعرض ملفات ال PDF في برنامجي,,

على جهازي هو شغّآل تمام.,

لكن ان كان الجهاز لا يوجد به ال Adobe Acrobat لا يمكن فتح البرنمج من الآصل وتأتي رسآلة خطأ وتغلق البرنامج قبل فتحه,,

انا بحآجة الى عرض ملفات ال PDF في برنامجي حتى ولو لم يتم تنصيب برنامج ال Acrobat عىل جهاز الزبون,, فما هو الحلّ بارك الله لكم,,, Sad


عرض ملفات pdf في برنامجي,, كيف؟ - kachwahed - 01-07-2009

كحل بدائي:
1- تعرض رسالة للمستعمل إذا لم يتم العثور على Acrobat تقول له: This program needs to install Adobe Acrobat Reader وبالتالي يجب عليه تثبيته Big Grin
2- أو ترفق Adobe Acrobat Reader مع Package التثبيت.



عرض ملفات pdf في برنامجي,, كيف؟ - AL-MOB4RM3G - 01-07-2009

kachwahed كتب :كحل بدائي:
1- تعرض رسالة للمستعمل إذا لم يتم العثور على acrobat تقول له: This program needs to install adobe acrobat reader وبالتالي يجب عليه تثبيته :d
2- أو ترفق adobe acrobat reader مع package التثبيت.

طيب اخي,, الفكرة 1 اعجبتني Smile,,, لكن كيف ممكن انا ان اعرف ان كان النستخدم عنده الأكروبات ام لا ؟


عرض ملفات pdf في برنامجي,, كيف؟ - kachwahed - 01-07-2009

استخدم التعليمة Try...Except.
وإليك هذه الدالة:
يقوم:
PHP كود :
function IsAcrobatInstalled: Boolean; //Adobe Acrobat Reader

var
  
reg: TTntRegistry;

begin
  Result 
:= false;
  
reg := TTntRegistry.Create(KEY_READ);
  
with reg do
  
begin
    
try
      
RootKey := HKEY_CLASSES_ROOT;
      if 
OpenKey('CLSID\{CA8A9780-280D-11CF-A24D-444553540000}', False) then
        Result 
:= true
    
finally
      
CloseKey;
      
Free
    end
  end
end
;