Jump to content

Embarcadero Conference 2019

22/10 - Visite o Stand do ACBr
Saiba mais

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

schrsistemas

ANSWERED Consulta De Cpf (Receita Fazenda)

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,

Edited by OfSerpent

Share this post


Link to post
Share on other sites

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
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.... 

Edited by schrsistemas

Share this post


Link to post
Share on other sites

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
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP

Share this post


Link to post
Share on other sites

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;
 

  • Like 1

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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

  • Like 1

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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

  • Like 3

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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

 

  • Like 3

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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
Edited by Gelson Borsoi

Share this post


Link to post
Share on other sites

 

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
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

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?

Edited by Gelson Borsoi

Share this post


Link to post
Share on other sites

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
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...