NÃO FUNCIONA ACBrAAC1.IdentPAF.OutrosArquivos.Count

[delphijean]

Pessoal o ACBrAAC1.IdentPAF.OutrosArquivos.Count parace não funcionar,

estou usando a função abaixo (Código 1) e não retorna resultado, mesmo que eu registre

vários arquivos como mostra abaixo (Arquivo 1). Count retorna zero,

então não adiciona os itens dentro do ListBox2.

O que há de errado, alguém sabe?

Código 1

with ACBrAAC1.IdentPAF.OutrosArquivos do

begin

for I := 0 to Count - 1 do

ListBox2.Items.Add(Objects.Nome+' | '+Objects.MD5);

end;

Arquivo 1

|N1|00000000000000|0000000000 |0000000000 |ProNúcleo & VisualTec

|N2|54212542 |Frente de Caixa ProNúcleo & VisualTec |1.00.00

|N3|LIBEAY32.DLL |1966C992DC4A5B50BE3E58FC26B8B0D7

|N3|MP2032.DLL |B4A2AAA47C48ADE67BFA342B1C59DFB9

|N3|OPENSSL.EXE |F604C26DDAA13680A3278620C485212C

|N3|PROREGECF.EXE |921970344E89ED9B5598DB9DD77EADA4

|N3|SIUSBXP.DLL |75355D591FFED68A6FEABCC3592380A4

|N3|SSLEAY32.DLL |FE51AF337B27B5A2B404129DD22B25E7

|N9|00000000000000|0000000000 |6,00

EADB089422C5FE0DA6323661EDE9E813D12EC78FBE1A987B960BAA0970C961A80BC0A39CDC3A13EDC10A4E74B3F387E7BB40B3F564D63C559B1B8519A382710E1AD53345E93A74D0E17A63F895AF088B16E5E78FFE41988D1C34702D190EB29C6FB67B45171444F43EF91B4B4CA682B59D52134A4F63F3C86E99D11EA3C8F21066D

[genilson]

Como faço para salvar e recuperar a lista de aquivos Utilizados e Autenticados?

Assim que acabo de salvar faço uma consulta e os arquivos estão lá, se fecho e abro de novo a consulta vem vazia.

[genilson]

Estive vendo o exemplo e executei alguns testes chegando a seguinte conclusão: A lista de arquivos UTILIZADOS e AUTENTICADOS devem ser populadas em tempo de execução pois pelo que eu percebi o componente não salva estas lista, segue um exemplo;

//Carrega a lista de arquivos utilizados

arq:=TStringList.Create;

arq.LoadFromFile('arquivosNecessarios.txt');

for i := 0 to arq.Count - 2 do begin //leio apenas até a penúltima linha pois nela está o EAD

 with ACBrAAC1 do begin

  with IdentPAF.OutrosArquivos.New do begin

   Nome:=ExtractFileName(arq.Strings[i]);//leio apenas o nome do arquivo

   MD5:=ACBrEAD1.CalcularEAD(arq.Strings[i]);//calculo o EAD

  end;

 end;

end;

arq.Free;


//Carrega a lista de arquivos autenticados

with ACBrAAC1 do begin

 with IdentPAF.ArquivoListaAutenticados do begin

   Nome:='PED.exe';//Executável retaguarda com rotinas do PED

   MD5:=ACBrEAD1.CalcularEAD('PED.exe');//Calculo o EAD

 end;

end;


//Imprime o relatório

ACBrECF1.PafMF_RelIdentificacaoPafECF(ACBrECF1.AAC.IdentPAF,0);

Bom é isso ai, acrédito que desse jeito esteja certo.

Att;

Genilson A Oliveira