+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : مشاريع دلفي الجماعية (https://delphi4arab.net/forum/forumdisplay.php?fid=24)
+--- الموضوع : [مشروع] برنامج مشغل ملفات صوتية - N0player (/showthread.php?tid=615)
الصفحات:
1
2
[مشروع] برنامج مشغل ملفات صوتية - N0player - محمد عبد العزيز - 24-02-2009
بسم الله الرحمن الرحيم
N0Player مشروع كنت قد طرحته من قبل في ArabTeam2000-forum.com ولم اكمل سبب الانشغال وظروف الحياة، لذلك ساعيد طرحه هنا لمن يحب ان يكمل
عنوان المشروع: مشغل ملفات صوتية - N0player
الهدف: برمجة مشغل ملفات صوتية صغير الحجم وسهل الاستعمال يدعم صيغ مختلفة
الغرض: ترفيهي تعليمي.
التلخيص: المشروع عبارة عن برنامج تشغيل صوتيات خفيف مكتوب بدلفي
الخطة: البداية بشيئ بسيط جدا ثم التطوير نقطة نقطة حيث كل نقطة عبارة عن اضافة للبرنامج او خاصية ما
العمل كان بنسخة دلفي 7 وحاليا بدلفي XE
النسخ "0.0/0.01 تجربة" مرفقة
والسلام عليكم
![[صورة: N0Player.jpg]](http://www.delphi4arab.net/images/N0Player.jpg)
[مشروع] برنامج مشغل ملفات صوتية - N0player - mohfa - 26-02-2009
اخي محمد كنت من قبل انتظر وضع البرنامج هنا . و سوف يتم اكماله هنا .
للتنةيه فقط النقطة التي توقفنا فيها في arabteam2000 هي تجميل الواجهة للبرنامج .
و انا متاكد ان سوف يتم الاستفادة كثيرا من المشروع و خاصة للاعضاء الجدد في البرمجة .
اخوك محمد
[مشروع] برنامج مشغل ملفات صوتية - N0player - kachwahed - 25-05-2011
مشروع مشابه:
http://www.delphi4arab.net/forum/showpost.php?p=19797&postcount=4
قد يكون مفيدا لدمج أجزاء منه...
[مشروع] برنامج مشغل ملفات صوتية - N0player - محمد عبد العزيز - 03-06-2011
اخي kachwahed الهدف تعليمي ومنه نحاول الاعتماد على انفسنا ما امكن
حسنا كما قلت ساحاول تغيير شيئ كلما وجدت وقت،
من هنا الى الاسبوع المقبل ان شاء الله تصيحيح خلل في التعامل مع بعض الملفات، مثلا الصورة ملف مسمى بلغة كورية عند محاولة تشغيله يظهر خطأ
[مشروع] برنامج مشغل ملفات صوتية - N0player - kachwahed - 03-06-2011
إقتباس :اخي kachwahed الهدف تعليمي ومنه نحاول الاعتماد على انفسنا ما امكنأحب الحلول الجاهزة
حسنا، كاقتراح لمحاولة تصحيح الخلل دعم Unicode
إدراج مكتبات Tnt لاستخدامها بدلا من المكونات الأصلية
بشي مثل:
PHP كود :
{$DEFINE Tnt}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls
{$IFDEF Tnt}
, TntStdCtrls, TntDialogs
{$ENDIF}
;
type
{$IFDEF Tnt}
TLabel = class(TTntLabel)
end;
TEdit = class(TTntEdit)
end;
TMemo = class(TTntMemo)
end;
{$ENDIF}
شيء آخر، استدعاء توابع W عوضا ANSI حيثما وجد تابع API
PHP كود :
MessageBoxW(Handle, PWideChar('MessageBoxW: ' +Edit1.Text), 'Title', MB_OK +
MB_ICONINFORMATION);
طبعا، هذا بفرض استخدام دلفي 7 للتوليف.
[مشروع] برنامج مشغل ملفات صوتية - N0player - محمد عبد العزيز - 03-06-2011
إقتباس :أحب الحلول الجاهزةاعلم انها مشكلة يوني كود unicode
يمكن استخدام مكونات tnt/tms لدعم اليوني كود
يمكن تغيير اصدار دلفي من 7 الى اصدار احدث 2009 وما فوق
يمكن البحث عن بديل اخر !
[مشروع] برنامج مشغل ملفات صوتية - N0player - محمد عبد العزيز - 17-07-2011
من هنا فصاعدا تعديل اكثر من نقطة وتغيير رقم الاصدار مع كل تعديل
الاصدار الحالي 0.01 مرفق باول مشاركة
+تم تعديل بسيط على الواجهة لتظهر كما بالصورة
+استخدام اصدار دلفي XE بدلا من دلفي 7
+ تحديث مكتبة Bass من 2.4.2.1 الى 2.4.7.1
+تعديل طفيف لدعم اسماء الملفات بلغات مختلفة - دعم Unicode
النقط المقبلة To Do
- حفظ اسماء الملفات بالUnicode
- تصحيح خطا عند تشغيل صيغ WMA
- دعم صيغة جديدة (غير المدعومة حتى الأن)
...
[مشروع] برنامج مشغل ملفات صوتية - N0player - merouane - 30-10-2012
السلام عليكم و رحمة الله و بركاته
أردت برنامج خفيف لسماع القرآن خاصة يوم الجمعة (صوت مرتفع)
فتذكرت أن هناك برنامج يطور هنا ، فهذه مساهمة مني حتى يتم استعماله و لو في نطاق محدد.
قمت بالعمل على المظهر (skin) للعلم لست مصمم محترف لكن أستعمل ما ينتجه المصممون.
- صورة المظهر النهائية -
الواجهة الأصلية
المظهر المستعمل هو مجاني لذلك لا قيود على استعماله و يمكن روية كيفية إنشائه من هذا الرابط
http://www.photoshoplady.com/tutorial/design-an-amazing-media-player-using-photoshop/2646
ليتوافق البرنامج (N0Player) مع المظهر الخارجي قمت ببعض التعديلات منها:
1- كتابة خاصيتين Repeated و Shuffled
2- حذف الأزار و Checkboxs
3- إلغاء بعض الأوامر (لم أرى لها أي فائدة) عبر جعلها "تعليقات" لسهولة العودة إليها من طرف المبرمجين الأصليين.
4- أمور رأيتها معقدة و يوجد حلول أبسط منها (أتكلم من جهتي و لا أحكم على الكود أو كاتبيه)، ربما وضع لأسباب منطقية لم أدركها في مـروري "السلامي"
مثل:لماذا property MinHeight، يمكن التحكم في طول الواجهة بأبسط مما هو مكتوب
كود :
procedure TN0P.SetUpDowValue(Value: boolean);
begin
fisUpOrDown:=Value;
if Value=false then
begin
///////////////// Hide Player List //////////////////
[color=Blue] N0P.ClientHeight := 133; [/color]
UpDownBtn.Font.Color := $00928576;
end
else
begin
////////////////////// Show Player List /////////////////////
[color=Blue] N0P.ClientHeight :=250;[/color]
UpDownBtn.Font.Color := $00FFCAA8;
end;
end;خاصة هذه العملية ، أليست مكلفة مع أنه يوجد list واحدة فلماذا الحلقة
كود :
for i := 0 to ComponentCount-1 do
// This affects only the Player List but neither List bath or history list !
if(( Components[i] is TListBox )And({only Player List!}Components[i].Name='lstName' ))then
(Components[i] as TListBox).visible:=Not(Value);ملاحظة أخرى : Repeat هل هي في البرنامج "الإعادة" أم "المواصلة" لقراءة التالي
ربما لم أذكر كل شيء (لا أريـد السهر حاليا لأنني لم أنم ليلتي )
لكن في العموم لم أحذف ما لم أعوضه أو ما ظننته مهم للمبرمجين الأصليين
في الأخير سينتج ملف تنفيذي ذو حجم 1,27 Mo (استعملت نسخة متوفرة أمامي وهي Delphi 2010)
الملف الأصلي كان حجمه 1,06 Mo
ربما مستقبلا سأحاول نقله إلى lazarus لتجريبه على لينوكس (الأن أقوم بالعبث بملفات PDF و برنامج في رأسي يزعجني فلن أتركه حتى أنهيه.)
في الأخير هذه النسخة مجربة لدي و لابد للمبرمجين الأصليين تنقيح الكود و حذف الزائد الذي تركته عمدا.
ثم نشر البرنامج Beta ليستعمله العالم.
سأترك لكم ترقيم النسخة
مستقبلا تحسين ProgressBar، SpeedButton، نوع خط الزمن لجعله رقمي حديث
أتمنى لكم التوفيق.
[مشروع] برنامج مشغل ملفات صوتية - N0player - merouane - 30-10-2012
أمر أخر ، عند فتح ملف كمستعمل أتوقع قراءته مباشرة و ليس يضيفه للقائمة
القائمة تتكون عندما افتح مجلد أو عندما أقصد الإضافة
[مشروع] برنامج مشغل ملفات صوتية - N0player - محمد عبد العزيز - 30-10-2012
وعليكم السلام ورحمة الله
اهلا اخي مروان
كان المشروع نقطة نقطة بهدف تعليمي لذلك تجد اشياء ملتوية
إقتباس :Repeat هل هي في البرنامج "الإعادة" أم "المواصلة" لقراءة التاليهي اعادة تشغيل نفس الملف ان كان واحد فقط بالقائمة
او تشغيل التاليان كان اكثر من ملف بالقائمة
إقتباس :سينتج ملف تنفيذي ذو حجم 1,27 Mo استعملت نسخة متوفرة أمامي وهي Delphi 2010النسخة الاكثر استعمال عندي ملف واحد بحجم اقل من 700Mb مدمج معها ملفين dll و بدلفي 5