Delphi XE10.x实现Android下读取pem,der格式X509证书

证书没经过加密，直接从XCA中导出。

 

1、首选创建一个抽象类TCertParser

type
TCertInfoTem = class
  private
    Fversion      : integer;
    FserialNumber,
    Fsubject,
    Fissuer       : JString;
    FstartTime,
    FendTime      : JTime;
    Fsignature    : JBitSet;
    Falgorithm    : JString;
    FpublicKey    :TJavaArray<Byte>;

 public
    function getVersion:integer;
    function getSerialNumber:JString;
    function getsubject:JString;
    function getIssuer:JString;
    function getStartTime:JTime;
    function getEndTime:JTime;
    function getSignature:JBitSet;
    function getAlgorithm:JString;
    procedure setVersion( Aversion : integer);
    procedure setSerialNumber( AserialNumber : JString);
    procedure setSubject( Asubject : JString);
    procedure setIssuer( Aissuer : JString);
    procedure setStartTime( Astart