مشاهدة النسخة كاملة : تشغيل الفديو من ليست بوكس
احمد كبه
29-08-2016, 07:21 PM
السلام عليكم هل ممكن تشغيل الفديو من خلال ليست بوكس
اي تكون اسماء المقاطع في الليست بوكس عند النقر عليها يشتغل الفديو داخل التجميعة
عبد الهادي بهاب
29-08-2016, 08:59 PM
السلام عليكم هل ممكن تشغيل الفديو من خلال ليست بوكس
اي تكون اسماء المقاطع في الليست بوكس عند النقر عليها يشتغل الفديو داخل التجميعة
اجابة تحتمل الكثيثر من الوجهات : نظرا لاننا لا ندري ما وضعت في من روابط هل في items او في data
لذلك سافترض سيناريو سيدي احمد وهو التالي :
اولا نجعل في زر كود يحضر الفيديوهات من مجلد معين في حاسوبك
و يضعها في ليسبوكس
في اليسبوكس نضع كود يقرا المختار منها في الميدابلاير
جميل جدا :
مع الملف المفتوح
http://up.harajgulf.com/do.php?id=1050681
احمد كبه
29-08-2016, 10:38 PM
تمام مثل ماعملت بالضبط .... اريد الفديو يشتغل مباشرةً بمجرد الضغط على اسم الفديو بالليست بوكس لكن العناوين اريدها موجودة باليست بوكس تلقائيا
رانيا حسن
30-08-2016, 03:29 PM
هل من الممكن الاستغناء عن الذر الذي يحضر الفديو الى التجميعة و الاكتفاء بالعناوين فقط تكون موجودة تلقائيا بالليست بوكس
عبد الهادي بهاب
30-08-2016, 03:47 PM
هل من الممكن الاستغناء عن الذر الذي يحضر الفديو الى التجميعة و الاكتفاء بالعناوين فقط تكون موجودة تلقائيا بالليست بوكس
ما فيه مشكل
لكن كيف يملا الليسبوكس ؟
الا اذا وضعت كود الزر في Onswhow الصفحة
ثم حددي مباشرة المجلد المصدر و ليكن مجلد الفيدوهات في التجميعة
رانيا حسن
30-08-2016, 04:11 PM
ايضا لا يعمل استاذي العزيز اعتقد يتطلب كود في الglobal function
واعادة صياغة الكود في الصفحة حتى يقوم البرنامج بالاشتغال بصورة صحيحة
عبد الهادي بهاب
30-08-2016, 07:40 PM
ايضا لا يعمل استاذي العزيز اعتقد يتطلب كود في الglobal function
واعادة صياغة الكود في الصفحة حتى يقوم البرنامج بالاشتغال بصورة صحيحة
اين توجد الفيدوهات ؟
من خلال الاجابة نعدل الكود
عبد الهادي بهاب
30-08-2016, 09:55 PM
ايضا لا يعمل استاذي العزيز اعتقد يتطلب كود في ال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
رانيا حسن
31-08-2016, 11:14 AM
شكرا جزيلا جدا استاذي العزيز الان البرنامج يعمل بشكل صحيح
ةهل من الممكن عمل زر حتى يقوم بنسخ العناصر الموجودة باليست بوكس الى مكان ما داخل الكمبيوتر
عبد الهادي بهاب
31-08-2016, 10:15 PM
شكرا جزيلا جدا استاذي العزيز الان البرنامج يعمل بشكل صحيح
ةهل من الممكن عمل زر حتى يقوم بنسخ العناصر الموجودة باليست بوكس الى مكان ما داخل الكمبيوتر
بما اننا وضعنا كل الفيديوهات في الليسبوكس
فالامر بسيط ننسخ كل موهو موجود في ملف الفيديو الى ملف ما في الحاسوب
مثال فقط :
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);
vBulletin® v3.8.11, Copyright ©2000-2024, abohmam