عند إنشاء برنامج للعميل ، واجهت مشكلة فجأة ، أي عندما يقدم مستخدم صفحة المنتج ملف تشغيل الفيديو ، وكيفية تشغيل تنسيق الفيديو الصحيح في عنوان URL المقدم ... كنت مكتئبًا لفترة من الوقت ، وفكرت في الفكرة وبدأت في فعل ذلك عندما قلت ذلك ... كانت الفكرة هي الحصول على نوع الملف أولاً واختيار رموز ويب مختلفة وفقًا لنوعها ثلاث مرات ومرتين. تمت كتابة وظيفة الاتصال العامة لتسهيل المكالمات في أنظمة أخرى في المستقبل.
يتم الآن إصدار رمز المصدر على النحو التالي:
نسخة الكود كما يلي:
Sub Selplay (Strurl ، Strwidth ، Strheight)
خافتة خافتة ، isext
إذا strurl <> ثم
isext = lace (Mid (Strurl ، Instrrev (Strurl ،.)+1))
آخر
isext =
إنهاء إذا
exts = avi ، wmv ، asf ، mov ، rm ، ram
إذا instr (exts ، isext) = 0 ثم
استجابة. كتابة ملف فيديو غير قانوني
آخر
حدد الحالة ISext
CASE AVI ، WMV ، ASF ، MOV
استجابة. write <inmbed id = mediaPlayer src = & strurl & width = & strwidth & height = & strheight & loop = false autostart = true> </mbed>
حالة MOV ، RM ، رام
استجابة. write <Quicin height = & strheight & width = & strwidth & classid = clsid: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
استجابة. write <param name = _extentx value = 12700>
استجابة. write <param name = _extenty value = 9525>
استجابة. write <param name = autostart value = -1>
استجابة. write <param name = diale dale = 0>
استجابة. write <param name = preftch value = 0>
استجابة. write <param name = nolabels value = 0>
استجابة. write <param name = src value = & strurl &>
استجابة. write <param name = controls value = imageWindow>
استجابة. write <param name = console value = clip>
استجابة. write <param name = loop value = 0>
استجابة. write <param name = numloop value = 0>
استجابة. write <param name = center value = 0>
استجابة. write <param name = stainAtnaSpect value = 0>
استجابة. write <param name = backgroundColor value =#000000>
استجابة. write </object>
الرد. write <br>
استجابة. write <Quicin height = 32 width = & strwidth & classid = clsid: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
استجابة. write <param name = _extentx value = 12700>
استجابة. write <param name = _extenty value = 847>
استجابة. write <param name = autostart value = 0>
استجابة. write <param name = diale dale = 0>
استجابة. write <param name = preftch value = 0>
استجابة. write <param name = nolabels value = 0>
استجابة. write <param name = controls value = controlPanel ، statusBar>
استجابة. write <param name = console value = clip>
استجابة. write <param name = loop value = 0>
استجابة. write <param name = numloop value = 0>
استجابة. write <param name = center value = 0>
استجابة. write <param name = stainAtnaSpect value = 0>
استجابة. write <param name = backgroundColor value =#000000>
استجابة. write </object>
نهاية الاختيار
إنهاء إذا
نهاية الفرعية
طريقة الاتصال:
نسخة الكود كما يلي:
استدعاء Selplay (Dvurl ، 280،220)
في الواقع ، رمز أفضل ، في بعض التعليمات البرمجية المصدر الجيدة للاعب عبر الإنترنت ، وما إلى ذلك ، يمكنك الرجوع إليها ، مثل: Max وأنظمة تشغيل الفيديو الأخرى.