[مشروع] برنامج مشغل ملفات صوتية - N0player

اهنئكم ثانية بتقدم هذا المشروع الذي حقيقة ابهرني وعلمني الكثير من الاشياء والله كما قلت ياخي عبد العزيز فسوف نتعلم الكثير من الاشياء من هذا المشروع .

اما انت ياخي mohfa , فتعبيري الوحيد هو انك مبرمج محترف .

وزد على ذلك النقطة 21 وكيف يتم إخفاء و إظهار قائمة التشغيل .

إخوتي عبد العزيز و mohfa هلا قمتم بشرح هذا بالعربية لانني لااحسن الانجليزية جيدا :

procedure TForm1.SetUpDowValue(Value: Boolean);

var

FOldHeight : Integer;

i:integer;

begin

for i := 0 to ComponentCount-1 do

// This affects only the Player List but neither List bath or history list !

if(( Components is TListBox )And({only Player List !}Components.Name='lstName' ))then

(Components as TListBox).visible:=Not(Value);

//** Ok the user shooses to Hide or Show the Player List *******//

// ********** 1: before execute this action *********//

// ****** 2: we should get some form coordinates ***//

// **** 3: Ok let the GAME STARTS *****************//

اعني معناها لانني ممكن ان استعملها مستقبلا .

وفي الاخير اقول لكما بارك الله فيكما .

اختكم سرور

النقطة 22

السلام عليكم ياختي سرور شكرا على هذا الإثراء , يجب اولا ان تشكري اخي عبد العزيز اولا هو الذي اتاح إلينا هذه الفرصة .

ثانيا اقول لاخي عبد العزيز إن إستطعت ان تكتب لها بالعربية طلبها فانا لااملك كيبورد بالعربية , كل ماافعله للكتابة بالعربية هو انني دائما استعمل

هل تعلمي لماذا كل حرصي هذا لكلمة قالها اخي عبد العزيز :

اقتباس

الى ان نصل الى برنامج احترافي ربما ينافس مشغلات الملفات الصوتية المعروفة

رغم انني مشغول بإنهاء مشروعي كما يعرفه اخي عبد العزيز AV

والسلام عليكم و رحمة الله وبركاته

N0Player.rar

sourour

سبق وان اخبرتك ان هذا الموضوع ليس لطرح الاسئلة

يمكنك طرح اي سؤال في موضوع جديد

ساجيبك هنا فقط هذه المرة

الكود يقوم بالتالي يقوم باظهار أواخفاء المكون lstName

لا دري لما اختار mohfa هذه الطريقة الملتوية دون فائدة لانه مكون واحد وكان يكفي كتابة

lstName.Visible := not lstName.Visible;

على كل نكمل وفي مرحلة ما مستقبلا سنقوم بOptimization للكود

النقطة 23 (سهلة)

اضافة زمن تشغيل الملف (يتغير مع تشغيل الملف ومرور الوقت)

اقتباس

لا دري لما اختار mohfa هذه الطريقة الملتوية دون فائدة لانه مكون واحد وكان يكفي كتابة :blush:

نعم لقد فكرت في هذه :

اقتباس

lstName.Visible := not lstName.Visible;

ولكن ياخي عبد العزيز خفت انه عندما تمتلئ ال PlayList ونقوم بإخفائها / إظهارها ففي لحظة ما سيتوقف البرنامج عن العمل - Freezes - ولهذا فكرت في إستعمال ال OS Messages لانها safe .

على كل حال حصل خير

النقطة 23

N0Player.rar

النقطة 24

اضافة معلومات الملف MP3 ما يسمى ID3 Tag

وهي معلومات تكون داخل الملف MP3

يمكن استخدام مكون او سورس خارجي ان استعصى الامر

اخي عبد العزيز محاولة إن إستطعت ان تعدلها .

لقد حاولت جاهدا و ذلك بإستعمال :

.
.
Var TrckTitle:String;
begin
TrckTitle := Bass_ChannelGetTags(C,BASS_ID3V2);

ولكن النتيجة دائما هي : - Empty String - No Result

N0Player.rar

