تشغيل ملفات wav مع FreePascal/Lazarus عن طريق openal

[amh_2009]

أخي 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"

وهذة الوحدة الرئيسية للبرنامج في المرفقات تفضل مشكورا بمراجعتها