Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Weblur

[Resolvido] Inserir player de áudio numa enquete

Por , em ASP Clássico

Recommended Posts

Weblur    0

Weblur
Postado

Olá pessoal, tudo bem??

 

É o seguinte, tenho uma rotina em asp de uma enquete. É um script velhinho mas q funciona muito bem.

Acontece q estou levando uma surra pq preciso inserir um botão de play ao lado de cada opção desta enquente, q ao pressioná-lo, executa um áudio.

 

Tentei utilizar o Jquery JPlayer (Circle Player), mas não consigo de maneira nenhuma fazer funcionar.

 

Deixo abaixo o cód na esperança de q os mestres daqui do fórum possam me ajudar!!

 

Muitíssimo obrigada desde já!!

 

<!DOCTYPE html>
<link href="botao.css" rel="stylesheet" type="text/css">
<link href="glass.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" type="text/css" href="botao.css"/>
<link rel="stylesheet" href="css/not.the.skin.css">
<link rel="stylesheet" href="circle.skin/circle.player.css">
<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.6/jquery.min.js"></script>
<script type="text/javascript" src="js/jquery.transform.js"></script>
<script type="text/javascript" src="js/jquery.grab.js"></script>
<script type="text/javascript" src="js/jquery.jplayer.js"></script>
<script type="text/javascript" src="js/mod.csstransforms.min.js"></script>
<script type="text/javascript" src="js/circle.player.js"></script>
<!--<script type="text/javascript" src="https://getfirebug.com/firebug-lite.js"></script>-->

<script type="text/javascript">

  	 $(document).ready(function() { 
 		 $("#jquery_jplayer1").jPlayer({ 
    	 ready: function() { 

        this.element.jPlayer("setFile"); 

     }, 
     volume: 50, 
     errorAlerts: true, 
     nativeSupport: true, 
     oggSupport: false, 
     preload: 'none' 
  }); 
}); 

function playIt() { 
  $("#jquery_jplayer1").jPlayer("play"); 
} 

	</script>


<body style="background-color: transparent">


<TABLE BORDER=0 WIDTH="100%" cellspacing=0 cellpadding=0>
 <form method="POST" action="enquete_exe.asp">
   <TR>
     <TD ALIGN="LEFT" VALIGN="TOP">
<%=sQuestion%>
</TD>    </TR>
   <TR>
     <TD>   


       <%
   Dim nCount
   Dim nDef
   For nCount=1 To 8 
   	If vAnswers(nCount) <> "" and vLinks(nCount) <> "" Then
	   %>


       <div id="enq">
         <input type="radio" value="<%=nCount%>" <%If nDef = False Then %>checked<%End If%> name="R1">

       <%=vAnswers(nCount)%>


         <a href="<%=vLinks(nCount)%>" onClick="playIt">Tocar</a>



         <%
   	nDef = True
   	End If
  		Next
  		 %>

       </div>


       <input name="B1" id="botao" type="submit" class="cssbutton" value=" ">
       <font face="Arial, Helvetica" size="2" color="#000000">  </font></TD>
   </TR>
 </form>
</TABLE>

 

Onde: VLinks = url q contem os áudios cadastrados no bd

 

Aqui é o problema: <a href="<%=vLinks(nCount)%>" onClick="playIt">Tocar</a> simplesmente ele não executa, ao invés disso ele pede pra salvar o arquivo (m4a) em disco.

 

 

PS: A forma q consegui fazer o áudio abre dentro do windows media player local da máquina (ou qq outro q o user tiver como padrão) e desta forma não quero. Preciso q o áudio seja tocado tipo streaming.

 

Por favor, ajudem essa leiga??

 

Esquema de como será a enquete:

( ) Musica 1 - play - foto

(x) Musica 2 - play - foto

até 25

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode usar o http://www.longtailvideo.com/players/jw-flv-player/

se trabalha com o dreamweaver insira um extension do player

e abaixo um exemplo

<%
'****************************************************************************************
'**  Copyright Notice    
'**
'**  PlaneteAfrique - WS-MP3
'**                                                              
'**  Copyright 2005-2006 Diop Salif All Rights Reserved.                                
'**
'**  This program is free software; you can modify (at your own risk) any part of it 
'**  under the terms of the License that accompanies this software and use it both 
'**  privately and commercially.
'**
'**  All copyright notices must remain in tacked in the scripts and the 
'**  outputted HTML.
'**
'**  You may use parts of this program in your own private work, but you may NOT
'**  redistribute, repackage, or sell the whole or any part of this program even 
'**  if it is modified or reverse engineered in whole or in part without express 
'**  permission from the author.
'**
'**  You may not pass the whole or any part of this application off as your own work.
'**   
'**  All links to Web www.PlaneteAfrique.com  must remain unchanged and in place
'**  and must remain visible when the pages are viewed unless permission is first granted
'**  by the copyright holder.
'**
'**  This program is distributed in the hope that it will be useful,
'**  but WITHOUT ANY WARRANTY; without even the implied warranty of
'**  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER 
'**  WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'**
'**  No official support is available for this program but you may post support questions at: -
'**  http://www.PlaneteAfrique.com/
'**
'**  Support questions can be answered by e-mail.
'**
'**  For correspondence contact: -
'**  webmaster@planeteafrique.com
'**
'****************************************************************************************
Dim son, defaultSon,defaultDirectory,PlayerColor
%><head>
<Title>WS-MP3 player</Title>
<script language="JavaScript">
<!--
function FP_jumpMenu(el,frm,sel) {//v1.0
var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
}
// -->
</script>
<%
'***********************************************************************************
'Begin customisation

'Set the mp3 default directory  
'Use this line below if mp3 are located in another directory
	'defaultDirectory = "../../TheFolder/"
'Use this line below if mp3 are located in the same directory
	defaultDirectory = "."
'set the default song. do not add the extension
	defaultSon = "Anazoua"
'Set the player color
	PlayerColor = "FFFFFF"

'End customisation
'***********************************************************************************
'DO NOT MODIFY THIS
son = request.querystring("son")
If request.querystring("son") = "" Then
son = defaultSon
End if
%>
<table border="0" id="table1" cellspacing="0" cellpadding="0">
<tr>
	<td>
<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="181" height="21">
<param name="movie" value="1.swf?son=<%=son%>.mp3">
<param name="quality" value="High">
<param name="bgcolor" value="#<%=PlayerColor%>">
<embed src="1.swf?son=<%=son%>.mp3" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="181" height="21" quality="High" bgcolor="#<%=PlayerColor%>"></object>
	</td>
</tr>
<tr>
	<td>
	<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{

 if (theForm.D1.selectedIndex == 0)
 {
   alert("La première option \"Select an MP3 !\" n'est pas une sélection valide. Choisissez une des autres options.");
   theForm.D1.focus();
   return (false);
 }
 return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="<%=request.servervariables("SCRIPT_NAME")%>" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<%
Dim fso, f, DossierImage		
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder=MyFileObject.GetFolder(Server.MapPath(defaultDirectory))
%><!--webbot bot="Validation" s-display-name="Select an MP3 !" b-disallow-first-item="TRUE" --><select title="Playlist" alt="Playlist" size="1" name="D1" onchange="FP_jumpMenu(this,'window',false)" style="font-family: arial; font-size: 8pt; cursor:hand"> 
<option value=""></option>
<%
'Loop trough the files in the folder
Dim valeur
valeur=0
FOR EACH thing in MyFolder.Files 
'TALK ABOUT ONLY MP3 FILES :
MonFichier = Thing.Name
tableau=Split(MonFichier,".")
NomCourt=tableau(0)
Extension=tableau(1)
if LCase(Extension) = "mp3" Then %><option  value="<%=request.servervariables("SCRIPT_NAME")%>?son=<%=NomCourt%>">[<%=valeur%>] - <%=NomCourt%></option>
<%
valeur = valeur +1
End if
NEXT
%></select> 
<%
If  request.querystring("son") <> "" Then
%>
<a target="_blank" href="http://www.planeteafrique.com/__Ateliers/Index.asp?affiche=Applications/WS-MP3.asp"><img border="0" ALT="Get it!" Title="Get it!" src="puce_WSMP3.jpg" align="middle"></a><%End if%>
</td></form></tr></table>

 

aqui outro exemplo que uso, muito bom, simples e funcional, ele pega todas as extenções de mp3 em uma pasta, exibe os arquivos, com o tamanho e clicando ele inicia o player

<HTML>
   <HEAD>
   <TITLE></TITLE>
   </HEAD>
   <BODY>
   <%
   On Error Resume Next
   Dim FileSystemObject, Folder, FileCollection, File
   Dim FolderPath, WebDir
   	If Request.QueryString("play") >"" Then
   	Response.Write "<EMBED src=" & chr(34) & Request.QueryString("play") & chr(34) 
   	Response.Write " width=350 height=43 controls=console volume=80"
   	Response.Write " width=350 loop=false type='audio/mp3'>"
   	Response.Write "<BR>"
   	End If
   Server.ScriptTimeOut=1
   FolderPath= server.MapPath(".") & "\"
   WebDir= Request.ServerVariables("PATH_INFO")
   Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
   'List All Files
   Set Folder = FileSystemObject.GetFolder(Folderpath)
   Set FileCollection = Folder.Files
   For Each File In FileCollection
   		s = LCase(File.Name)
   		If ucase(Right(File.name,4))=".MP3" Then
   			Response.Write "<A href=" & chr(34) & webdir & "?Play=" & File.name & chr(34) & ">" & File.name & " FileSize=" & File.size & "</A><BR>"
   		Else
   			'Code To display other file types with a regular link
   			'Response.Write "<A href=" & chr(34) & webdir & f1.name & chr(34) & ">" & f1.name & " FileSize=" & f1.size & "</A><BR>"
   		End If
   Next
   %>
   </BODY>
   </HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Weblur    0

Weblur
Postado

Olá amigo xanburzum!!

 

Em primeiro lugar, super obrigada por ter me respondido!!

 

Eu pensei em usar flash pra gerar um player com cada música, e assim chamar a URL (sound1.swf, sound2.swf, o total serão 25 arquivos) dentro do BD. Mas o q aconteceu é q a exebição do asp ficou aguardando até q todos os swf fossem carregados, e cada um tem na média uns 3MB, por serem mp3.

 

Eu dei uma olhada no JW-FLV Player, mas acho q terei o mesmíssimo comportamento q tive usando um flv q eu mesma desenvolvi. Penso isso, pq quem chama os swf é o <%=vLinks(nCount)%>.

 

Qto aos scripts q você passou, me desculpe, mas não compreendi como usá-los.

 

Poderia me ajudar a resolver essa dor de cabeça?? rsrs

 

Esquema:

() Musica 1 - play - foto

() Musica 2 - play - foto

até 25

Compartilhar este post

Link para o post
Compartilhar em outros sites

saloeric    1

saloeric
Postado

bem eu não testei e não conhecia o plugin mas tente fazer assim:

 


function leitor(musica){

$("#jquery_jplayer_1").jPlayer({
 ready: function () {
  $(this).jPlayer("setMedia", {
   m4a: musica
  });
 },
 swfPath: "/js",
 supplied: "m4a"
});
}


$(document).ready(function(){

$(".listamusicas").click(function(){
	var musica = $(this).attr("musica");
	leitor(musica);
	return false;
});

});

e no asp e html




<a class="listamusicas" href="#" musica="<%=vLinks(nCount)%>" >Tocar</a>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

execute o segundo code que te passei ele é bem funcional e fácil

lembrando que você ambém opde usar Jquery para um efeito mais aprimorado e com uso de XL

Compartilhar este post

Link para o post
Compartilhar em outros sites

Weblur    0

Weblur
Postado

saloeric, em primeiro lugar, obrigada por tentar me ajudar!!

 

Fiz o q você sugeriu mas não executa o som. :(

 

xanburzum, na verdade eu não estava querendo alterar o cód asp da enquete, uma vez q ela já está implantada e asp não é meu forte. Eu apenas queria fazer tocar o sonzinho!!!!

No cód q você me passou, você sugere q eu crie um outro sistema apenas pra tocar o som?? Aì já fico sem saber como fazer com q as duas coisas se comuniquem, meu cód e o seu.

Compartilhar este post

Link para o post
Compartilhar em outros sites

saloeric    1

saloeric
Postado

Olá, tente então primeiro colocar apenas uma música a funcionar com o plugin tal como eles têm lá na página deles

 



$(document).ready(function(){
$("#jquery_jplayer_1").jPlayer({
 ready: function () {
  $(this).jPlayer("setMedia", {
   m4a: "/media/mysound.mp4",
   oga: "/media/mysound.ogg"
  });
 },
 swfPath: "/js",
 supplied: "m4a, oga"
});
});

<div id="jquery_jplayer_1"></div>
<div id="jp_interface_1">
<a href="#" class="jp-play">Play</a>
<a href="#" class="jp-pause">Pause</a>
</div>

 

 

quando tiver a tocar uma sua musica poste o codigo para depois tentarmos adaptar a enquete

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

o segundo código que falei, e apenas insira o

Response.Write "<A href=" & chr(34) & webdir & "?Play=" & File.name & chr(34) & ">" & File.name & " FileSize=" & File.size & "</A><BR>"

na frente da enquete ele irá mostrar os controles do player e você pode configurá-lo para executar automatcamente

Compartilhar este post

Link para o post
Compartilhar em outros sites

Weblur    0

Weblur
Postado

Amigos saloeric e xanburzum

 

Vcs são ótimos, muito bom poder contar com a ajuda de vcs!!

 

Acabei conseguindo inserir um swf pra cada mp3 e deu certo. Mas ainda irei tentar as sugestões de vcs.

 

Agora estou com outro pepino pra resolver, mas acho mais prudente abrir outro tópico.

 

Muitíssimo obrigada mais uma vez!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

depois se quiser para fins didáticos me manda um email que te passo algumas aplicações envolvendo player em Jquery o resultado final fica ótimo

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito