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
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.
Gelson Borsoi's post in Consulta De Cpf (Receita Fazenda) was marked as the answer