FiveTech Support Forums

oHttp:=createobject( "winhttp.winhttprequest.5.1")	

cCad:='<?xml version="1.0" encoding="UTF-8"?>' + CRLF
cCad:='<WWKS Version="2.0" TimeStamp="2025-11-08T' + time() + 'Z">'+CRLF
cCad+='<HelloRequest Id="1">'+CRLF
cCad+='	<Subscriber Id="1" Type="IMS" Manufacturer="WINBOT" ProductInfo="WINBOT" VersionInfo="1.0" TenantId="1">'+CRLF
cCad+='		<Capability Name="KeepAlive"/>'+CRLF
cCad+='		<Capability Name="Status"/>'+CRLF
cCad+='		<Capability Name="Input"/>'+CRLF
cCad+='		<Capability Name="InitiateInput"/>'+CRLF
cCad+='		<Capability Name="ArticleMaster"/>'+CRLF
cCad+='		<Capability Name="StockDelivery"/>'+CRLF
cCad+='		<Capability Name="StockInfo"/>'+CRLF
cCad+='		<Capability Name="Output"/>'+CRLF
cCad+='		<Capability Name="TaskCancelOutput"/>'+CRLF
cCad+='		<Capability Name="Configuration"/>'+CRLF
cCad+='		<Capability Name="StockLocationInfo"/>'+CRLF
cCad+='	</Subscriber>'+CRLF
cCad+='</HelloRequest>'+CRLF
cCad+='</WWKS>'+CRLF

cUrl:='http://192.168.56.1:6050'

TRY
	oHttp:Open( 'POST' , cUrl , .T. )
	CATCH
	 oSay:SetText("ROBOT NO DISPONBLE")
	 syswait(1)
     RETU .F.		 
END
TRY
	oHttp:Send(cCad)
CATCH
	oSay:SetText("ROBOT NO DISPONBLE")
	syswait(1)
	RETU .F.
END

syswait(4)
? oHttp:ResponseBody()

      Despues de varios dias de investigacion el tema es que está usando Microsoft.XMLHTTP y ese objeto es para consumir web services HTTP (tipo REST, SOAP, etc). El servidor WWKS armado no es un servidor web, es un servidor TCP que escucha en el puerto 6050 con sockets puros. Por eso cuando hace el post no llega nada. Para conectar necesita usar sockets TCP directos, lo que vi que puede usar algo tipo tsocket de fivewin o la API de winsock de Windows. osea tiene que abrir el socket conectar al puerto 6050 y mandar el XML crudo por el socket y leer la respuesta por el mismo socket. Pero con XMLHTTP no va a andar porque eso es hTTP y acá estamos usando tCP puro.

#include "fivewin.ch"
#include "hbclass.ch"
#include "hbssl.ch"
#include "hbsocket.ch"
#include "hbxml.ch"

STATIC oSock
STATIC cServer   := "127.0.0.1"
STATIC nPort     := 6050
STATIC nSourceId := 100      // PIS según especificación
STATIC nDestId   := 999      // Ejemplo: Robot ASRS

// ------------------------------------------------------------
FUNCTION Main()

   LOCAL oWnd,oBtn1,nAncho,nAlto

DEFINE WINDOW oWnd  FROM 2,2 TO 15.7,32 TITLE "WEBSERVICE CFRN";
 NOZOOM NOSYSMENU

@ 5,120 BUTTON oBtn1 PROMPT 'CONECTAR' SIZE 100,25 OF oWnd ACTION ConnectWWKS() PIXEL
@ 40,120 BUTTON oBtn1 PROMPT 'HELLO REQUEST' SIZE 100,25 OF oWnd ACTION SendHelloRequest() PIXEL
@ 75,120 BUTTON oBtn1 PROMPT 'SALIR' SIZE 100,25 OF oWnd ACTION ( CloseConnection(),oWnd:End() ) PIXEL

oWnd:bresized:={||  WndSetSize( oWnd:hWnd, nAncho,nAlto, .t. )}

ACTIVATE WINDOW oWnd ON INIT ( nAncho:=oWnd:nWidth, nAlto:=oWnd:nHeight)
   
RETURN NIL

// ------------------------------------------------------------
// FUNCION DE CONEXION
// ------------------------------------------------------------
FUNCTION ConnectWWKS()

   LOCAL nResult

   IF oSock != NIL
      MsgInfo("Ya existe una conexión activa")
      RETURN NIL
   ENDIF

   oSock := hb_socketOpen()
   IF oSock == NIL
      MsgStop("No se pudo crear el socket")
      RETURN NIL
   ENDIF

   nResult := hb_socketConnect( oSock, { HB_SOCKET_AF_INET, cServer, nPort } )

   IF !nResult 
      MsgStop("Error conectando al ROBOT")
      hb_socketClose(oSock)
      oSock := NIL
      RETURN NIL
   ENDIF

   MsgWait("Conectado correctamente al " + cServer + ":" + LTrim(Str(nPort)),'CONECTADO CON ROBOT',3)

RETURN NIL

