Xailer & OZ Software

Código: Seleccionar todo

  Public cUrl := "http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/cpf/ConsultaPublica.asp"
      Public cUrlC:= "http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/cpf/captcha/gerarCaptcha.asp"
      Public cUrl1:= "http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/cpf/ConsultaPublicaExibir.asp"

Código: Seleccionar todo

      oInternet:= TIPClientHTTP():New(cURL1, .f.)

Código: Seleccionar todo

A compilar: frmConsulta.prg...
A linkar: consulta.exe...
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0xc): undefined reference to `pcre_free'
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0x66): undefined reference to `pcre_exec'
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0x10c): undefined reference to `pcre_compile'
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0x3a4): undefined reference to `pcre_exec'
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0x565): undefined reference to `pcre_exec'
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0x96c): undefined reference to `pcre_exec'
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0xafc): undefined reference to `pcre_exec'
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0xc6a): undefined reference to `pcre_exec'
D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o):hbregex.c:(.text+0xdcd): more undefined references to `pcre_exec' follow
D:\DEV\xailer\hb32\comp\mingw\Bin\ld: D:/DEV/xailer/hb32/Lib/Win/mingw/libhbrtl.a(hbregex.o): bad reloc address 0x4 in section `.text.startup'
1 Files, 0 Warnings, 10 Errors
Compilar tempo: 0.80s   Linkar tempo: 0.50s   Tempo total: 1.32s

Código: Seleccionar todo

Local oUrl, oInternet, cData, cRet:= '', aRetorno, cTexto, nIni, nFim, hHeaders1, cParm

   cParm:= { { "txtTexto_captcha_serpro_gov_br", cCaptcha },;
             { "tempTxtCPF", cCpf },;
             { "tempTxtNascimento", DToC(cDataN) },;
             { "temptxtToken_captcha_serpro_gov_br", '' },;
             { "temptxtTexto_captcha_serpro_gov_br", cCaptcha }}

	hHeaders1:= HB_Hash()
	            hHeaders1["Content-Type"]:= "application/x-www-form-urlencoded"
               hHeaders1["Accept"]:= "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
     	         hHeaders1["Accept-Encoding"]:= "gzip, deflate"
     	         hHeaders1["Accept-Language"]:= "pt-BR,pt;q=0.8,en-US;q=0.5,en;q=0.3"
     	         hHeaders1["Connection"]:= "keep-alive"
   Try
      oInternet:= TIPClientHTTP():New(cURL1, .f.)
   Catch
		MsgStop('Erro na Conexão','Consulta CPF')
		Return .f.
	End
   oInternet:SetCookie(cStringCookie)
   oInternet:hHeaders:= hHeaders1
	If oInternet:Open()
		If oInternet:Post(cParm)
			cRet:=oInternet:ReadAll()
      Else
      	MsgStop('Erro no Post','Consulta CPF')
      	Return .F.
		EndIf
	Else
		MsgStop('Erro na Conexão','Consulta CPF')
		Return .f.
	EndIf
	oInternet:Close()