+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : متتديات باسكال Pascal (https://delphi4arab.net/forum/forumdisplay.php?fid=7)
+--- قسم : Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL (https://delphi4arab.net/forum/forumdisplay.php?fid=34)
+--- الموضوع : تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal (/showthread.php?tid=4479)
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - amh_2009 - 16-09-2012
شكرا a.atalla و B.M.AbdelAziz
قمت بتنزيل المكتبة ALut لكل من لينكس وويندوز
أما في لينكس فعند بدء تشغيل البرنامج ظهرت رسالة الخطأ مرة أخرى ولم يتم تشغيل الصوت وهذة رسالة الخطأ:
TApplication.HandleException Access violation
أما في ويندوز مع الاصدار الحديث من لازاراس كما ذكرت فظهرت هذة الرسالة عند بدء التشغيل ولم يتم تشغيل الصوت
Could not find OpenAL Device
Access Violation
علما بأنه عند الضغط على مفتاح play في التطبيق تظهر هذة الرسالة على كل من ويندوز ولينكس :
Access violation
أتسائل ان كانت هناك طريقة أخرى مزودة بمثال عملي وواضح ﻷي مكتبة أخرى مثل:
portaudio
fpsound
ffmpeg
جربت ِ مكون ACS ولم ينجح معي لذا أردت التعامل مع مكتبة للصوت لا يلزم تثبيت مكون لها داخل لازاراس
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - a.atalla - 16-09-2012
جربت المثال اللذي أرفقته علي أوبنتو 12.04 وتم تشغيل الصوت دون أخطاء
سأحاول أن أجد لك مثال علي FPsound
حمل المكون من هنا
كود :
lazarus-ccr.svn.sourceforge.net/viewvc/lazarus-ccr/components/fpsound/?view=tarPackage >>> Open Package File (.lpk)
بعد تثبيت المكون واعادة تشغيل Lazarus جرب المثال المرفق
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - محمد عبد العزيز - 16-09-2012
إقتباس :أتسائل ان كانت هناك طريقة أخرى مزودة بمثال عملي وواضح ﻷي مكتبة أخرى مثلأولا دعنا نحل مشكل OpenAL ثم بعدها ننتقل لغيره
إقتباس :أما في ويندوز مع الاصدار الحديث من لازاراس كما ذكرت فظهرت هذة الرسالة عند بدء التشغيل ولم يتم تشغيل الصوتOpenAL غير مثبت بهازك
Could not find OpenAL Device
Access Violation
احذف كل ما عندك من ملقات dll سابقة متعلقة بOpenAL وثبت هذا
كود :
http://connect.creativelabs.com/openal/Downloads/oalinst.zipتشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - amh_2009 - 16-09-2012
السلام عليكم ورحمة الله
قمت بتجربة ارشاداتكم على نسخة ويندوز والتي تحمل نسخة لازاراس 1.1
بالنسبة للمثال الخاص ب OpenAL فقد نجحت بفضل الله في تنفيذ التطبيق وتشغيل الصوت بلا مشاكل بعدما قمت بتنزيل وتثبيت البرنامج الذي أشار اليه الأخ B.M.AbdelAziz
والسؤال هو كيف يمكن تضمين مكتبة OpenAL مع البرنامج الى جهاز المستخدم دون أن يضطر لتركيبها بنفسه وضمان عمل البرنامج على جهاز المستخدم
شكرا جزيلا أخي B.M.AbdelAziz
أما بخصوص مكون FPSound الذي تفضل اﻷخ a.atalla بتقديمه فقد قمت بتركيبه على lazarus 1.1 في بيئة ويندوز xp و تم التركيب بنجاح ولكني لا أرى رمزا خاصا بالمكون وعندما قمت بتصنيف المثال المرفق
FPSound_Example لم يكتمل التصنيف ليظهر الخطأ التالي في شاشة المصنف
ERROR: Identifier not found "SoundPlayer
واضح من رسالة الخطأ أن المثال ينقصه تعريف الصنف الذي يمثله الكائن SoundPlayer
فياليت اﻷخ a.atalla يراجع لنا هذة الجزئية مع جزيل الشكر
المثال الخاص ب OpenAL نجحت في تشغيله كذلك على نسخة اللينكس بعد تركيب هذة الحزمة:
libopenAL-dev
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - a.atalla - 16-09-2012
المكون FPSound ليس له رمز في الباليت ولكن تقوم باضافة الوحدات إلي uses
fpsound,fpsound_wav,fpsound_openal
جرب
Project >>>> Project Inspector >>>>>> Add >>> New Requirement
وفي خانة Package Name اختر fpsound_pkg ثم اعمل Create New Requirement وجرب المثال مرة أخري
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - محمد عبد العزيز - 16-09-2012
كان واضح من البداية ان لديك مشكلة تثبيت OpenAL لكن اختلطت الأمور عندما قلت Windows و Linux Mint فلم يكن واضح ايهما لم يعمل.
إقتباس :كيف يمكن تضمين مكتبة OpenAL مع البرنامج الى جهاز المستخدم دون أن يضطر لتركيبها بنفسه وضمان عمل البرنامج على جهاز المستخدميكفي نسخ المكتبتين OpenAL32.dll و wrap_oal.dll مع ملفك التنفيذي exe
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - amh_2009 - 16-09-2012
المثال الخاص ب OpenAL نجحت في تشغيله كذلك على نسخة اللينكس وكانت المشكلة في عدم تشغيل المثال على لينكس أن مصنف بسكال قام بربط البرنامج بهذة المكتبة libopenal.so ولكن المكتبة موجودة على نسختي باسم
1.libopenal.so وبالتالي لم يستطع البرنامج العثور على المكتبة لاختلاف الاسم وعندما قمت بعمل نسخة من المكتبة بالاسم libopenal.so تم تشغيل التطبيق
جزيل الشكر جزاكما الله خيرا a.atalla و B.M.abdelAziz
بالنسبة للمثال الخاص ب FPSound سأعيد المحاولة أخي a.atalla و أوافيك بالرد
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - amh_2009 - 17-09-2012
السلام عليكم
أخي a.atalla جربت الطريقة التي أشرت اليها fpsound_pkg موجودة بالفعل في قائمة اعتماديات المشروع
والوحدات الثلاثة موجودة في uses
fpsound,fpsound_wav,fpsound_openal
ولازالت رسالة المصنف كما هي : لم يتم تعريف الكائن SoundPlayer في أماكن وضع المتغيرات
شكرا أخي a.atalla
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - محمد عبد العزيز - 17-09-2012
إقتباس : لم يتم تعريف الكائن soundplayer في أماكن وضع المتغيراتلم تقم بتثبيت المكون جيدا. أعد التثبيت
تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal - amh_2009 - 18-09-2012
أخي B.M.AbdelAziz
هل قمت بتنفيذ هذا المثال لديك ؟
المكون موجود في قائمة المكونات المثبّتة
في الوحدة الرئيسية في الحدث formcreate
procedure TForm1.FormCreate(Sender: TObject);
begin
soundplayer.Create;
end;
هذا الكائن الذي يتم انشائه لم يتم تعريفه:
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
وهذة رسالة الخطأ التي أرجعها المصنف عند التصنيف:
ERROR:Identifier not found "SoundPlayer"
وهذة الوحدة الرئيسية للبرنامج في المرفقات تفضل مشكورا بمراجعتها