السلام عليكم
اعمل على مشروع في Lazarus ووصلت الى 95 بالمئة
و لم اعثر على طريقة او مكون خارجي لقراءة ملفات ال mp3
جربت التحويل الى wav و استعمال الدالة PlaySound لكن حجم الملف الناتج كبييير
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 لتحديد الملف الخارجي
عفو ياخى انا عضو جيد فى منتدى دلفى و لقد قمت بتجريب هدا الطريق من على نطام لينكس و لكن لم انجح ادا سحمت هل يوجد طريق اخر لتنريل اداة و يمكني العمل به على لينكس