topic-43292

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Usando webservice de un tercero
Posted: Tue Jun 06, 2023 10:33 PM

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=1205569&user=uuuuuuuu&pwd=pppppppppp&xml=1

"https://tecnixxx.cl/?a=get-fichas&desde=1205569&user=uuuuuuuu&pwd=pppppppppp&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

;-) 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

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Usando webservice de un tercero
Posted: Tue Jun 06, 2023 10:48 PM

Adolfo, ambas opciones te servirán, aunque particularmente prefiero el uso de CURL

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

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Usando webservice de un tercero
Posted: Tue Jun 06, 2023 11:08 PM

Con MSXML2.XMLHTTP podrías tranquilamente
Te dejo un ejemplo por si te sirve

Code (fw): Select all Collapse

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

Creo que algo asi podría funcionarte

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Usando webservice de un tercero
Posted: Wed Jun 07, 2023 03:12 AM

Gracias a ambos.

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

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Usando webservice de un tercero
Posted: Thu Feb 01, 2024 05:12 PM

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

FiveTech Support Forums

Continue the discussion