Página 1 de 1

TipClientHTTP Error

Publicado: Lun Ene 14, 2013 11:51 am
por Cassiano de Oliveira
Senhores eu uso a função abaixo em modo console com Harbour e HBTIP sem
problemas, porém ao incorporar a função em Xailer e compilar apresenta o
erro:
TIPCLIENT:NEW(0)
Error BASE/1081 Operation not supported: TIPCLIENTHTTP:new()
Arguments: ( [ 1] = Type: O Val: [ 2] = Type: C Val: )
************************************************************ ********************
Abaixo função:
************************************************************ ********************
Function AnalisaArqNet(cFileName)
cURL := "http://www.netadress.com./folder/" + cFileName + ".txt" )
oHttp:= TIpClientHttp():new( cURL )
* Connect to the HTTP server
If .NOT. oHttp:open()
MsgAlert( "Connection error:" + oHttp:lastErrorMessage())
return
EndIf
* Atribui o conteudo a uma variavel
cFileContent := Upper(( oHttp:readAll() ))
// Analise do Conteúdo.
oHttp:close()
RETURN NIL
************************************************************ ********************
Un Saludo...

TipClientHTTP Error

Publicado: Mar Ene 15, 2013 4:21 am
por Cassiano de Oliveira
Acredito que encontrei a informação aqui:
https://groups.google.com/forum/?fromgr ... c/harbour- users/xkBOJ2YKbQY
Mas fala que tem que recompilar o Harbour??? Como se usamos o Harbour
disponibilizado pelo Xailer???
Alguém pode ajudar?
Un Saludo...
"Cassiano de Oliveira" wrote in message news:50f3e34b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Senhores eu uso a função abaixo em modo console com Harbour e HBTIP sem
problemas, porém ao incorporar a função em Xailer e compilar apresenta o
erro:
TIPCLIENT:NEW(0)
Error BASE/1081 Operation not supported: TIPCLIENTHTTP:new()
Arguments: ( [ 1] = Type: O Val: [ 2] = Type: C Val: )
************************************************************ ********************
Abaixo função:
************************************************************ ********************
Function AnalisaArqNet(cFileName)
cURL := "http://www.netadress.com./folder/" + cFileName + ".txt" )
oHttp:= TIpClientHttp():new( cURL )
* Connect to the HTTP server
If .NOT. oHttp:open()
MsgAlert( "Connection error:" + oHttp:lastErrorMessage())
return
EndIf
* Atribui o conteudo a uma variavel
cFileContent := Upper(( oHttp:readAll() ))
// Analise do Conteúdo.
oHttp:close()
RETURN NIL
************************************************************ ********************
Un Saludo...