Ver Mensaje Individual
  #124 (permalink)  
Antiguo 08/12/2005, 11:26
Avatar de JuanRAPerez
JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 1 mes
Puntos: 27
De acuerdo sonar musica continua (tipo radio) en asp

no se si lo borraran o lo moveran, pero esto yo me andube dando como loco y no encontre en ningun lugar como hacerlo.

Problema: tenia que montar musica navideña par la musica, pero de una forma continua, para que la gente de mi intranet pudiera tener acceso a ella, existian un par de cosas que resolver, por ejemplo, no poner los audios en buena calidad y evitar distociones y sobre todo trafico innecesario en la intranet.

solucion:
Descargue una aplicacion hecha en PHP que alguien puso el codigo para asp y es del que voy a hablar en adelante.

Descargar de: http://www.radioblogclub.com/
es una pequeña animación flas que reproduce canciones en formato *.rbs

en la misma aplicación viene el convertidor de MP3 a RBS (facilisimo de usar), el cual baja audios de 5 megas en 900kb y con calidad buena de audio.

lo copie en mi sitio web, y solo tuve que agregar en tipos MIME las extensiones rbs
Directorio /radio.blog/

para esto te vas al IIS
propiedades del sitio
encabezados HTTP
tipos de archivo
nuevo
estension asociada: .rbs
MIME: application/octet-stream

listo

luego en el raiz de /radio.blog/
copie el siguiente asp

default.asp
Cita:
<html>
<head>
<title>RADIO.BLOG</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#3,0,0,0" width="220" height="300">
<param name="src" value="radioblog.swf?autoplay=<% = request("autoplay") %>">
<param name="quality" value="high">
<embed src="radioblog.swf?autoplay=<% = request("autoplay") %>" type="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" width="220" height="300">
</object><br>


</body>
</html>

copie los audios preparados en
/radio.blog/sound

y dentro de el el siguiente asp

playlist.asp

Cita:
<%

CONST FILE_EXT = ".rbs"

dim path
dim oXml, oNodeTrk
dim oFso, oFld, oFile

path = server.mappath(".")

set oFso = server.createObject("Scripting.FileSystemObject")
set oFld = oFso.getFolder(path)


set oXml = server.createobject("MSXML2.DOMDocument")
oXML.async=false

set oXML.documentElement = oXML.createElement("tracks")

for each oFile in oFld.files

if right(oFile.name, 4) = FILE_EXT then

set oNodeTrk = oXml.createElement("track")
oXML.documentElement.appendChild oNodeTrk

oNodeTrk.setAttribute "trackMod", dateDiff("s", cdate("1970-01-01"), oFile.DateLastModified)
oNodeTrk.setAttribute "title", left(oFile.name, len(oFile.name)-4)
oNodeTrk.setAttribute "path", oFld.name &"/"& oFile.name

set oNodeTrk = nothing

end if

next

'response.contentType = "text/xml"

response.write "<?xml version=""1.0"" encoding=""UTF-8""?>"
response.write oXml.xml

set oXml = nothing
set oFso = nothing

%>
listo solo necesitas probarlo
para auto play tendias que poner en tu navegador

default.asp?autoplay=1

archivos necesarios
config.xml - cambia la apariencia de colores del reproductor
radioblog.swf - reproductor de audios
rbcore.swf -

los dos asp anteriores

suerte
si quieren probarlo
entren a :

http://juanra.cybercentro.com.sv/nav...asp?autoplay=1

jijiji esperando les sirva y que el enlace no lo haya removido para proximos años

saludos

editado:
ojo la musica en rbs no deve de llevar caracteres extraños
ni eñes ni tildes, ni otro caracter, porque eso hace errores en el barrido de el asp playlist
__________________
JuanRa Pérez
San Salvador, El Salvador