//.........................
FUNCTION SendHelloRequest()

   LOCAL cXML, cResp
   LOCAL hParsed,cId
   LOCAL cTimeStamp
   LOCAL nId := hb_RandomInt(1000,9999)
   

   IF oSock == NIL
      MsgStop("No hay conexión activa")
      RETURN NIL
   ENDIF

cTimeStamp := hb_TToC( hb_DateTime(), "YYYY-MM-DD" ) + ;
             "T" + Time() + "Z"
			 
// Construcción XML según sección 6.2.1 HelloRequest
   cXML := ;
   '<WWKS Version="2.0" TimeStamp="' + cTimeStamp + '">' + CRLF + ;
   '  <HelloRequest Id="' + LTrim(Str(nId)) + '">' + CRLF + ;
   '    <Subscriber Id="' + LTrim(Str(nSourceId)) + '" ' + ;
   'Type="IMS" ' + ;
   'Manufacturer="MiEmpresa" ' + ;
   'ProductInfo="FiveWinClient" ' + ;
   'VersionInfo="1.0">' + CRLF + ;
   '      <Capability Name="KeepAlive"/>' + CRLF + ;
   '      <Capability Name="Status"/>' + CRLF + ;
   '      <Capability Name="StockInfo"/>' + CRLF + ;
   '    </Subscriber>' + CRLF + ;
   '  </HelloRequest>' + CRLF + ;
   '</WWKS>' + CRLF
   

   hb_socketSend( oSock, hb_StrToUTF8( cXML ) )

   // Esperar respuesta
   cResp := WWKS_Receive( oSock )

   IF Empty(cResp)
      MsgStop("No se recibió HelloResponse")
      RETURN NIL
   ENDIF

   hParsed := WWKS_ParseHelloResponse( cResp )
   

   IF hParsed != NIL
      MostrarHelloInfo( hParsed )
   ELSE
      MsgStop("Error procesando HelloResponse")
   ENDIF
   

RETURN NIL

//........................
FUNCTION CloseConnection()

   IF oSock != NIL
      hb_socketClose(oSock)
      oSock := NIL
      MsgInfo("Conexión cerrada")
   ENDIF

RETURN NIL

//............................
FUNCTION WWKS_Receive( oSock )

   LOCAL cBuffer := Space(8192)
   LOCAL nLen

   nLen := hb_socketRecv( oSock, @cBuffer )

   IF nLen > 0
      RETURN hb_UTF8ToStr( Left( cBuffer, nLen ) )
   ENDIF

RETURN NIL

//......................................
FUNCTION WWKS_ParseHelloResponse( cXML )

   LOCAL oXML
   LOCAL hResult := {=>}
   LOCAL oHello, oSubscriber
   LOCAL oCaps, i

   IF Empty(cXML)
      RETURN NIL
   ENDIF

   oXML := CreateObject("MSXML2.DOMDocument.6.0")

   oXML:async := .F.

   IF ! oXML:loadXML( cXML )
      ? "Error parseando XML"
      RETURN NIL
   ENDIF

   oHello := oXML:selectSingleNode("//HelloResponse")

   IF oHello == NIL
      ? "No es HelloResponse"
      RETURN NIL
   ENDIF

   hResult["Id"] := oHello:getAttribute("Id")

   oSubscriber := oHello:selectSingleNode("Subscriber")

   IF oSubscriber != NIL

  hResult["SubscriberId"] := oSubscriber:getAttribute("Id")
  hResult["Type"]         := oSubscriber:getAttribute("Type")
  hResult["Manufacturer"] := oSubscriber:getAttribute("Manufacturer")
  hResult["ProductInfo"]  := oSubscriber:getAttribute("ProductInfo")
  hResult["VersionInfo"]  := oSubscriber:getAttribute("VersionInfo")
  hResult["TenantId"]     := oSubscriber:getAttribute("TenantId")

  // Capabilities
  oCaps := oSubscriber:selectNodes("Capability")

  hResult["Capabilities"] := {}

  FOR i := 0 TO oCaps:length-1
     AAdd( hResult["Capabilities"], ;
           oCaps:item(i):getAttribute("Name") )
  NEXT

   ENDIF

RETURN hResult

//................................
FUNCTION MostrarHelloInfo( hData )

   LOCAL cMsg := ""
   LOCAL i

   cMsg += "ID respuesta: " + hData["Id"] + CRLF
   cMsg += "Subscriber ID: " + hData["SubscriberId"] + CRLF
   cMsg += "Tipo: " + hData["Type"] + CRLF
   cMsg += "Fabricante: " + hData["Manufacturer"] + CRLF
   cMsg += "Producto: " + hData["ProductInfo"] + CRLF
   cMsg += "Versión: " + hData["VersionInfo"] + CRLF + CRLF

   cMsg += "Capacidades soportadas:" + CRLF

   FOR i := 1 TO Len( hData["Capabilities"] )
      cMsg += " - " + hData["Capabilities"][i] + CRLF
   NEXT

   MsgInfo( cMsg )

RETURN NIL