Hola fivewinners
Tengo una opcion de leer unos xml sobre detalles tecnicos de productos
Esta es el comando que me enviaron, supuestamente los datos vienen en fichas xml
https://tecnixxx.cl/?a=get-fichas&desde ... pppp&xml=1
"https://tecnixxx.cl/?a=get-fichas&desde ... pppp&xml=1 "
Antes me he conectado por SOAP sin problemas y leo algunos datos desde otra webservice, pero esta vez quede en duda si usar CreateObject( "MSXML2.XMLHTTP" )
o CURL
Si alguien tiene un ejemplo o lineamiento para seguir se lo agradeceria
Saludos
Usando webservice de un tercero
Usando webservice de un tercero
Ji,ji,ji... buena la cosa... "all you need is code"
http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
Re: Usando webservice de un tercero
Adolfo, ambas opciones te servirán, aunque particularmente prefiero el uso de CURL
En el foro tienes bastantes ejemplos de su uso
En el foro tienes bastantes ejemplos de su uso
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Re: Usando webservice de un tercero
Con MSXML2.XMLHTTP podrías tranquilamente
Te dejo un ejemplo por si te sirve
Creo que algo asi podría funcionarte
Te dejo un ejemplo por si te sirve
Code: Select all | Expand
STATIC oOle
FUNCTION VerXml(cdesde)
LOCAL oError, aRecord
LOCAL aResp, cToken , lHuboErroes := .f., aErrores := {}
LOCAL cJson,cContentType:="application/json",cAuthorization:=""
Try
oOle := Createobject("MSXML2.ServerXMLHTTP")
Catch
oOle := CreateObject( 'Microsoft.XMLHTTP' )
End
cContentType:="application/xml"
aResp := SendGetToUrl( "https://tecnixxx.cl/?a=get-fichas&desde="+cDesde+"&user=uuuuuuuu&pwd=pppppppppp&xml=1",, cContentType ) GrabaArchivo('test.xml',aResp)
Return nil
STATIC Function SendGetToUrl( cUrl, cParams,cContentType,cAuthorization )
Local cRet:='',uRet
default cContentType:="application/json"
default cAuthorization:=""
oOle:Open( 'GET', cUrl, .f. )
oOle:SetRequestHeader( "Content-Type",cContentType)
if !empty(cAuthorization)
oOle:SetRequestHeader( "Authorization",cAuthorization)
end if
oOle:Send( )
cRet:=""
cRet := oOle:ResponseBody
Return cRet
STATIC FUNCTION GrabaArchivo(cArchivo,cDato)
LOCAL Han
Han := LCREAT(cArchivo)
FWRITE(Han,cDato,Len(cDato))
LCLOSE(Han)
RETURN nil
Re: Usando webservice de un tercero
Gracias a ambos.
Probare y les comento
Saludos desde Chile
Probare y les comento
Saludos desde Chile
Ji,ji,ji... buena la cosa... "all you need is code"
http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
-
- Posts: 1071
- Joined: Fri Oct 07, 2005 3:33 pm
- Location: Cochabamba - Bolivia
Re: Usando webservice de un tercero
Buenas tardes a todos,
he tienido problemas con consumir servicios web desde maquinas con windows 7, saben alguna restriccion con esta version de windows, o hay otra manera de consumir estos servicios
un saludo y gracias
Marcelo
he tienido problemas con consumir servicios web desde maquinas con windows 7, saben alguna restriccion con esta version de windows, o hay otra manera de consumir estos servicios
un saludo y gracias
Marcelo