Tenho duas maq. virtuais com ubuntu, com mesma base sql-server, mesmo componentes AcBr, mesmo fonte, uma da erro outra não ?
Leandro Lazaro, [05.02.21 09:55]
function GetNotAfter( cert: pX509 TDateTime;
var
Validade: String;
notAfter: PASN1_TIME;
begin
notAfter := cert^.cert_info^.validity^.notAfter;
Validade := {$IFDEF DELPHIXE4_UP}AnsiStrings.{$ENDIF}StrPas( PAnsiChar(notAfter^.data) );
SetLength(Validade, notAfter^.length);
Validade := OnlyNumber(Validade);
if notAfter^.asn1_type = V_ASN1_UTCTIME then // anos com 2 dígitos
Validade := LeftStr(IntToStrZero(YearOf(Now),4),2) + Validade;
Result := StoD(Validade);
end;
Validade := {$IFDEF DELPHIXE4_UP}AnsiStrings.{$ENDIF}StrPas( PAnsiChar(notAfter^.data) );
Acbrdfeopenssl.pas
da erro em uma maq. na outra que foi criada copiando os fontes e backup da base de dados e instalado os componetes acbr, não funciona