اقتباس

ولكن النتيجة دائما هي : - Empty String - No Result

ربما الملفات التي جربتهم لايوجد بهم ID3 Tag

تعمل عندي

لكن اضافتها في Form ثاني مكلف من حيث الحجم

للعلم هناك طريقة احسن لقرائة ID3 Tag والتعديل عليه اباستخدام ملف DLL اخر اضافي للBass.DLL

نتركها الان كما هي ونغيرها مستقبلا لتكون لديق فقط Form واحدة

نمر للتالي

النقطة 25 (بسيطة)

اضافة Play/Next/Previous/First/Last

في قائمة البرنامح في Systray عندما يكون مصغر Minimized

اخي عبد العزيز يمكن إنشاء الForm وكل Labels في وقت التشغيل إ ن اردت و هكذا الحجم يكون صغير .

النقطة 25

N0Player.rar

mohfa كتب:

اخي عبد العزيز يمكن إنشاء الForm وكل Labels في وقت التشغيل إ ن اردت و هكذا الحجم يكون صغير .

الحجم اصغر نعم لكن يبقى استهلاك ذاكرة اكثر من Form واحد

كما قلت لك لايهم الانه في مرحلة ما سنقوم بOptimization ونغير اشياء كثيرة

لم اجرب المرفق الذي اعتبره صحيح لذلك نمر للنقطة الموالية

النقطة 26

اضافة VU Meter

وهو شكل مرئي يتحرك بتقدم اشتغال الملف

طبعا يمكن الاستعانة باكواد او مكونات خارجية عند الضرورة

اخي عبد العزيز لم اجد مكون Vu Meter جيد يليق بال N0Player .

هل لديك رابط ... :blush:

ابحث اكثر، اعرف ان جيد بالبحث

هناك على الاقل ثلاثة

اخي عبد العزيز وجدت

هذا

هل يفي بالغرض :wink:

لم اجربه من قبل

كنت اقصد مكونات اخرى

لكن جربه وحاول ان نفع ام لا

لا للاسف لم ينفع .

عند هذه النقطة ارفع يدي بكل صراحة قائلا انني لم اتعامل من قبل مع مثل هذا البرامج .فمابالك بإستعمال هكذا مكون .

اخي عبد العزيز انا وجهتي 100% برمجة .

فإن كان لديك هذاالمكون فلنستعمله ونتخطى الى النقطة الموالية .

اخوك محمد.

حسنا ننتظر ربما يشارك عضو اخر

فان لم يكن اضعها وننتقل للنقطة الموالية

جربت البرنامج تحت اللينكس باستخدام wine وهو يعمل جيدا والصوت نقى بشكل رائع

بالتوفيق للجميع :)

N0Player يعمل في Linux B)

(في الحقيقة معظم برامج دلفي تعمل في Wine)

لاسباب خاصة لم اكمل النقطة 26 التي ساقوم بها لاحقا

وحتى لايتوقف المشروع اذكر التالي

النقطة 27

اضافة دعم تشغيل ملفات wma

النقطة 27

وذلك بإظافة مكتبة basswma.dll

N0Player.rar

النقطة 27

اضافة دعم OGG

Ogg Vorbis

النقطة 27

N0Player.rar

النقطة 28

دعم module/chiptune

اللواحق MOD / XM / S3M / IT

ارفقت 4 ملفات للتجربة

N0Player_chiptune.rar

النقطة 28

اخي عبد العزيز لما نظرت لملف المساعدة ل Bass رأيت قائمة طويلة لل Flags ولم افهمها بمعناها الموسيقي , اخترت واحدة فصلحت :lol:

N0Player.rar

الChiptune اصلا قطع الكترونية خاصة بالصوت

والبرنامج يقوم بعمل Emulation لتلك القطعة

طبعا هناك خيارات كثيرة حسب اختلاف القطع يظهر في الصوت الخارج من البرنامج

المهم نمر للتالي

النقطة 29

اضافة دعم Midi (الصيغة .mid)

ألقوا نظرة على كود TBassplayer في هذه الصفحة http://www.torry.net/pages.php?id=167