Xailer & OZ Software

Saludos .

Tengo un problema necesito hacer una peticion en json

cIp := "192.168.1.225"
nPort := 6220
cDatos := ""
// Comando JSON que se enviará
cRequest := '{"cmd":"GetDevice"}' + CHR(0) // Asegurar terminación correcta

WITH OBJECT ::oInternet2 := TInternet():New(Self)
:nPort := nPort
:cAgent := "MVSC"
:cUser := ""
:cPassword := ""
:nTimeOut := 60000

IF :Open() // Ok
IF (::lConnected := :Connect(cIp))
cUrl_Recurso := "http://192.168.1.225"
hDatos := :OpenURL(cUrl_Recurso) // Ok
IF hDatos == NIL
MsgStop("Error al abrir la URL")
:Close()
RETURN NIL
ENDIF
HResponse :=:GetRequest(cRequest)
// Enviar el JSON
IF !:SendRequest(HResponse,cRequest) // Se supone que aqui entrego el Json
MsgStop("Error al enviar la solicitud")
:Close()
RETURN NIL
ENDIF
// Leer la respuesta real
cResponse := ""
WHILE :ReadFile(hDatos, @cDatos, 65536)
cResponse += cDatos
END WHILE
// Mi problema es que no me devuelve lo solicitado me devuelve un HTML y no u JSON
:Close()
ENDIF
ENDIF
END WITH
He probado con c++ y si me devuelve en json. Lo que si he notado es que trabaja con sockets Alguien con una sugerencia para solucionar