عرض صورة PDF

[سليم 2024]

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

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

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

[لؤي]

السلام عليكم

من قائمة 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).

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

[سليم 2024]

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

[سليم 2024]

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

[Embarcadero.XE]

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

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

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