Als ich ein Programm für den Kunden erstellte, stieß ich plötzlich auf ein Problem, dh wenn der Produktseitenbenutzer eine Video -Wiedergabedatei einreicht, wie man das richtige Videoformat in der eingereichten URL abspielt ... Ich wurde für eine Weile depressiv und dachte über die Idee nach, und begann, es zu tun, als ich es mit der Idee hatte. Zukunft wurde eine allgemeine Anruffunktion geschrieben, um in Zukunft Anrufe in anderen Systemen zu ermöglichen.
Der Quellcode wird jetzt wie folgt veröffentlicht:
Die Codekopie lautet wie folgt:
Sub -Selple (StRURL, STRWIDTH, STRHEYHT)
Dim Exts, ist ISEXT
Wenn Streurl <> dann
isext = lase (Mid (StRURL, Instrrev (Streurl,.)+1))
Anders
isext =
Ende wenn
Exts = AVI, WMV, ASF, MOV, RM, RAM
Wenn Instrumente (Exts, iSext) = 0 dann
Antwort.Write illegale Videodatei
Anders
Wählen Sie den Fall Isext
Fall AVI, WMV, ASF, MOV
Response.write <Einbett ID = MediaPlayer src = & stRURL & width = & strwidth & height = & strHeight & loop = false autostart = true> </einbett>
Fall Mov, RM, Ram
Antwort.
Antwort.Write <param name = _extentx value = 12700>
Antwort.Write <param name = _extenty value = 9525>
Antwort.Write <param name = autostart value = -1>
Antwort.Write <param name = shuffle value = 0>
Antwort.Write <param name = prefetch value = 0>
Antwort.Write <param name = nolabels value = 0>
Response.write <param name = src value = & stRURL &>
Antwort.
Antwort.Write <param name = console value = clip>
Antwort.Write <param name = Loop value = 0>
Antwort.Write <param name = numloop value = 0>
Antwort.Write <param name = center value = 0>
Antwort.
Antwort.
Antwort.Write </Object>
Response.write <br>
Antwort.
Antwort.Write <param name = _extentx value = 12700>
Antwort.Write <param name = _extenty value = 847>
Antwort.Write <param name = autostart value = 0>
Antwort.Write <param name = shuffle value = 0>
Antwort.Write <param name = prefetch value = 0>
Antwort.Write <param name = nolabels value = 0>
Antwort.Write <Paramame
Antwort.Write <param name = console value = clip>
Antwort.Write <param name = Loop value = 0>
Antwort.Write <param name = numloop value = 0>
Antwort.Write <param name = center value = 0>
Antwort.
Antwort.
Antwort.Write </Object>
Ende auswählen
Ende wenn
Ende sub
Anrufmethode:
Die Codekopie lautet wie folgt:
Rufen Sie SULPSE (DVURL, 280,220) an
Tatsächlich können Sie in einem relativ guten Online -Player -Quellcode usw. einen besseren Code usw. verweisen, wie z. B. Max und andere Video -Wiedergabesysteme.