إقتباس :في الوحدة الرئيسية في الحدث formcreate
procedure TForm1.FormCreate(Sender: TObject);
begin
soundplayer.Create;
end;
احذف ما فوق
لست بحاجة لتعريف واو انشاء SoundPlayer لانه سبق ذلك، افتح ملف المكون fpsound.pas تجد به
كود :
var
SoundPlayer: TSoundDocument;
...
initialization
SoundPlayer := TSoundDocument.Create;
finalization
SoundPlayer.Free;
سأعيد المحاولة
شكرا على الرد
تمكنت من تنفيذ التطبيق ولكن يتم تشغيل الملف مرة واحدة وعند الضغط على مفتاح play مرة أخرى لا يتم تشغيل الملف الصوتي فما سبب ذلك ؟ وهل هناك طريقة للتغلب على هذة المشكلة؟
شكرا
fpsound لايزال ببدايته...
لا تستخدم Stop وغيرها بPause
عندما طبقت المثال الخاص ب fpsound على لينكس لم يتم تشغيل الملف التنفيذي وتشغيل الصوت الا بعد
اضافة مسار مكتبة libopenAL باستخدام LD_LIBRARY_PATH قبل تنفيذ التطبيق
فهل fpsound يعتمد على مكتبة openAL
إقتباس :فهل fpsound يعتمد على مكتبة openAL
نعم، ألم تلاحظ ملفات OpenAL موجودة ضمن ملفات fpsound
حاليا fpsound يستخدم OpenAL فقط وربما مستقبلا يعتمد على غيره ايضا
شكرا أخ B.M.AbdelAziz
على التفاعل البناء جزاك الله خيرا استفدنا كثيرا من مشاركاتك
نتمنى أن يتحسن FPSound ليستغني عن المكتبات الخارجية ويعتمد على كود بسكال فقط