Consulta De Cpf (Receita Fazenda)

[OfSerpent]

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 19 Maio, 2014 por OfSerpent

[Daniel Simoes]

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

[Jéter Rabelo Ferreira]

Bom dia.

 

Quanto a consulta, utilizando o Delphi está normal.

 

Atenciosamente.

[paulorocha_1]

Senhores,

Sei que não tem a ver com o trabalho de vocês, mas por acaso teriam alguma versão desse aplicativo em C#?

Meus conhecimentos em programação ainda limitam-se apenas a esta linguagem.

[Rafael Dias]

Não foi feito porte deste componente para c#.

[Gelson Borsoi]

Receita mudou algo que o componente não está mais funcionando?

[schrsistemas]

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 11 Novembro, 2014 por schrsistemas

[Gelson Borsoi]

Alguém de boa alma se pré-dispõe a corrigir o bichinho. Não tenho conhecimento técnico suficiente para essa tarefa. Infelizmente não posso contribuir muito.

[César Arrais]

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

[Juliomar Marchetti]

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?

[Daniel Simoes]

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;
 

[Daniel Simoes]

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

 

[Daniel Simoes]

Eita... só agora vi que se tratava do ACBrConsultaCPF...  Vou tentar analisar...

[Daniel Simoes]

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

 

[Gelson Borsoi]

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 12 Novembro, 2014 por Gelson Borsoi

[Alexandre_Bernardes]

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

[Daniel Simoes]

 

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

[mauriciofporto]

Está faltando o PNGImage.dcu

Editado 13 Novembro, 2014 por mauriciofporto

[Alexandre_Bernardes]

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]

Daniel,

Eu já fiz isso, mas passou a dar o mesmo erro ao tentar obter o captcha.

[JEFFERSON rabelo]

Realmente, ainda com erro na linha :

 

Jpg.LoadFromStream(Stream);

 

parece que o Stream vem vazio.

[Gelson Borsoi]

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?

Editado 13 Novembro, 2014 por Gelson Borsoi

[Juliomar Marchetti]

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 !

[Alexandre_Bernardes]

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.

[jonas37]

Bom dia pessoal,

 

utilizo o delphi 7, baixei o exemplo de consulta do CPF do ACBR, e continua apresentando o erro: 

 

Erro 500, com a mensagem que não foi possível baixar a imagem.

 

Alguém sabe o que está ocorrendo?