API MERCADO LIVRE

LCSSP 10/10/2017 15:37:51
#477087
Boa Tarde Srs.

Estou realizando uma integração com o Mercado Livre via API, porém me deparei com um problema, me retornar um erro (file not found), mas já tente de todas as formas e o arquivo ainda não é recebido pela API.
Se alguem já trabalhou com esta API ou conhece o componente para comunicação e já enviou arquivo pelo mesmo, eu agradeço a ajuda.

Link da API: API Mercado Livre 

  
    Dim adoStream
    Dim xmlhttp
    Dim tresult
    
    Set adoStream = CreateObject([Ô]ADODB.Stream[Ô])
    
    adoStream.Mode = 3         
    adoStream.Type = 1          
    
    adoStream.Open
    adoStream.LoadFromFile (app.path & [Ô]    este.jpg[Ô])
      
    [ô]Post the file data
    Set xmlhttp = CreateObject([Ô]msxml2.XMLHTTP.4.0[Ô])
    adoStream.Position = 0
    xmlhttp.Open [Ô]POST[Ô], [Ô]https://api.mercadolibre.com/pictures?access_token=MEUTOKEN[Ô], False
    xmlhttp.SetRequestHeader [Ô]Content-Length[Ô], adoStream.Size
    xmlhttp.SetRequestHeader [Ô]Content-Type[Ô], [Ô]multipart/form-data; boundary=Xu023434ww[Ô]
    xmlhttp.send adoStream.Read(adoStream.Size)
    
    tresult = xmlhttp.responseText
    MsgBox tresult
    Set adoStream = Nothing
    Set xmlhttp = Nothing

KERPLUNK 10/10/2017 15:55:48
#477088
Amigo, aconselho seriamente utilizar .NET para consumir WebAPI.
Faça seu login para responder
Voltar