السلام عليكم
تحية طيبة للجميع
قمت بادراج نمودج 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).
منقول للأمانة غير مجرب
السلام عليكم
تأكدت أن المكون المستخدم هو من نوع TAcroPDF وليس TWebBrowser وخاصية LOADFILE لاتعمل تنقل الي الخيار الثاني ان الملف غير موجود لادري مالمشكلة
اكتشف الخطا في هذا الكود بعد بحث عميق ووجدت الخطا في جزئين اولا في التعليمة PDF1.LoadFile(FilePath) المفروض تكتب ACROPDF1.LoadFile(FilePath)
ثانيا:- ان هذة التعليمة لايمكن ان تعمل علي جهاز يعمل بنظام 64 بت حيث الدلفي تعمل 32 بت لابد من تغير النظام او تغيرها برمجيا داخل البرنامج حيث عند التنفيد يجعل البرنامج يعتقد ان النظام 32 وليس 64 بت
(21-10-2025, 08:43 AM)سليم 2024 كتب : [ -> ]اكتشف الخطا في هذا الكود بعد بحث عميق ووجدت الخطا في جزئين اولا في التعليمة PDF1.LoadFile(FilePath) المفروض تكتب ACROPDF1.LoadFile(FilePath)
ثانيا:- ان هذة التعليمة لايمكن ان تعمل علي جهاز يعمل بنظام 64 بت حيث الدلفي تعمل 32 بت لابد من تغير النظام او تغيرها برمجيا داخل البرنامج حيث عند التنفيد يجعل البرنامج يعتقد ان النظام 32 وليس 64 بت
هذا ليس بخطأ و إنما تسمية المكون ، أنت سمه كما تريد ، أو أترك إسمه التلقائي
لأن قبل المثال مذا قال : أضف المكون إلى الـ Form (مثلاً اسمه PDF1).