السلام عليكم ورحمة الله وبركاته
هل نستطيع استيراد ملفات صور من نوع JPG أو ملفات فيديو من نوع AVI في ملف موارد Resource.
وإن كان هذا متاحاً فما هو الكود الذي يقوم باستدعاء هذه الملفات.
إن كان لديكم أدنى فكرة عن هذا الموضوع أرجو أن تكتبوا فأنا بحاجة ماسة إلى ذلك.
اكيد تستطيع فعل ذلك اخي الكريم/ عبد الغني
حاول ان تراجع زاوية الاكواد او البرامج التابعة لهذا المنتدى الرااااااااااااااااااائع
فلقد قام مشكووووووووووورا مديرنا الفاضل (((محمد بدوي))) بوضع مثال على ذلك
مثال وااااااااااضح وجميل جدااااااااااااااااا
او استخدم خاصية البحث ضمن المنتدى
اخوك (((((( الدولار ))))))
شكراً على محاولتك لمساعدتي عزيزي الدولار
ولكنك سبق أن قلت لي هذا الرد
رأيت ماوضعه السيد المدير : محمد بدوي عن ملفات Resource
ولكنه تحدث فيه عن ملفات الصور من نوع bmp ولم يتحدث عن jpg وهذه تهمني لأنها أصغر حجماً وهو السبب الرئيسي لطلبي.
أما بالنسبة للبحث في المنتدى فلم يتعرض أحد لهذا الموضوع غيري.
إن كان لديك حلول أخرى أرجو أن تكتبها.
وشكراً لك مرة أخرى.
أخى عبد الغنى معزره للتأخير وهذا المثال الذى وعدتك به
تجده هنــــــــــــــــــــــــــــــــــــــــــا مع ملاحظة انه إذا كان حجم ملف الـ AVI كبير فإن ذلك سيؤثر تأثير كبير على حجم البرنامج وسرعته
اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا
جزيل الشكر لك أخي رمضان ولك يا عزيزي الدولار لمحاولتك المساعدة.
إنني عاجز عن التعبير عن شكري لك عزيزي رمضان لو تعرف كم كان يهمني أمر الصور JPG لقدرت مدى المساعدة والعون الذي قدمته لي.
وأنا خجل كثيراً لأني ألححت على هذا الموضوع.
شكراً لك مرة أخرى والله يعطيك العافية ويجزيك الخير.
بالنسبة للكود الذي أعطتيتني إياه أخذت منه ماكان يهمني وهو JPG أما AVI فلقد جمد البرنامج وتوقف عن العمل عند استخدامه لا أدري لماذا.
هل يصلح كودك لملفات الصور من نوع GIF ؟
وتعبيراً مني على شكري لك . خذ الكود التالي فهو لتشغيل ملفات ال AVI في Resource وبدون Resource .
الكود:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
x = 10
y = 10
A$ = LoadResData("AVIFileName", "CUSTOM")
Ret = mciSendString("stop movie", 0&, 128, 0)
Ret = mciSendString("close movie", 0&, 128, 0)
Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
Ret = mciSendString("play movie", 0&, 128, 0)
End Sub
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Terminate()
Dim Ret As Long
Ret = mciSendString("close all", 0&, 128, 0)
End Sub
وهذا لتشغيله من ملف موارد .
أما لتشغيله من القرص ( بدون ملف موارد ) استبدل LoadResData("AVIFileName", "CUSTOM بمسار الملف على القرص.
وهذا الكود لا يحتاج إلى مسجلة أو أداة .
ملاحظة:
جمد برنامجي عند استخدام هذا الكود على ملف الموارد ولكنه جرب على أجهزة أخرى وعمل بنجاح . ربما السبب هو جهازي.
شكراً لك مرة أخرى. :) :o
العفو اخي الكريم / عبد العزيز
ولا شكر على واجب
ترانا ما سوينا شي
وشكرررررررررررررا جزيلا لك يا مديرنا الفاضل الاخ / رمضان
الله يعطيك العافية ويزيدك من العلم والمعرفة اكثر واكثر (انت وانا وكل اخوننا المسلمين) آآآآآآآآآآآآآآآمين يا رب العالمين !!!
بالنسبة لعرض صور JPG وGIF من ملف المصادر فإنه إذا كان الهدف من تلك العملية هو ضمها في البرنامج لحماية تلك الصور من العبث بها فإن الطريقة المذكورة أعلاه هي على ما أعتقد إنشاء ملف مؤقت ثم عرض الصورة منه ثم حذفة(هذا ما أعتقد حيث لم أجرب البرنامج أعلاه)
في نظري أن هذه الطريقة ليست عملية وأرى أن أسرع الطرق هو إنشاء فورم خاص في المشروع يتم إدراج كل الصور التي يتطلبها البرنامج فية بعد ضغط حجمها بأكبر قدر ممكن و ليس على حساب دقتها ويمكنك إستخدام الفوتو شوب لهذا الغرض بعد ذلك يمكن استيراد أي صورة من ذلك الفورم الى أي إطار صورة في أي فورم آخر في البرنامج
تبقى تلك هي الطريقة الاسهل وفي منتهى السرعة في الاداء
picture1.picture=form5.picture1(4).picture
حيث form5 هو بمثابة المصدر
تحياتي
عزيز oaob شكراً لك على محاولتك
لكني أعتقد أن طريقتك التي ذكرتها تزيد من حجم الملف التطبيقي وتقلل من سرعة البرنامج .
وهي أشياء غير مستحبة في البرنامج.
صدقت يا اخ عبد الغني
:cool: ;) :cool:
وهل إضافة الصور إلى ملف المصادر لن يزيد من حجم الملف التطبيقي؟؟؟؟؟؟؟؟؟
صحيح يا صديقي oaob أن الصور في ملف الموارد يزيد من حجم البرنامج لكنه أقل من الزيادة الحاصلة من إضافة ثلاثين أو أكثر أداة صورة.
وباعتقادي أنه أسرع طريقة لعرض صورة هو من ملف موارد وإن كان لديك غير هذا الرأي فأعلمنا به.
ثم هناك مشكلة هامة أخرى برنامجي يحتوي على أكثر من خمسين صورة فهل سوف أقوم بوضع خمسين أداة .
وإن فعلت ذلك سوف يعرض لي الفيجوال بيسيك رسالة خطأ تقول Out Of Memory عند محاولتي تجميعه في ملف تطبيقي وسوف يصبح عمل البرنامج بطئ جداً .
صحيح يا صديقي oaob أن الصور في ملف الموارد يزيد من حجم البرنامج لكنه أقل من الزيادة الحاصلة من إضافة ثلاثين أو أكثر أداة صورة.
وباعتقادي أنه أسرع طريقة لعرض صورة هو من ملف موارد وإن كان لديك غير هذا الرأي فأعلمنا به.
ثم هناك مشكلة هامة أخرى برنامجي يحتوي على أكثر من خمسين صورة فهل سوف أقوم بوضع خمسين أداة .
وإن فعلت ذلك سوف يعرض لي الفيجوال بيسيك رسالة خطأ تقول Out Of Memory عند محاولتي تجميعه في ملف تطبيقي وسوف يصبح عمل البرنامج بطئ جداً .
هذا الموضوع مغلق.