mohfa

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

اخي عبد العزيز وجدت هذا هل يفي بالغرض :wink:

اخي عبد العزيز لم اجد مكون Vu Meter جيد يليق بال N0Player . هل لديك رابط ... :blush:

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

اخي عبد العزيز محاولة إن إستطعت ان تعدلها . لقد حاولت جاهدا و ذلك بإستعمال : . . Var TrckTitle:String; begin TrckTitle := Bass_ChannelGetTags(C,BASS_ID3V2); ولكن النتيجة دائما هي : - Empty String - No Result N0Player.rar

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

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

النقطة 21 :lol: N0Player.rar

إن شاء الله . وهذاسوف ياخذ بعض الوقت لان فيه X,Y,Z و ... إذا سوف نكمل الشروع كما هو ....

يعني C'est pas la pein ولا كيفاه . اظن انه هكذا يكون تطويره وإستعماله بسيط و فعال . وانا من وجهة نظري البرمجية اظن ان N0Player ك TObject احسن بكثير من ملاء Form 1 بمئات الاكواد و و .... على كل حال إذا لم تشاء ذلك فلامشكل

اخي عبدالعزيز سوف اقوم بتصدير ال N0Player كله الى مكون من نوع TObject تكون فيه كل الخصائص ومستقبلا سيكون هكذا N0Player:=TN0Player.Create(); فما رائك

اخي عبد العزيز اظن انني سوف انسحب من المشروع وهذا لان دلفي لم يعد يشتغل عندي فكل Crash في :angry: Crash . او سوف اذهب لاشتري لي نسخة جديدة . والسلام عليكم :angry:

القي نظرة : لقد اضفت هذا الإجراء : //////////////////Play draged files ////////////////// Procedure PlayDragedFile(); N0Player.rar

ولكن هذه الخاصية متوفرة في النقطة 18 يمكن سحب اكثرمن ملف او مجلد لقائمة التشغيل

لم فهم

النقطة 19 اخي عبد العزيز عندما نقوم ب سحب وافلات من مجلد اي ملف تتم قرائته ؟؟؟ // في المرفق البداية بالاول Try // -------------- is draged File(s) can be played if lstName.Count <>0 then begin lstName.ItemIndex :=0; // Play 1st Draged File // If the Being Play…

يعني حتى ولو كان البرنامج ليس في حالة التنفيذ . اعني لم يشتغل بعد هل هذا هو المطلوب

اخي maosalah اولا السلام عليكم و رحمة الله وبركاته : ثانيا لدي سؤال اليك - بدون ان تنزعج مني - : هل تعرف الفرق بين Path := ExtractFilePath(Application.ExeName)+N0_CONFFILE; وهذا Path := ExtractFilePath(ParamStr(0))+ N0_CONFFILE;

النقطة 18 N0Player.rar

خطاء سوف اقوم بتصحيحه حسب كلامك الاخير لانني لم انتبه اليه اسف