Leandro:
Yo digo algo asi
STATIC oOle
FUNCTION Main()
LOCAL aRecord, cJson
oOle := Createobject("MSXML2.ServerXMLHTTP")
aRecord 聽:= hash()
aRecord["ID"] = 1
aRecord["DATO2"] = "MIDATO2"
aRecord["DATO3"] = "MIDATO3"
cJson := hb_jsonEncode(aRecord,.f.)
SendPostToUrl( "https://nuestraurl/miapi", cJson, "application/json")
oWebVwLg := TWebView():New(, oWid:hWnd )
oWebVwLg:Navigate( "https://nuestraurl/vista?ID="+aRecord["ID"] )
RETURN nil
STATIC Function SendPostToUrl( cUrl, cParams,cContentType,cAuthorization )
聽 聽 Local cRet:="",uRet
聽 聽 default cContentType:="application/json"
聽 聽 default cAuthorization:=""
聽 聽
聽 聽 oOle:Open( 'POST', cUrl, .f. )
聽 聽
聽 聽 oOle:SetRequestHeader( "Content-Type",cContentType)
聽 聽 if !empty(cAuthorization)
聽 聽 聽 聽 oOle:SetRequestHeader( "Authorization",cAuthorization)
聽 聽 end if 聽 聽
聽 聽 oOle:Send( cParams )
聽 聽 //SysRefresh()
聽 聽
聽 聽 cRet:=""
聽 聽 IF !oOle:ResponseBody = NIL
聽 聽 聽 聽hb_jsonDecode(oOle:ResponseBody,@cRet) 聽 聽 聽 聽
聽 聽 聽 聽ELSE
聽 聽 聽 聽cRet := oOle:ResponseText
聽 聽 ENDIF
Return cRet
Entonces, en tu servidor espera en la ruta miapi un formulario tipo post que hace un proceso con los datos que le pasas en aRecord
Y luego en tu servidor, en la ruta vista, busca esos datos que ya se guardaron en el servidor y los procesa para mostrarlos
No se si fui claro
