قراءة ملف mp3 في Lazarus ؟؟

[Moha711]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
Begin
  ACSFileIn1.FileName:= OpenDialog1.FileName;
  ACSAudioOut1.Input := ACSFileIn1 ;
  ACSAudioOut1.Run;
end;

end; 


تحتاج الى مكونين من Audio IO هما
لاصدار الصوت "تشغيل" ACSAudioOut1
ACSFileIn1 لتحديد الملف الخارجي