Pesquisar na Comunidade
Showing results for tags 'ecf+mfd+ead'.
Encontrado 1 registro
-
Bom dia, Quando gero o arquivo da leituraX funciona corretamente, mas quando gero o arquivo MFD ele gera a assinatura invalida. Dúvida, preciso informar a chave publica no componente EAD? Tem alguma coisa errado no fonte abaixo? procedure TForm1.ACBrEAD1GetChavePrivada(var Chave: AnsiString); begin Chave := '-----BEGIN RSA PRIVATE KEY-----' + #13#10 + 'MIICXQIBAAKBgQDmxjdQ6TnSW5o8V15H3Hl5whZOmSYfn1BTxWvXR5wmMKiMT/Ny' + #13#10 + (...) 'tekIG7L2mkijivMdpNYpa1M/mGVdrzqlggoJ9jce3PmJ' + #13#10 + '-----END RSA PRIVATE KEY-----'; end; procedure TForm1.Button1Click(Sender: TObject); var PathArquivo : string; begin ACBrECF1.Porta:=Edit1.Text; ACBrECF1.Ativar; dlgDialogoSalvar.DefaultExt := '.mfd'; dlgDialogoSalvar.Filter := 'Arquivos binários MF|*.mfd'; if dlgDialogoSalvar.Execute then begin PathArquivo := dlgDialogoSalvar.FileName; ACBrECF1.PafMF_ArqMFD(PathArquivo); // será gerado o arquivo bináio e o arquivo .txt com a assinatura EAD ShowMessage(Format('Arquivo MFD gerado com sucesso em:'#13#10' "%s"', [PathArquivo])); end; end; procedure TForm1.Button2Click(Sender: TObject); var PathArquivo : string; begin ACBrECF1.Ativar; dlgDialogoSalvar.DefaultExt := '.txt'; dlgDialogoSalvar.Filter := 'Arquivos *.txt'; if dlgDialogoSalvar.Execute then begin PathArquivo := dlgDialogoSalvar.FileName; ACBrECF1.LeituraXSerial(PathArquivo); ACBrECF1.AssinaArquivoComEAD(PathArquivo); // será gerado o arquivo bináio e o arquivo .txt com a assinatura EAD ShowMessage(Format('Arquivo MFD gerado com sucesso em:'#13#10' "%s"', [PathArquivo])); end; end;
