Usando webservice de un tercero

Usando webservice de un tercero

Postby Adolfo » 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 ... pppp&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
User avatar
Adolfo
 
Posts: 860
Joined: Tue Oct 11, 2005 11:57 am
Location: Chile

Re: Usando webservice de un tercero

Postby cnavarro » 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
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Usando webservice de un tercero

Postby cmsoft » Tue Jun 06, 2023 11:08 pm

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

Code: Select all  Expand view  RUN

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
User avatar
cmsoft
 
Posts: 1291
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Usando webservice de un tercero

Postby Adolfo » Wed Jun 07, 2023 3: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
User avatar
Adolfo
 
Posts: 860
Joined: Tue Oct 11, 2005 11:57 am
Location: Chile

Re: Usando webservice de un tercero

Postby Marcelo Via Giglio » Thu Feb 01, 2024 5: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
Marcelo Via Giglio
 
Posts: 1065
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], lubin and 79 guests