MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Solução da falha no protocolo HTTPS de exemplo

    franklin.crivelaro
    franklin.crivelaro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/01/2016

    Solução da falha no protocolo HTTPS de exemplo Empty Solução da falha no protocolo HTTPS de exemplo

    Mensagem  franklin.crivelaro 10/1/2023, 03:14

    Origem: Exemplo Download Direto / Download Direto Dropbox


    Caros Companheiros do Forum,
    Eu me deparei com uma falha ao tentar usar a api URLDownloadToFile que não gerava erro quando o download do arquivo é oriundo de uma url que utiliza o protocolo HTTPS.
    Com protocolo HTTP funciona corretamente.

    A solução identifiquei no link abaixo, abandonando o uso da api URLDownloadToFile e quero compartilhar com vocês:

    stackoverflow.com/questions/34923409/excel-vba-urldownloadtofile-error-for-httpsresource

    No código de exemplo abaixo, na chamada da sub é passado a url e caminho de destino (com nome do arquivo  e extensão)

    Código:
    Private Sub BaixaArquivo()

       call download_arquivo("https:\\suaurl","C:seudiretorio\seuarquivo.txt")
     
    end sub

    Public Sub download_arquivo(strurl As String, strpath_destino As String)
       Dim oStream As Object
       Dim WinHttpReq As Object
       Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
       WinHttpReq.Option(4) = 13056 ' Ignora Erros devido a certificado SSL
       
       On Error GoTo fim
       
       WinHttpReq.Open "GET", strurl, False
       
       WinHttpReq.setRequestHeader "Accept", "*/*"
       WinHttpReq.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
       WinHttpReq.setRequestHeader "Proxy-Connection", "Keep-Alive"
       WinHttpReq.Send
       
       'pega o retorno da chamada e passa para a var
       strurl = WinHttpReq.responseBody
       
       'se o status do retorno for 200, existe a url, cria um objeto de stream e passa o retorno para ele
       If WinHttpReq.status = 200 Then
           Set oStream = CreateObject("ADODB.Stream")
           oStream.Open
           oStream.Type = 1
           oStream.Write WinHttpReq.responseBody
           'salva o arquivo baixado no destino passado no parâmetro
           oStream.SaveToFile strpath_destino, 2
           'fecha o objeto
           oStream.Close
       Else
           'se o status não for de ok, apresenta msg ao usuário com o erro
           MsgBox "Código do Retorno:" & WinHttpReq.status & vbCr & "O Download não foi autorizado", vbExclamation, "Falha no download"
       End If
       
       Exit Sub
    fim:
       MsgBox Err.Description, vbExclamation, "Erro"
    End Sub

    Fernando Lucas e gibegarcia gostam desta mensagem

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 19/08/2010

    Solução da falha no protocolo HTTPS de exemplo Empty Re: Solução da falha no protocolo HTTPS de exemplo

    Mensagem  marcelo3092 17/3/2023, 10:54

    Rapaz vc nao sabe o tanto que me salvo eu tava usando a forma antiga e tava dando problema que a foto no servidor tava de pe quando descia e carregava no form ficava virada tentei de tudo mais sem sucesso ai adaptei tua forma funciono perfeito a foto vem normal

    tava usando dessa forma

    Código:
    strarquivo = Me!Foto1

    If Me.Foto1 = "SemImagem" Then
    Me.FT1.Picture = CurrentProject.Path & "\Img\noimg.jpg"


    Else
         
    80      url = "https://" & p_site & "/img/candidatos/" & Foto1
    90      CaminhoLocal = CurrentProject.Path & "\Img\Candidatos\" & strarquivo
    100     Auxiliar = URLDownloadToFile(0, url, CaminhoLocal, 0, 0)

    110     If Dir(Nz(CaminhoLocal, " "), vbArchive) <> "" Then
    120         Me.FT1.Picture = CaminhoLocal


    130     End If

    140 End If

    franklin.crivelaro gosta desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    Solução da falha no protocolo HTTPS de exemplo Empty Re: Solução da falha no protocolo HTTPS de exemplo

    Mensagem  Alvaro Teixeira 17/3/2023, 12:53

    Olá a todos,

    Franklin Crivelaro, só vi hoje, obrigado pela contribuição.
    Marcelo Antonio, obrigado pelo seu testemunho.

    Abraço

    franklin.crivelaro gosta desta mensagem

    franklin.crivelaro
    franklin.crivelaro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/01/2016

    Solução da falha no protocolo HTTPS de exemplo Empty Re: Solução da falha no protocolo HTTPS de exemplo

    Mensagem  franklin.crivelaro 19/3/2023, 11:08

    Mestre Álvaro Teixeira.
    Com o tanto que esse forum já me ensinou e me ajudou, o mínimo que posso fazer é contribuir compartilhando soluções que achei externas ou que desenvolvi e não tenha por aqui.

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    Solução da falha no protocolo HTTPS de exemplo Empty Re: Solução da falha no protocolo HTTPS de exemplo

    Mensagem  Alvaro Teixeira 19/3/2023, 23:02

    cheers

    Conteúdo patrocinado


    Solução da falha no protocolo HTTPS de exemplo Empty Re: Solução da falha no protocolo HTTPS de exemplo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 23:37