Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

Assinatura do arquivo Binario MFD


  • Este tópico foi criado há 1936 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;
 

 

Link to comment
Share on other sites

  • Consultores

Em princípio é isso mesmo!

Confere com o exemplo do svn!

favor quando postar trechos de código anexar assim fica melhor pra analisar!

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • 4 weeks later...
  • 1 month later...
  • Consultores
Em 11/07/2016 at 08:32, Rodrigo Coradi disse:

Daniel, bom dia,

Estamos com o mesmo problema do Rodrigo, gostaria de saber por favor o que seria o "associar", não compreendi essa questão de associar.

Obrigado.

O ACBrECF tem uma propriedade ACBrEAD. Você deve setar essa propriedade para o componente ACBrEAD que estiver configurado.

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Este tópico foi criado há 1936 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.