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=13003)



عرض صورة PDF - سليم 2024 - 19-10-2025

السلام عليكم
   تحية طيبة للجميع  

قمت بادراج نمودج PDF على الفورم من import activex  نامل منكم توضيح كيفية استدعاء الصورة PDF على الفورم بطريقة سهلة وتوضيح المسار الخاص للصور مثلا مجلد الصور باسم IMGE موجود علي D:\IMGE ارجوا مثال توضيحي لكيفية عرض الصور من المجلد.

والسلام عليكم


RE: عرض صورة PDF - لؤي - 20-10-2025

السلام عليكم

من قائمة Tool Palette اختر:
ActiveX -> Microsoft Web Browser أو Adobe PDF Reader
(إذا لم تجده، فعّل Adobe PDF Reader من قائمة Components > Import ActiveX Control)

أضف المكون إلى الـ Form (مثلاً اسمه PDF1).

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  FilePath: string;
begin
  FilePath 
:= 'D:\IMGE\test.pdf'; // مسار ملف الـ PDF
  if FileExists(FilePath) then
    PDF1
.LoadFile(FilePath)
  else
    ShowMessage('الملف غير موجود!');
end; 

تأكد أن المكون هو من نوع TAcroPDF وليس TWebBrowser (حتى تعمل خاصية LoadFile).

منقول للأمانة غير مجرب


RE: عرض صورة PDF - سليم 2024 - 20-10-2025

السلام عليكم
تأكدت أن المكون المستخدم هو من نوع TAcroPDF وليس TWebBrowser وخاصية LOADFILE لاتعمل تنقل الي الخيار الثاني ان الملف غير موجود لادري مالمشكلة


RE: عرض صورة PDF - سليم 2024 - 21-10-2025

اكتشف الخطا في هذا الكود بعد بحث عميق ووجدت الخطا في جزئين اولا في التعليمة PDF1.LoadFile(FilePath) المفروض تكتب ACROPDF1.LoadFile(FilePath)
ثانيا:- ان هذة التعليمة لايمكن ان تعمل علي جهاز يعمل بنظام 64 بت حيث الدلفي تعمل 32 بت لابد من تغير النظام او تغيرها برمجيا داخل البرنامج حيث عند التنفيد يجعل البرنامج يعتقد ان النظام 32 وليس 64 بت


RE: عرض صورة PDF - Embarcadero.XE - 28-10-2025

(21-10-2025, 08:43 AM)سليم 2024 كتب : اكتشف الخطا في هذا الكود بعد بحث عميق ووجدت الخطا في جزئين اولا في التعليمة  PDF1.LoadFile(FilePath) المفروض تكتب  ACROPDF1.LoadFile(FilePath)
ثانيا:- ان هذة التعليمة لايمكن ان  تعمل علي جهاز يعمل بنظام 64 بت حيث الدلفي تعمل 32 بت لابد من تغير النظام او تغيرها برمجيا داخل البرنامج حيث عند التنفيد يجعل البرنامج يعتقد ان النظام 32 وليس 64 بت

هذا ليس بخطأ و إنما تسمية المكون ، أنت سمه كما تريد ، أو أترك إسمه التلقائي 

لأن قبل المثال مذا قال :  أضف المكون إلى الـ Form (مثلاً اسمه PDF1).