Web Services WCF

Consultas, trucos, consejos. Todo sobre Clarion en todas sus versiones
Responder
cpachecohull
Mensajes: 2
Registrado: Dom Abr 03, 2016 12:30 am
Contactar:

Web Services WCF

Mensaje por cpachecohull » Jue Sep 01, 2016 11:08 am

Saludos:

Me gustaría saber si alguno ha tenido experiencias consumiendo algún WCF Web Service usando Clarion y cualesquier producto de terceros (NetTalk?)

C.Pacheco


jarodav1
Ayudante de Santa
Mensajes: 50
Registrado: Sab Feb 12, 2011 1:53 am
Ubicación: Cd. Juarez,Chih,Mexico
Contactar:

Re: Web Services WCF

Mensaje por jarodav1 » Jue Nov 17, 2016 6:59 pm

Puedes utilizar las clases de mike duglas donde implementa la libreria openspurce libcurl
https://github.com/mikeduglas/libcurl

y el codigo es algo como

Código: Seleccionar todo

envia='<?xml version="1.0" encoding="utf-8"?> '&|
    ' <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">'&|
    ' <soap:Body> '&|
    ' <EventosGeocercas xmlns="http://lapagina.com/webservices/"> '&|
    '  <Usuario>tusuarios</Usuario> '&|
    '  <Password>tupass</Password> '&|
    '  <UnitID>'&clip('algo')&'</UnitID> '&|
    ' </EventosGeocercas> '&|
  ' </soap:Body> '&|
  ' </soap:Envelope> '

  curl.AddHttpHeader('Content-Type: text/xml; charset=utf-8')
  curl.AddHttpHeader('Content-Length:'&len(clip(envia)))
  curl.AddHttpHeader('SOAPAction: "http://visioncybernetica.com/webservices/EventosGeocercas"')  
  curl.SetHttpHeaders()  

  curl.SetSSLVerifyHost(false)  ! do not verify host name
  curl.SetSSLVerifyPeer(true)   ! verify peer
  
  
  curl.SetSSLVersion(CURL_SSLVERSION_DEFAULT)
    res = curl.SendRequestStr('http://201.144.124.50:5400/MasterTrack%20Web%20Service/72.asmx', clip(envia), respuesta1)
Victor Montañez

Responder

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado