Lentidão no envio

[Dennis07]

Boa tarde. Estou com um problema desde o dia 18 onde o envio das notas estão extremamente lentos com o envio demorando para executar por volta de 15 segundos.

 

-- Executando a função de envio

                                      Try
                                        try
                                          if loIsUsaTimer then
                                            VDataIni2:= Now;

                                          Recibo := frmNFE.EnviarNfe(VMsgErro, vcstat, vCnpjEmit);

                                          frmNFE.SalvarNotas(0);
                                        except
                                        end;
                                      Finally
                                       if loIsUsaTimer then
                                         VDataFim2 := Now;
                                      End;
 

-- A função de envio

function TFrmNFE.EnviarNFe(var vMsgErro: string;var vcStat: Integer; var loCNPJEmit: string):String;
begin
  Try
    try
      ACBrNFe.Enviar(1, False);

      Result := ACBrNFe.WebServices.Retorno.Recibo;
      vMsgErro := '';  // Sem erros
    except
      On E:Exception do
      Begin
        vMsgErro := E.Message;
        Result := '';
      End;
    end;
  Finally
     vcStat := ACBrNFe.WebServices.Retorno.cStat;
     loCNPJEmit := ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF;
  End;
end;
 

Eu inclusive atualizei o ACBR e também voltei a versão de julho mas mesmo assim o tempo de execução do Enviar demora 15 segundos. O que eu poderia fazer?

[Daniel Simoes]

Primeiro tente um teste com os Demos do ACBr, e veja se o mesmo problema ocorre...

[Dennis07]

E onde eu acho esses demos?

[Alexandre de Paula]

https://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrDFe/ACBrNFe/