Boa tarde, pessoal.
Estava tendo o problema de lentidão no mesmo trecho de código do Alessandro Ribeiro. Mais especificamente na linha 539 da unit ACBrNFeConfiguracoes:
Propriedades := Extension.EncodedData.Format(True);
Resolvi comentar esta linha para ver o que acontecia. Mas comentando ela, o trecho de código que a envolvia perderia o sentido. Então resolvi comentar todo o trecho:
{
for J:=1 to Cert.Extensions.Count do
begin
Extension := IInterface(Cert.Extensions.Item[J]) as IExtension;
Propriedades := Extension.EncodedData.Format(True);
if (Pos('2.16.76.1.3.3',Propriedades) > 0) then
begin
Lista := TStringList.Create;
try
Lista.Text := Propriedades;
for K:=0 to Lista.Count-1 do
begin
if (Pos('2.16.76.1.3.3',Lista.Strings[K]) > 0) then
begin
FCNPJ := StringReplace(Lista.Strings[K],'2.16.76.1.3.3=','',[rfIgnoreCase]);
FCNPJ := OnlyNumber(HexToAscii(RemoveString(' ',FCNPJ)));
break;
end;
end;
finally
Lista.free;
end;
break;
end;
Extension := nil;
end;
}
Não estou mais tendo problemas com lentidão agora. Queria compartilhar com vocês e gostaria que me dissessem se isto me causará algum problema, ou qual outro procedimento devo realizar para descomentar este código e não voltar a ter problemas.
Obrigado.