2 replies to this topic

[Humberto - S.O.S.]

Olá,
Estou com um problema drastico aqui, o caso é o seguinte.
Tenho um script que estou usando para os clientes baixar midias (mp3, wma, mid) sem abrir o tão famoso Windows Media Player. O script abre direto o download. segue abaixo o script:

<%
Arquivo = "midia.mp3"
Caminho_Arquivo = "upload/musicas/"&Arquivo
Response.Buffer = True 'armazena em buffer
response.AddHeader "Content-Type", "application/x-msdownload" 'altera o cabeçalho
response.AddHeader "Content-Disposition", "attachment; filename="&Arquivo 'altera o cabeçalho 
Response.Flush 'mostra o conteudo que estava armazenado no buffer
Const adTypeBinary = 1 '*
Dim strFilePath '*
Set objStream = Server.CreateObject("ADODB.Stream") '*
objStream.Open '*
objStream.Type = adTypeBinary '*
objStream.LoadFromFileServer.MapPath(Caminho_Arquivo) '*
Response.BinaryWrite objStream.Read '*
%>

Até ai tudo bem, ele faz o download, tudo lindo.
O problema é na hora de ouvir o que baixou, parece que ele baixa com erro, e não executa o audio.
Ja tentei de tudo e me parece que o erro esta na linha

response.AddHeader "Content-Disposition", "attachment; filename="&Arquivo 'altera o cabeçalho

Só que nao sei o que fazer, alguem pode me ajudar?

agradeço desde ja,

[gUiTaR_mAn]

cara... fiquei curioso quando vi essa sua duvida... testei seu codigo e realmente apresenteu o problema que vc descreveu...
notei que o download tb tava acontecendo rapido demais... e o arquivo, que era de 2 mb tava chegando com 300 bytes

testei um codigo que eu tinha em uma aplicação minha aqui e funcionou perfeitamente

segue abaixo:

<%
Dim Arquivo
Arquivo = "musica.mp3"

Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & Arquivo
Response.Flush

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath(Arquivo)
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
%>

espero que ajude...
vlw

[Humberto - S.O.S.]

gUiTaR_mAn fico agradecido pela sua atenção, seu código funcionou perfeitamente,
obrigado, Deus te abençõe