Gelson Borsoi

Creio ser problema nos servers da receita. Aqui nem abre a consulta via site. Noutra conexão (outro provedor) até abre mas muito lento.

Substitui a Procedure Captcha da ACBRConsultaCPF pela abaixo: Nos testes rápidos que fiz no XE3 funcionou. procedure TACBrConsultaCPF.Captcha(Stream: TStream); begin try HTTPGet('http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/CPF/captcha/gerarCaptcha.asp'); if HttpSend.ResultCode = 200 then begin HTTPSend.Document.Position := 0; Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size); Stream.Position := 0; end; Except on E: Exception do begin raise EACBrConsultaCPFException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message); end; end; end; Nada mais é do que o código antigo (igual do CNPJ) sem a busca pelo captchaURL. Passei a URL nova fixa.

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?

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

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.

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