Web Services WCF

[cpachecohull]

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]

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)