Ir para conteúdo
  • Cadastre-se

dev botao

Erro ao consultar CNPJ


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

Recommended Posts

  • Membros Pro

Daniel boa tarde

Sim estou com os fontes atualizados, inclusive para tirar da duvida eu apaguei e rodei um svn novamente. Eu acho que o que usa o png é a consulta de CPF conforme olhei aqui nos exemplos. Mas mesmo assim com o svn continua dando o mesmo erro. A consulta do CPF também esta dando erro, mas não vou reportar nesse post, vou resolver esse e depois report em outro.

veja a rotina do exemplo:

procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
  Jpg: TJPEGImage;
begin
  Stream:= TMemoryStream.Create;
  Jpg:= TJPEGImage.Create;
  try
    ACBrConsultaCNPJ1.Captcha(Stream);
    Jpg.LoadFromStream(Stream);
    Image1.Picture.Assign(Jpg);

    EditCaptcha.Clear;
    EditCaptcha.SetFocus;
  finally
    Stream.Free;
    Jpg.Free;
  end;
end;

procedure TF_Principal.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:= False;
  LabAtualizarCaptchaClick(LabAtualizarCaptcha);
  EditCNPJ.SetFocus;
end;

muito obrigado

paulinho

Link para o comentário
Compartilhar em outros sites

  • Consultores

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Consultores

Desculpe, falha minha em demorar em responder. O exemplo do Lazarus está funcionando pois ele tem acesso ao tipo TPortableNetworkGraphic.

O problema está no exemplo do Delphi. Nem todas as versões do Delphi possuem suporte nativo ao PNG. A partir do Delphi 2009 o suporte a PNG passou a ser nativo no Delphi.

Vou trabalhar nessa parte agora de manha e tentar alterar o exemplo do Delphi para exemplificar o uso dessa funcionalidade.

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution
1 hora atrás, Antonio Paulo Mangili disse:

 

Olá,

Então, como disse acima, o Delphi 7 não suporta imagens PNG nativamente. O site da receita está retornando um arquivo PNG para o captcha. Assim, você terá que utilizar uma biblioteca de terceiros para fazer essa manipulação. No tópico que eu mencionei já explicava isso de forma clara... Mas eu alterei o exemplo para deixar isso mais transparente aos usuários do ACBr.

Em resumo, o que você deve fazer é seguir as orientações do seguinte tópico:

http://www.projetoacbr.com.br/forum/topic/20087-imagem-png-delphi-7/

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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