Propriedades CreateObject()

[alaminojunior]

Boa tarde caros !

Consumindo um WS no xHarbour eu faço por exemplo:
oServer:= CreateObject( url )

Depois de tudo configurado, lá no final eu faço um oServer:Send()

O que eu preciso saber é quais outras propriedades existem (se é que existem) neste objeto oServer, além de
oServer:Status
oServer:ResponseText
oServer:ResponseBody

Já visitei vários exemplos mas não percebi nada além destes citados.

[JoséQuintas]

Visitou o nome do objeto que está usando ?
Por exemplo, a documentação da Microsoft ?

Não existe manual pra CreateObject().
Você vai estar usando coisas instaladas no Windows.
Vai ter que olhar o manual dessas coisas.

Por exemplo: CreateObject( "EXCEL.Application" )
Vai ter que procurar manual da automação do Excel... ou EXCEL.Application

[Wanderlei]

Eu utilizo assim para saber o que tem dentro do objeto.

Msginfo(valtoprg(__objGetMethodList( oServer )))

[casesistemas]

? hb_DumpVar( oObjeto )

[clodoaldomonteiro]

Caso vc esteja usando "oOle := CreateObject( 'MSXML2.XMLHTTP' )" para consumir sua WS, pode achar mais informações sobre o Objeto no portal de documentação da MS no link: https://learn.microsoft.com/en-us/previ ... 28(v=vs.85)

Exemplo de consumo da minha API:

Código: Selecionar todos

Function SendGetPing( cAuthorization )
   Local oOle, cRet := '', msg, oError //, cRet2

   Try
      oOle := CreateObject( 'MSXML2.XMLHTTP' )
   Catch
      oOle := CreateObject( 'Microsoft.XMLHTTP' )
   End

   oOle:Open( 'GET', 'https://api.simplesi.com.br/utils/info/ping', .f. )

   oOle:SetRequestHeader( "Content-Type", 'application/json')

   If !Empty( cAuthorization)
      oOle:SetRequestHeader( "Authorization", cAuthorization)
   Endif

   Try
      oOle:Send( )

      cRet := oOle:ResponseBody

      //ADOStringGrava(cRet)

   Catch oError
      msg := 'EMAIL...: [001]' + CRLF
      msg += 'Aviso..: Não consegui enviar email.' + CRLF
      msg += cl_getError(oError, .t.)
      MsgAtencao( msg, .t.)

   End

   //ADOStringGrava( valtoprg(__objGetMethodList( oOle )) )
   //ADOStringGrava( hb_DumpVar( oOle ) )

   oOle := NIL

   Return cRet

Abraços

[claudiochaves]

Ola Clodoaldo,

Procurei e não achei como determinar o timeout da chamada. Olhei no link de documentação como você passou e testei o metodo settimeouts, não funcionou. Você sabe qual seria ?