المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيف يمكن تحميل صورة في الدلفي


NOna
30-04-2009, 05:20 PM
كيف يمكن تحميل صورة مخزنه في الكمبيوتر في ملف Microsoft Office Picture Manager كي تصبح صوره على الواجهه الخارجيه للبرنامج

أستخدمت TImage والكود
Image1.Picture.LoadFromFile(C:\Documents and Settings\user\Desktop\Picture1')

ولكن تظهر رسالة ان امتداد الملف خاطيء

وأيضا أين أضع الكود لكي تظهر الصوره بشكل دائم على الواحهه وليس فقط عند تشغيل البرنامج

kachwahed
30-04-2009, 06:16 PM
السلام عليكم
امتداد الملف خاطيء
يبدو أن الملف من النوع Jpeg ودلفي (خاصة الإصدارات القديمة) لا يدعم هذا النوع الصور
إلا مع إضافة تعريف الوحدة Jpeg في القائمة Uses.
أما إذا كان الملف من النوع Gif ففي هذه الحالة يمكن استخدام مكون مخصص لذلك
مع العلم أن الإصدارات الحديث لدلفي تدعم أنواع أخرى من الصور من بينها Gif.
أين أضع الكود لكي تظهر الصوره بشكل دائم
إذا كان فهمي للسؤال في محله فالكود يوضع في الحديث OnCreate.
من الأحسن توضيح السؤال وطرح المشكلة بالتفصيل حتى لا يلجأ المجيب إلى دراسة الاحتمالات...

Maher Tannous
30-04-2009, 06:17 PM
Picture1 هذا ملف بدون لاحقة
يجب أن يكون امتداد الملف jpg أو bmp أو غيرها من امتدادات الصور المعروفة
يجب وضع أداة TImage ثم كتابة السطر كالتالي :
Image1.Picture.LoadFromFile('C:\Documents and Settings\user\Desktop\Picture1.jpg');
الامتداد في النهاية مهم جداً يعني jpg
في حال كانت الصورة بجانب ملف البرنامج يعني في نفس المجلد نستخدم الكود التالي :
Image1.Picture.LoadFromFile(ExtractFilePath(Applic ation.ExeName) + 'Picture1.jpg');
يجب التأكد من لاحقة الصورة بإطهار اللواحق من خيارات المجلد في لوحة التحكم

Maher Tannous
30-04-2009, 06:21 PM
بالنسبة لظهور الصورة بشكل دائم و ليس فقط اثناء تنفيذ البرنامج
هناك خاصية للأداة Timage اسمها Picture
يجب الضغط عليها ثم اختيار Load و اختيار صورة ثم ok و ليس عن طريق كود

kachwahed
30-04-2009, 06:31 PM
مع التنبيه أن عمل ذلك يجعل حجم ملف الحجم التنفيذي للبرنامج أكبر حجما
ومن المستحسن عمل ذلك ديناميكيا (يعني عن طريق الكود)

علي
30-04-2009, 10:09 PM
شكرا شباب على هذه المعومات طيب لو كان ملف فلاش

I_Tiger
01-05-2009, 09:34 AM
السلام عليكم

يمكنك استعمال مكون فلاش الذي استعملته في مشروعي ستجد التفاصيل في الموضوع

http://www.delphi4arab.com/forum/showthread.php?t=1260