Error: unresolved external '_HB_FUN_TIPCLIENTHTTP'
Utilizo Harbour Minigui Extended 2.1.0 (Rev. 14328)
Código: Selecionar todos
LOCAL GetList := {}
LOCAL oHttp, cXML, cCep
LOCAL cRes, cResTxt, cUf, cCidade, cTipo, cEnde, cBairro
DO WHILE .T.
cCep := StrTran(AllTrim(mCep),"-","")
cCep := StrTran(AllTrim(cCep),".","")
IF Len(cCep) != 8
LOOP
ENDIF
oHttp:= TIpClientHttp():new( "http://cep.republicavirtual.com.br/web_cep.php?cep="+cCep+"&formato=xml" )
IF ! oHttp:open()
MSGSTOP( "Erro na conexÆo: "+ oHttp:lastErrorMessage() )
RETU .F.
ENDIF
cXML := oHttp:readAll()
oHttp:close()
IF Empty(cXML)
MSGSTOP("Ocorreu um erro inesperado. Tente outro CEP...")
RETU .F.
ENDIF
cRes := Substr( cXML, At("<resultado>",cXML)+11, At("</resultado>",cXML)-At("<resultado>",cXML)-11 )
cResTxt := Substr( cXML, At("<resultado_txt>",cXML)+15, At("</resultado_txt>",cXML)-At("<resultado_txt>",cXML)-15 )
cUf := Substr( cXML, At("<uf>",cXML)+4, At("</uf>",cXML)-At("<uf>",cXML)-4 )
cCidade := Substr( cXML, At("<cidade>",cXML)+8, At("</cidade>",cXML)-At("<cidade>",cXML)-8 )
cTipo := Substr( cXML, At("<tipo_logradouro>",cXML)+17, At("</tipo_logradouro>",cXML)-At("<tipo_logradouro>",cXML)-17 )
cEnde := Substr( cXML, At("<logradouro>",cXML)+12, At("</logradouro>",cXML)-At("<logradouro>",cXML)-12 )
cBairro := Substr( cXML, At("<bairro>",cXML)+8, At("</bairro>",cXML)-At("<bairro>",cXML)-8 )
IF cRes == "1"
@ 08, 05 SAY "Resposta do servidor.: " ; @ Row(), Col() SAY HB_ANSITOOEM( cResTxt ) COLOR "g/w"
ELSE
@ 08, 05 SAY "Resposta do servidor.: " ; @ Row(), Col() SAY HB_ANSITOOEM( cResTxt ) COLOR "r/w"
ENDIF


