URL CODIFICADA EM UFT-8

TIAGOVITAL 13/05/2014 19:15:12
#438157
Olá boa noite pessoal.
Criei uma aplicação que faz download de arquivos na Internet
usando o seguinte codigo :
   [ô]Crio o Objeto responsavel  para fazer a requisição via HTTP
        Set RequisicaoHTTP = CreateObject([Ô]WINHTTP.WinHttpRequest.5.1[Ô])
        
        [ô]abro a URL peloe Metodo GET
        RequisicaoHTTP.Open [Ô]POST[Ô], UrlOrigem, False
        [ô]Envio a Requisição para o Link desejado
        DoEvents
        
        RequisicaoHTTP.Send
        
            [ô]Se aconteceu algum erro altero o status
            If Err.Number <> 0 Then
                        MsgBox [Ô]Erro ao baixar Arquivo ![Ô] & Err.Description
                        Exit Sub
            Else
                [ô]Caso não ocorra erro abro o arquivo de destino e salvo o arquivo retornado que está em Byte
                Open PastaDestino For Binary As #1
                    DadoByte() = RequisicaoHTTP.ResponseBody
                    Put #1, 1, DadoByte()
                Close #1
                [ô]seto o status como Sucesso
              
                
            End If
         [ô]Destrui o objeto em memoria
        Set RequisicaoHTTP = Nothing

Notei que quando é passado a URL neste formato
https://ww.site.com.br/Staden- O perfume.mp3

o arquivo é baixando somente com 1kb
mas se eu jogar a mesma URL no Navegador
o mesmo a converte para o formato de URL UTF-8
a transformando para
https://ww.site.com.br/Staden-%20O%20perfume.mp3
e o arquivo baixa normalmente.
Passando a mesma URL COdificada para meu programa
o arquivo tbem e baixado.

Gostaria de saber se alguem sabe alguma funcioalidade em VB 6 para que eu possa
Codificar a URL para UFT-8 para que possa baixar o arquivo corretamnte.
Ou se não se existe alguma maneira de baixar o arquivo sem perda de dados pelo meu programa.

Desde já Muito Obrigado
Faça seu login para responder
Voltar