Ir para conteúdo
  • Cadastre-se

dev botao

Consulta De Cpf (Receita Fazenda)


schrsistemas
Ver Solução Respondido por Gelson Borsoi,
  • Este tópico foi criado há 3103 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts


linha := ACBrStr(UpperCase(Texto[i]));

e eu mudei para:

linha := UpperCase(Texto[i]);

Testei no Lazarus/Linux e funcionou perfeitamente. (Acredito que funcione também no Delphi)

 

Abs.

 

Messias Henri

 

Caros amigos estou utilizando o Lazarus, 1.2.0 e hoje esta testando o componente e do nada parou de funcionar sempre retornando VAZIO Trim(FNome), apresentando o erro 'Não foi possível obter os dados.'.

 

Alguém sabe o que pode esta acontecendo já fiz a alteração conforme a informação acima e nada.

 

Até oAntem estava normal hoje parou do nada no site esta normal as informações esta igual a principio não consegui achar nada no meu debug pode ser pela minha falta de experiencia.

 

Até o exemplo em delphi não esta funcionando.

 

Alguém poderia me ajudar.

 

Atenciosamente,

Editado por OfSerpent
Link para o comentário
Compartilhar em outros sites

  • Fundadores

Ligue o seu debug e acompanhe com o passo a passo a resposta do Fisco

Pode ser que eles tenham modificado a página de consulta

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • 4 meses depois ...

O esquema esquema de coleta da imagem (captcha) retorna em Base64

 

alt=Imagem do Captcha

 

src=

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAALQAAAAyCAYAAAD1JPH3AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABddSURBVHhezZ1ZzGXTEscbMcbUppjnKWKeiTHaHG2OKebQ5qnFLBqNFlPHEMHN1eiLSHAFLaYInXC1B+l4wBOeyH3x6HHf77d8/33r1Fdr7bXPOZ97/0mlz9nDWrWq/lWr....

 

Achar uma função pra capturar o conteúdo das tag, e converter este pra Imagem.... 

Editado por schrsistemas
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Creio que o Indy tenha um componente para fazer essa conversão... IdDecoderMIME1.DecodeString(stringVariavel); Vou dar uma pesquisada.

Está correto!

mas podemos fazer algo nativo para que possa rodar no delphi e lazarus!

alguém se candidata a fazer algo?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

O ACBr já tem.. nas units da Synapse: synacode.pas

 

{:Decode string from base64 format.}
function DecodeBase64(const Value: AnsiString): AnsiString;

{:Encodes a string to base64 format.}
function EncodeBase64(const Value: AnsiString): AnsiString;
 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Acabei de fazer um teste e a consulta foi realizada com sucesso... Não há nada de errado com o componente...

 

post-61-0-01164000-1415799420_thumb.jpg

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Ok.. subi para o SVN modificações que devem resolver o problema...

 

Aparentemente o site de consulta da Receita para o CPF, modificou totalmente a forma de obter o Captcha

 

Com a ajuda do "FireBug" fui capaz de interpretar as chamadas GET e POST necessárias...

 

12/11/2014
-- ACBrConsultaCPF --  (por: DSA) [*] Correções para suportar o novo mecanismo de Captcha. [*] Correções nos Demos de Delphi e Lazarus para suportar a Imagem em PNG

-- ACBrSocket -- [*] Ajustes em HTTPPost() para evitar perda de caracteres no formulário de envio

 

  • Curtir 3
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Solution

Gostaria de contribuir. O aplicativo de exemplo atual está salvando uma imagem captch.png na pasta base do executável. Para que não seja salvo arquivo algum, substitui a procedure pela abaixo:

 
procedure TFrmConsCPF.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
  PNG: TPngImage;
begin
  Stream := TMemoryStream.Create;
  png := TpngImage.Create;
  try
    ACBrConsultaCPF1.Captcha(Stream);
    PNG.LoadFromStream(Stream);
    Image1.Picture.Assign(PNG);
 
    EditCaptcha.Clear;
    EditCaptcha.SetFocus;
  finally
    Stream.Free;
    PNG.Free;
  end;
end;
 
Na verdade é a procedure antiga porém substitui a unit JPG pela vcl.imaging.pngimage e também troquei o nome das variáveis.
 
Peço ao Daniel Simões que verifique a possibilidade de substituir a procedure e subir no SVN. 
 
p.s. uso o XE3
Editado por Gelson Borsoi
Link para o comentário
Compartilhar em outros sites

  • Fundadores

 

Gostaria de contribuir. O aplicativo de exemplo atual está salvando uma imagem captch.png na pasta base do executável. Para que não seja salvo arquivo algum, substitui a procedure pela abaixo:

 

 

A ideia era compatibilizar os fontes com D7... mas acabei não encontrando como...

 

 

no meu esta dando file not found 'PNGImage.dcu'

 

Não sei bem em qual versão do Delphi essa Unit passou a ser distribuída... (No D7 não existe)

 

Alternativas:

- Use uma Unit de terceiros que permita ao Delphi 7 ler PNG

- Use o exemplo em Lazarus

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

A ideia era compatibilizar os fontes com D7... mas acabei não encontrando como...

Não sei bem em qual versão do Delphi essa Unit passou a ser distribuída... (No D7 não existe)

Alternativas:

- Use uma Unit de terceiros que permita ao Delphi 7 ler PNG

- Use o exemplo em Lazarus

Alexandre Bernardes
www.bugfree.com.br

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Gente, o Captcha não vem mais em JPG. Agora vem em PNG. Por isso que a função deve ser alterada.

Por acaso tentaram compilar o exemplo que vem junto com o pacote ACBr?

Bom dia!

o problema não seria esse! é que a grande maioria utiliza ainda a versão 7 do delphi!

no caso png não era nativo !

também o demo que acompanha foi feito em versão que suporta !

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

No meu caso já havia feito o exemplo funcionar com pngimage de terceiros.

O erro no meu sistema era devido a função LabAtualizarCaptchaClick ainda estar no modelo antigo (JPG).

Copiei o codigo da função no novo modelo (PNG) e ficou tudo OK.

 

Obrigado a todos.

Alexandre Bernardes
www.bugfree.com.br

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3103 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.