- Code: Select all Expand view
Function SendPostToUrl( cUrl, cParams,cContentType,cAuthorization )
Local oOle,cRet:='',uRet
default cContentType:="application/x-www-form-urlencoded"
default cAuthorization:=""
Try
oOle := CreateObject( 'MSXML2.XMLHTTP' )
Catch
oOle := CreateObject( 'Microsoft.XMLHTTP' )
End
oOle:Open( 'POST', cUrl, .f. )
oOle:SetRequestHeader( "Content-Type",cContentType)
if !empty(cAuthorization)
oOle:SetRequestHeader( "Authorization",cAuthorization)
end if
oOle:Send( cParams )
cRet := oOle:ResponseBody
Return cRet
This has worked perfectly for a long time. After the Microsoft update, we get the following error:
- Code: Select all Expand view
Error description: (DOS Error -2147352567) WINOLE/1007 The system cannot locate the resource specified.
(0x800C0005): msxml3.dll
Args:
[ 1] = C <carfax-request>
<license-plate>FRUGAL</license-plate>
<state>CA</state>
<vin></vin>
<product-data-id>38A304F1C16BA41C</product-data-id>
<location-id>10000</location-id>
</carfax-request>
This is now creating a problem for all of my clients. If I turn off the service ( the XML process ), then the application works fine except we can no longer retireve the data.
Does anyone know of a workaround, or have info related to the msxml3.dll current version that we can use to regain SendPostToURL( ) as shared above ? Thank you.