Jump to content


Photo

Baixar Midia


  • Faça o login para participar
2 replies to this topic

#1 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 30/04/2008, 14:14

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,
...

#2 gUiTaR_mAn

gUiTaR_mAn

    Programador ASP

  • Usuários
  • 431 posts
  • Sexo:Masculino
  • Localidade:Gaspar - SC

Posted 01/05/2008, 10:29

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 (y)
MegaClassi.com.br
Seu próximo veículo está aqui.

#3 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 05/05/2008, 09:17

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




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq