حفظ السورة المشغلة من خلال ComboBox

[الولد الذهبي]

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

لدي عمل اسطوانة واريد عمل حفظ للملف الصوتي الذي يعمل من خلال المشغل ميدا بلاير يتم إستدعاء الملف وحفظ في جهاز المستخدم وبعدها تظهر رسالة انه تم الحفظ في المكان المحدد من قبل المستخدم
هذه صورة توضحية

2527

والملف مرفق لمن لديه فكرة للتعديل اخوتي الأكارم

[عبود عبود]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[الولد الذهبي]

في إنتظار من لديه خلفية في الموضوع بالإفادة

[عبود عبود]

إليك هذه الخلفيه فقد تفيدك

[azizsoft]

بسم الله الرحمن الرحيم

جزاكم الله خيرا أخ عبود
يمكن أن تضيف بعد أمر النسخ File.Copy كود ااضهار الرسالة

result = Dialog.Message("اشعار", "تم حفظ الملف الصوتي بجهازك.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

[الولد الذهبي]

لك الشكر اخي الكريم عبود على الإضافة جعله الله في ميزان حسناتك
والشكر أيضا للعزيز سوفت
تم العمل بنجاح
ولاكن لدي استفسار ليكي نثري الموضوع ونجعل نقاش هادف قد يستفيد منه الأعضاء والزوار
إذا كان بالإمكان تغير طريقة اختيار السورة من ComboBox الى ListBox ؟ وأضافة الوقت المتبقي لمدة تشغيل السورة ؟
والنقطة الاخيرة وهي استغلال listBox لكي يتم اختيار أكثر من سورة المراد تشغيلها ؟
مثلا المستخدم يختار (سورة الفاتحة والمائدة ) ومن خلال هذا الاختيار سوف يتم تشغيل الصورة المحدده فقط

[امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ياسرهتهت]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
موفق بإذن الله ... لك مني أجمل تحية .

[الولد الذهبي]

وعليك السـلآم ورحمة الله وبركاته
شكراً اخوتي الأكارم للمرور

[الولد الذهبي]

توصلت لهذا الكود لكي اربط listbox مع الميدبلير لاكن لم يعمل لحد الأن لا ادري أين السبب


tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..result..".mp3");

[ثامر أبو بلقيس]

أخي الذهبي هذا الكود نستعمله في تشغيل الملفات
الصوتية وهو صحيح ويعمل اذا أعلنت في item data
المتعلق بالليست عن اسم الملف الصوتي فقط -- أي لاتكتب لاحقته و لا مساره --
ليعمل وفق الكود المدرج
إن شاء الله:abc_138:

[الولد الذهبي]

أخي الذهبي هذا الكود نستعمله في تشغيل الملفات
الصوتية وهو صحيح ويعمل اذا أعلنت في item data
المتعلق بالليست عن اسم الملف الصوتي فقط -- أي لاتكتب لاحقته و لا مساره --
ليعمل وفق الكود المدرج
إن شاء الله:abc_138:

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

[امل الماضي]

لاوجود للملفات الصوتية في المشروع أخي

[ثامر أبو بلقيس]

السلا م عليكم
اسم البليجين في الكود ليس هو اسمه المستعمل
في المشروع
عوضه بهذا :
tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
MediaPlayer.Load("PluginMedia", "AutoPlay\\Audio\\"..result..".mp3");

المعبأ بالأحمر هو الاسم الصحيح الذي تستعمله في مشروعك:abc_138:

[الولد الذهبي]

السلا م عليكم
اسم البليجين في الكود ليس هو اسمه المستعمل
في المشروع
عوضه بهذا :
tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
MediaPlayer.Load("PluginMedia", "AutoPlay\\Audio\\"..result..".mp3");

المعبأ بالأحمر هو الاسم الصحيح الذي تستعمله في مشروعك:abc_138:

شكرا لك اخي الكريم على التصحيح
ولاكن تبقى زر حفظ السورة الموجود هنا
if NameSelect~=nil then
result = Dialog.FileBrowse(false, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", String.SplitPath(NameSelect).Filename, "mp3", false, false);
if result[1]~="CANCEL" then
File.Copy(_SourceFolder.."\\AutoPlay\\Audio\\"..NameSelect, result[1], true, true, false, true, nil);
result = Dialog.Message("ÇÔÚÇÑ", "Êã ÍÝÙ ÇáãáÝ ÇáÕæÊí ÈÌåÇÒß.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
else
Dialog.Message("ÊäÈíÜÜÜÜÜÜÜå", "ÅÎÊÜÜÜÜÜÑ ÓæÑÉ ÃæáÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end



هذا الكود تفضل به الاخ عبود عندما تم ربطه بـ ComboBox1 الان تغير وهـو ListBox1 كيف اربطه بالكود لكي يحفظ السورة التي تعمل في جهاز المستخدم

[ثامر أبو بلقيس]

tbl_selected = ListBox.GetSelected("ListBox1");
NameSelect = ListBox.GetItemData("ListBox1", tbl_selected[1]);
NameSelect = String.SplitPath(NameSelect).Filename ..".mp3";
MediaPlayer.Load("PluginMedia", "AutoPlay\\Audio\\"..NameSelect);

[امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبدوعزيز]

مشكووووووووووور

[محمد سامر]

تمااااااااااااااااااااااا ااااااااااااام

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[أبو قصي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[احمد كبه]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبد العزيز البسكري]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[محمد رمضان أبو يوسف]

شكرا جزيلا:abc_050: