Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Fala galera!
Seguinte.. Estou com problemas com o wscript.shell
mais somente no servidor web, pois no servidor local
o codigo roda perfeitamente. Já comuniquei ao pessoal
do servidor mais eles disseram q todas as permissoes
estao setadas. Fiz alguns testes e verifiquei que o objecto
é criado mais quando o script tenta rodar o ffmpeg.exe o servidor
fica carregando pra sempre.
Faça o teste em http://www.onjob.com.br/crea/empregos/TesteUploadPodcast.asp
Cheguei a testar outro codigo de um post que encontrei aqui
http://forum.imasters.com.br/index.php...mp;#entry848878
e o mesmo acontece, veja: www.onjob.com.br/crea/ping.asp
O script q fiz funciona da seguinte maneira, o usuario envia o arquivo
e o script executa o ffmpeg que converte arquivos de audio como wav e
wma para mp3. Segue o código:
<!--#include file="../inc/DBAbre.asp" -->
<!--#include file="../inc/Comum.asp" -->
<!--#include file="../inc/Upload.asp" -->
<!--#include file="../inc/Library.asp" -->
<%
Set Uploader = New FileUploader
If Uploader.Form("action") = "addpodcast" Then
strPodcast = "podcast"
lngCurriculoID = "11225216608652678542"
lngPodcastCodigo = 4
strExtencao = LCase(Mid(Uploader.Files(strPodcast).FileName, InStrRev(Uploader.Files(strPodcast).FileName, ".")))
strNomeArquivo = lngCurriculoID&"-"&lngPodcastCodigo& strExtencao
Uploader.Files(strPodcast).FileName = strNomeArquivo
Uploader.Files(strPodcast).SaveToDisk PASTA_PROF_PODCASTS_VIRTUAL_VERIFICA
'Converte audio para *.MP3
dim sExecuteable
dim oShell
dim sOutputFilepath
dim cmd
sExecuteable = "ffmpeg.exe"
sPodcastFilepath = PASTA_PROF_PODCASTS_VIRTUAL_VERIFICA&strNomeArquivo
sOutputFilepath = PASTA_PROF_PODCASTS_VIRTUAL&"\"&lngCurriculoID&"\"&lngCurriculoID&"-"&lngPodcastCodigo&".mp3"
cmd = server.mappath(sExecuteable) & " -i """ & sPodcastFilepath & """ -b 128 """ & sOutputFilepath & """"
set oShell = server.createobject("Wscript.Shell")
oShell.Run cmd
set oShell = nothing
End If
%>
<form action="TesteUploadPodcast.asp" method="post" enctype="multipart/form-data">
<input type="hidden" name="action" value="addpodcast" />
<label>Arquivo:</label><input class="file" size="40" type="file" name="podcast" /> <br />
<input type="submit" style="font-size:11px;" value="enviar" /><br /><br />
</form>
Alguem pode dar um help?
Desde já agradeço. http://forum.imasters.com.br/public/style_emoticons/default/grin.gif
Carregando comentários...