| Author |
 Topic  |
|
Ston
Starting Member
8 Posts |
 Posted - 13 December 2006 : 06:13:17
|
thanks a great help
look forward to an update ;-)
Ston< |
 |
|
|
Karel Bata
Junior Member
United Kingdom
122 Posts |
|
|
MarcelG
Retired Support Moderator
Netherlands
2625 Posts |
Posted - 16 January 2007 : 09:21:43
|
Karel; The docid is the 'extracted' link:
http://video.google.com/videoplay?docid=-6936018071617551184 is the webplayer
http://video.google.com/googleplayer.swf?docId=-6936018071617551184 is just the SWF
Here's the functio I'm using :
Function ReplaceGoogleVideoTags(fString)
Dim oTag, cTag
Dim roTag, rcTag
Dim oTagPos, cTagPos
Dim nTagPos
Dim counter1, counter2
Dim strCodeText
Dim Tagcount
Dim strTempString, strResultString
TagCount = 2
Dim CodeTags(2,2,2)
Dim strArray, strArray2
CodeTags(1,1,1) = "[gvid]"
CodeTags(1,2,1) = "[/gvid]"
CodeTags(1,1,2) = "<div class=""media""><script language=""javascript"">EmbedGvidT("""
CodeTags(1,2,2) = """)</script></div><div class=""break""></div>"
CodeTags(2,1,1) = "[GVID]"
CodeTags(2,2,1) = "[/GVID]"
CodeTags(2,1,2) = CodeTags(1,1,2)
CodeTags(2,2,2) = CodeTags(1,2,2)
strResultString = ""
strTempString = fString
for counter1 = 1 to TagCount
oTag = CodeTags(counter1,1,1)
roTag = CodeTags(counter1,1,2)
cTag = CodeTags(counter1,2,1)
rcTag = CodeTags(counter1,2,2)
oTagPos = InStr(1, strTempString, oTag, 1)
cTagPos = InStr(1, strTempString, cTag, 1)
if (oTagpos > 0) and (cTagPos > 0) then
strArray = Split(strTempString, oTag, -1)
for counter2 = 0 to Ubound(strArray)
if (Instr(1, strArray(counter2), cTag) > 0) then
strArray2 = split(strArray(counter2), cTag, -1)
strCodeText = trim(strArray2(0))
strCodeText = replace(strCodeText,"http://video.google.com/videoplay?docid=","http://video.google.com/googleplayer.swf?docId=")
if instr(strCodeText,",") > 0 or _
instr(strCodeText,")") >0 or _
instr(strCodeText,"(") >0 or _
instr(strCodeText,";") >0 or _
instr(strCodeText,"""") >0 or _
instr(strCodeText,"<") >0 or _
instr(strCodeText,">") >0 or _
instr(strCodeText,"[") >0 or _
instr(strCodeText,"]") >0 or _
instr(strCodeText,",") >0 then
strCodeText = "illegal"
end if
strResultString = strResultString & roTag & strCodeText & rcTag & strArray2(1)
else
strResultString = strResultString & strArray(counter2)
end if
next
strTempString = strResultString
strResultString = ""
end if
next
ReplaceGoogleVideoTags = strTempString
end function
Haven't checked out iFilm and oare.tv yet.< |
portfolio - linkshrinker - oxle - twitter |
Edited by - MarcelG on 16 January 2007 09:23:03 |
|
|
|
MarcelG
Retired Support Moderator
Netherlands
2625 Posts |
Posted - 16 January 2007 : 09:30:25
|
BTW ; had a quick look at YouAre.tv.
Those are very easy.
the video that's found at http://www.youare.tv/watch.php?id=2262 results in a flash file located at http://www.youare.tv/player/yatvplayer.swf?videoID=2262
So, here's the function:
Function ReplaceYouAreVideoTags(fString)
Dim oTag, cTag
Dim roTag, rcTag
Dim oTagPos, cTagPos
Dim nTagPos
Dim counter1, counter2
Dim strCodeText
Dim Tagcount
Dim strTempString, strResultString
TagCount = 2
Dim CodeTags(2,2,2)
Dim strArray, strArray2
CodeTags(1,1,1) = "[youare]"
CodeTags(1,2,1) = "[/youare]"
CodeTags(1,1,2) = "<div class=""media""><script language=""javascript"">EmbedFlashT("""
CodeTags(1,2,2) = """,470,360,""false"",""best"",""white"",""white"")</script></div><div class=""break""></div>"
CodeTags(2,1,1) = "[YOUARE]"
CodeTags(2,2,1) = "[/YOUARE]"
CodeTags(2,1,2) = CodeTags(1,1,2)
CodeTags(2,2,2) = CodeTags(1,2,2)
strResultString = ""
strTempString = fString
for counter1 = 1 to TagCount
oTag = CodeTags(counter1,1,1)
roTag = CodeTags(counter1,1,2)
cTag = CodeTags(counter1,2,1)
rcTag = CodeTags(counter1,2,2)
oTagPos = InStr(1, strTempString, oTag, 1)
cTagPos = InStr(1, strTempString, cTag, 1)
if (oTagpos > 0) and (cTagPos > 0) then
strArray = Split(strTempString, oTag, -1)
for counter2 = 0 to Ubound(strArray)
if (Instr(1, strArray(counter2), cTag) > 0) then
strArray2 = split(strArray(counter2), cTag, -1)
strCodeText = trim(strArray2(0))
strCodeText = replace(strCodeText,"http://www.youare.tv/watch.php?id=","http://www.youare.tv/player/yatvplayer.swf?videoID=")
if instr(strCodeText,",") > 0 or _
instr(strCodeText,")") >0 or _
instr(strCodeText,"(") >0 or _
instr(strCodeText,";") >0 or _
instr(strCodeText,"""") >0 or _
instr(strCodeText,"<") >0 or _
instr(strCodeText,">") >0 or _
instr(strCodeText,"[") >0 or _
instr(strCodeText,"]") >0 or _
instr(strCodeText,",") >0 then
strCodeText = "illegal"
end if
strResultString = strResultString & roTag & strCodeText & rcTag & strArray2(1)
else
strResultString = strResultString & strArray(counter2)
end if
next
strTempString = strResultString
strResultString = ""
end if
next
ReplaceYouAreVideoTags = strTempString
end function
Be sure that add this function to FormatStr(), and to add the [youare][/youare] tags to the exceptions for the URL handling.
For iFilm ; they use some form of 'conversion' between the number in the URL (2813025) and the SWF (efp). As I don't know which conversion algorithm they use, all you can do is simply take the embedding code, extract the object source, and embed that as SWF, using the flash tags.< |
portfolio - linkshrinker - oxle - twitter |
Edited by - MarcelG on 16 January 2007 09:34:48 |
|
|
|
Karel Bata
Junior Member
United Kingdom
122 Posts |
Posted - 16 January 2007 : 10:35:30
|
| Thanks. I'll let you know how I do.< |
|
|
|
OBmoderator
New Member
98 Posts |
Posted - 16 January 2007 : 11:33:32
|
Marcel,
How do you add that box in a post< |
|
|
|
JJenson
Advanced Member
USA
2121 Posts |
Posted - 16 January 2007 : 11:39:54
|
| use the scrollcode tags so some thing like [] putting scrollcode in between them and then [/] with scrollcode after the backslash.< |
|
|
|
Karel Bata
Junior Member
United Kingdom
122 Posts |
Posted - 16 January 2007 : 12:29:53
|
Post an example here
(pretty please... )< |
|
|
|
OBmoderator
New Member
98 Posts |
Posted - 16 January 2007 : 13:16:06
|
OK,
That works here but not on my forum.
is there an add on I'm missing to enable that feature?
< |
|
|
|
JJenson
Advanced Member
USA
2121 Posts |
Posted - 16 January 2007 : 13:19:21
|
| Yeah you need to do a search on scrollcode HuwR mentions how to implement it in a topic somewhere not sure where right now.< |
|
|
|
OBmoderator
New Member
98 Posts |
Posted - 16 January 2007 : 14:08:19
|
found it.< |
Edited by - OBmoderator on 16 January 2007 17:18:44 |
|
|
|
Karel Bata
Junior Member
United Kingdom
122 Posts |
Posted - 16 January 2007 : 14:55:46
|
| Shouldn't this be a seperate thread?< |
|
|
|
OBmoderator
New Member
98 Posts |
Posted - 16 January 2007 : 17:18:25
|
yes.
My error
I appologise
< |
|
|
|
Karel Bata
Junior Member
United Kingdom
122 Posts |
Posted - 17 January 2007 : 10:07:42
|
No probs.
For those that may want to persue it here are buttons for iFilm and YouAre.tv
< |
|
|
|
Carlos Miranda Levy
Starting Member
26 Posts |
Posted - 10 March 2007 : 02:18:52
|
Can't get YouTube or Google Video to work
- I uploaded the basic files and followed the instructions on
http://oxle.com/topic.asp?tid=3437
- I then followed the instructions at http://oxle.com/topic.asp?tid=4113 and copied from http://oxle.com/source.asp?page=inc_func_common.asp:
- The ReplaceGoogleVideoTags and ReplaceTubeTags functions
- (UCase(Right(strArray(Counter-1), 6)) <> "[TUBE]") and _
(UCase(Right(strArray(Counter-1), 6)) <> "[GVID]") and _
- I updated embedding.js, copying all content over from http://oxle.com/source.asp?page=embedding.js
- I have done ILLHILL's update of the EmbedTubeVideoT EmbedTubeVideo functions in embedding.js to recognize the "watch" change in the URL as mentioned in:
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=60387&whichpage=7
(I tried using the old format for the link before changing it and no luck either).
The Mod works, as I am able to embed WMV's, however I can't get Youtube or GoogleVideo to work.
Take a look at:
http://www.civila.com/comun/foros/topic.asp?TOPIC_ID=41555
User name: test
Password: test
By the way, I am using Image's MultiLang 3D Portal, which already includes a [flash] tag and function, but I have commented it out to avoid conflicts.
'fString = doCode(fString, "[flash ",":","<EMBED WIDTH=""",""" HEIGHT=""")
'fString = doCode(fString, "]","[/flash]",""" SRC=""",""" HIDDEN=""false"" AUTOSTART=""true"" LOOP=""true"" volume=""100""></EMBED>")
Marcel, do you have youtube currently working on your site? Anyone?
Thanks,
Carlos.< |
Edited by - Carlos Miranda Levy on 10 March 2007 02:20:11 |
|
|
|
Topic |
|
|
|
Using video/flash in topics?
