Gerar a LeituraX em txt com assinatura do EAD

[Rodrigo Ismerio Barros1802]

Quando gero a leituraX em txt, não consigo assinar o arquivo com o componente EAD. O componente ACBRECF esta conectado ao ACBREAD.

 

[Daniel Simoes]

Tentou com o ECFTeste ? qual o comando que você está enviando ?

[Rodrigo Ismerio Barros1802]

Obrigado pelo retorno!

ACBrECF.LeituraXSerial(PathArquivo);

[Rodrigo Ismerio Barros1802]

Daniel, no ECFTeste,o mesmo gera o arquivo, mas no programa o EAD não esta associado. Por isso não gera a assinatura.

Como posso fazer para gerar o arquivo com  comando  ACBrECF.LeituraXSerial(PathArquivo);  e incluir sua assinatura.

 

[Daniel Simoes]

esse método não assina por padrão... veja os fontes...

procedure TACBrECF.LeituraXSerial(NomeArquivo: String);
 Var AStringList : TStringList ;
begin
  ComandoLOG := 'LeituraXSerial( '+NomeArquivo+' )' ;
  AStringList := TStringList.Create ;
  try
     LeituraXSerial( AStringList );
     AStringList.SaveToFile( NomeArquivo );
  finally
     AStringList.Free ;
  end ;
end;   

 

Você mesmo pode assinar, qualquer arquivo...

ACBrEAD1.AssinarArquivoComEAD( NomeArq, True);

 

[Rodrigo Ismerio Barros1802]

Muito Obrigado!

[Rodrigo Ismerio Barros1802]

Daniel,

 

Testei agora de manhã e funcionou corretamente. Não sei como encerrar o post. Por gentileza poderia encerrar? 

[Juliomar Marchetti]

Basta marcar a resposta que resolveu seu problema conforme fiz acima