تشغيل الفديو من ليست بوكس

[احمد كبه]

السلام عليكم هل ممكن تشغيل الفديو من خلال ليست بوكس
اي تكون اسماء المقاطع في الليست بوكس عند النقر عليها يشتغل الفديو داخل التجميعة

[عبد الهادي بهاب]

السلام عليكم هل ممكن تشغيل الفديو من خلال ليست بوكس
اي تكون اسماء المقاطع في الليست بوكس عند النقر عليها يشتغل الفديو داخل التجميعة

اجابة تحتمل الكثيثر من الوجهات : نظرا لاننا لا ندري ما وضعت في من روابط هل في items او في data

لذلك سافترض سيناريو سيدي احمد وهو التالي :

اولا نجعل في زر كود يحضر الفيديوهات من مجلد معين في حاسوبك
و يضعها في ليسبوكس
في اليسبوكس نضع كود يقرا المختار منها في الميدابلاير

جميل جدا :

مع الملف المفتوح

http://up.harajgulf.com/do.php?id=1050681

[احمد كبه]

تمام مثل ماعملت بالضبط .... اريد الفديو يشتغل مباشرةً بمجرد الضغط على اسم الفديو بالليست بوكس لكن العناوين اريدها موجودة باليست بوكس تلقائيا

[رانيا حسن]

هل من الممكن الاستغناء عن الذر الذي يحضر الفديو الى التجميعة و الاكتفاء بالعناوين فقط تكون موجودة تلقائيا بالليست بوكس

[عبد الهادي بهاب]

هل من الممكن الاستغناء عن الذر الذي يحضر الفديو الى التجميعة و الاكتفاء بالعناوين فقط تكون موجودة تلقائيا بالليست بوكس

ما فيه مشكل
لكن كيف يملا الليسبوكس ؟
الا اذا وضعت كود الزر في Onswhow الصفحة
ثم حددي مباشرة المجلد المصدر و ليكن مجلد الفيدوهات في التجميعة

[رانيا حسن]

ايضا لا يعمل استاذي العزيز اعتقد يتطلب كود في الglobal function
واعادة صياغة الكود في الصفحة حتى يقوم البرنامج بالاشتغال بصورة صحيحة

[عبد الهادي بهاب]

ايضا لا يعمل استاذي العزيز اعتقد يتطلب كود في الglobal function
واعادة صياغة الكود في الصفحة حتى يقوم البرنامج بالاشتغال بصورة صحيحة

اين توجد الفيدوهات ؟
من خلال الاجابة نعدل الكود

[عبد الهادي بهاب]

ايضا لا يعمل استاذي العزيز اعتقد يتطلب كود في الglobal function
واعادة صياغة الكود في الصفحة حتى يقوم البرنامج بالاشتغال بصورة صحيحة

ان كان فيه فيديوهات في ملف الفيديو الخاص بالتجميعة

شعي هذا في الصفحة onshow


Ext = {"*.dat","*.avi","*.mpg","*.wmv","*.asf","*.mpeg","*.mp4","*.mpe","*.3gp","*.divx","*.mov","*.ts"};
ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
for index ,type in pairs(Ext) do
MyVideo = File.Find("AutoPlay\\Videos", type, false, true, nil, nil);
if MyVideo then
for i,n in pairs(MyVideo) do
ListBox.AddItem("ListBox1", String.SplitPath(n).Filename, n );
end
end
end

[رانيا حسن]

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

[عبد الهادي بهاب]

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

بما اننا وضعنا كل الفيديوهات في الليسبوكس
فالامر بسيط ننسخ كل موهو موجود في ملف الفيديو الى ملف ما في الحاسوب
مثال فقط :

DestFolder = Shell.GetFolder(SHF_MYDOCUMENTS);
Folder.Create(DestFolder.."\\Copied Files");
StatusDlg.Show(MB_ICONNONE, false);
File.Copy("AutoPlay\\Videos\\*.*", DestFolder.."\\Copied Files\\", true, true, false, true, nil);
StatusDlg.Hide();
Shell.Execute(DestFolder.."\\Copied Files", "explore", "", "", SW_SHOWNORMAL);