المشاركات : 6
المواضيع 3
:
: 0
الإنتساب : Jan 2014
السلام عليكم و رحمة الله و بركاته
الحمد لله وحده و الصلاة و السلام على من لانبي بعده
جمعة مباركة وبعد:
إستطعت أن أضيف مقطع XM إلى مشروعي لكن واجهتني مشكلة بسيطة أتمنى أن ت******* على حلها
وهي تكرار ذلك المقطع عند إنتهاءه كل مرة أي Loop for ever
و لكم مني جزيل الشكر و الإحترام.
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
وعليكم السلام
إقتباس :إستطعت أن أضيف مقطع xm إلى مشروعي ...
كيف اضفته ؟ هناك خيار/باراميتر لاعادة تشغيله عند انتهائه
المشاركات : 6
المواضيع 3
:
: 0
الإنتساب : Jan 2014
B.M.AbdelAziZ كتب :وعليكم السلام
كيف اضفته ؟ هناك خيار/باراميتر لاعادة تشغيله عند انتهائه
اضفته بهذه الطريقة
1- حولت المقطع إلى وحدة باسم spocks.pas
و اضفت هذه الأكواد تحت implementation
كود :
{$I ufmod.inc}
{$I spocks}
و هذا الكود تحت procedure TForm2.FormCreate(Sender: TObject);
كود :
begin
uFMOD_PlaySong(@xm,Length(xm), XM_MEMORY);
end;
و أضفت هذه المكتبة ufmod Library
import.inc
ufmod.inc
uFMOD.obj
xmformat.obj
كل شيء يشتغل تمام لكن حبذا لو المقطع يعمل loop يكون أفضل ممكن حل من حضرتك من فضلك ؟
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
بما انك استخدمت uFMOD والخيار XM_MEMORYو لم تستخدم الخيار XM_NOLOOP فمن المفروض يتكرر المقطع تلقائيا
يبدو انك تستخدم نسخة قديمة من uFMOD (انصحك بتحديثه ufmod.sf.net )
ارفق مثال، المقطع+الملفات المستخدمة. ايضا اذكر اصدار دلفي الذي تستخدمه
