+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تكرار مقطع xm (/showthread.php?tid=5899)
تكرار مقطع xm - mICR0b - 31-01-2014
السلام عليكم و رحمة الله و بركاته
الحمد لله وحده و الصلاة و السلام على من لانبي بعده
جمعة مباركة وبعد:
إستطعت أن أضيف مقطع XM إلى مشروعي لكن واجهتني مشكلة بسيطة أتمنى أن ت******* على حلها
وهي تكرار ذلك المقطع عند إنتهاءه كل مرة أي Loop for ever
و لكم مني جزيل الشكر و الإحترام.
تكرار مقطع xm - محمد عبد العزيز - 01-02-2014
وعليكم السلام
إقتباس :إستطعت أن أضيف مقطع xm إلى مشروعي ...كيف اضفته ؟ هناك خيار/باراميتر لاعادة تشغيله عند انتهائه
تكرار مقطع xm - mICR0b - 01-02-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 يكون أفضل ممكن حل من حضرتك من فضلك ؟
تكرار مقطع xm - محمد عبد العزيز - 01-02-2014
بما انك استخدمت uFMOD والخيار XM_MEMORYو لم تستخدم الخيار XM_NOLOOP فمن المفروض يتكرر المقطع تلقائيا
يبدو انك تستخدم نسخة قديمة من uFMOD (انصحك بتحديثه ufmod.sf.net )
ارفق مثال، المقطع+الملفات المستخدمة. ايضا اذكر اصدار دلفي الذي تستخدمه