Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

tiagomartins

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    30

  • Registro em

  • Última visita

Community Answers

  1. tiagomartins
    tiagomartins's post in Assinatura de Documento XML was marked as the answer   
    procedure TForm1.AssinarXml(const ElementoFinal:String);
    var SSL : TDFeSSL;
        XMLUTF8, XMLAssinado : String;
    begin
      SSL := TDFeSSL.Create;
      try
        SSL.SSLCryptLib     := cryWinCrypt;
        SSL.SSLXmlSignLib   := xsMsXml;
        SSL.ArquivoPFX      := 'c:\Temp\arquivo.pfx';
        SSL.Senha           := 'senha1234';
        SSl.CarregarCertificado;
        XMLUTF8 := Memo1.Text;
        XMLAssinado := SSL.Assinar(XMLUTF8, ElementoFinal, '');
        Memo2.Text := XMLAssinado;
      finally
        SSL.free;
      end;
    end;
     
    na uses vc declara essas bibliotecas ACBrDFeSSL, ACBrSocket,
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.