Página 1 de 1
Propriedades CreateObject()
Enviado: 18 Jun 2024 12:42
por 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.
Propriedades CreateObject()
Enviado: 18 Jun 2024 21:25
por 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
Propriedades CreateObject()
Enviado: 20 Jun 2024 16:14
por Wanderlei
Eu utilizo assim para saber o que tem dentro do objeto.
Msginfo(valtoprg(__objGetMethodList( oServer )))
Propriedades CreateObject()
Enviado: 23 Jul 2024 17:31
por casesistemas
? hb_DumpVar( oObjeto )
Propriedades CreateObject()
Enviado: 31 Jul 2024 09:23
por 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
Propriedades CreateObject()
Enviado: 24 Nov 2024 13:04
por 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 ?