activex not working (wodHttpDLX)
Hi
I have a code that works in vba
Dim httpRequest
Set httpRequest = CreateObject("MSXML2.ServerXMLHTTP.6.0")
httpRequest.SetOption 2, 13056
httpRequest.Open "POST", tokenUri, True
httpRequest.setRequestHeader "AUTHORIZATION:", "BASIC ZjM1MGIyNGIwOWQ2NTRkZDd"
httpRequest.setRequestHeader "Content-Type:", "application/x-www-form-urlencoded"
httpRequest.Send tokenRequestBody
Do While httpRequest.readyState <> 4
DoEvents
httpRequest.waitForResponse (1)
Loop
Debug.Print httpRequest.status
Debug.Print httpRequest.responseText
i want to use activex and i'm not getting the same result
wodHttpDLX1.URL = tokenUri
wodHttpDLX1.Request.Headers.Add "AUTHORIZATION", "BASIC ZjM1MGIyNGIwOWQ2NTRkZDd"
wodHttpDLX1.Request.Headers.Add "Content-Type", "application/x-www-form-urlencoded"
wodHttpDLX1.Post tokenRequestBody
Debug.Print wodHttpDLX1.Response.StatusCode
Debug.Print wodHttpDLX1.Response.Body
activex not working
Hi,
where do you set Http.Request.Body? I see you use 'Post' method, but not with the URL. If you check our helpfile
https://www.weonlydo.com/HttpDLX/Help/wodHttpDLX-object-Post-method.html
argument in Post is not body contents, but the URL.
Can you try to change that and then let me know if it's ok.
Regards,
Jasmine
activex not working
I changed it and now i'm getting an empty response
wodHttpDLX1.Request.Headers.Add "AUTHORIZATION", "BASIC ZjM1MGIyNGIwOWQ2NTRkZ"
wodHttpDLX1.Request.Headers.Add "Content-Type", "application/x-www-form-urlencoded"
wodHttpDLX1.Hostname = "https://openapi.taxes.gov.il"
wodHttpDLX1.Request.Body = tokenRequestBody
wodHttpDLX1.Post "/shaam/tsandbox/longtimetoken/oauth2/token"
msgBox wodHttpDLX1.Response.StatusCode
msgBox wodHttpDLX1.Response.Body
What is the problem?
activex not working
Hi.
We can't know what is the problem since we don't know what you're doing. We can help with HTTP protocol, but not with the actual contents you send.
I suggest you 'spy' what is sent/received by working component, and then check what's sent/received with wodHttpDLX. You can use DebugFile property to get full conversation between client and server, and then check what's different.
I don't know what is in your 'tokenRequestBody' and how it is formatted, what is expected on remote side etc.. So I can't really help with functioning of your code in terms of registration with the app on the server.
Jasmine
activex not working
Hi
I don't have a problem with the content. The same content is working with MSXML2.ServerXMLHTTP.6.0 Object
I have a problem with wodHttpDLX parameters
Complete Working Code:
Dim httpRequest
Set httpRequest = CreateObject("MSXML2.ServerXMLHTTP.6.0")
httpRequest.SetOption 2, 13056
httpRequest.Open "POST", "https://openapi.taxes.gov.il/shaam/tsandbir/longtimetoken/oauth2/token", True
httpRequest.setRequestHeader "AUTHORIZATION:", "BASIC ZjM1MGIyNGIwOWQ2NTRkZD="
httpRequest.setRequestHeader "Content-Type:", "application/x-www-form-urlencoded"
httpRequest.Send "grant_type=authorization_code&code=AAN-BzaeOhP-"
Do While httpRequest.readyState <> 4
httpRequest.waitForResponse (1)
Loop
msgBox httpRequest.status
msgBox httpRequest.responseText
Not Working:
wodHttpDLX1.Hostname = "https://openapi.taxes.gov.il"
wodHttpDLX1.Request.Headers.Add "AUTHORIZATION:", "BASIC ZjM1MGIyNGIwOWQ2NTRkZD="
wodHttpDLX1.Request.Headers.Add "Content-Type", "application/x-www-form-urlencoded"
wodHttpDLX1.Request.Body ="grant_type=authorization_code&code=AAN-BzaeOhP-"
wodHttpDLX1.Post "/shaam/tsandbir/longtimetoken/oauth2/token"
msgBox wodHttpDLX1.Response.StatusCode
msgBox wodHttpDLX1.Response.Body
![[image]](https://i.postimg.cc/B6ZYHwrH/Snap1.jpg)
