duas maquinas virtuais uma roda acbr outra não

[llaltube]

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

[Daniel Simoes]

Qual é exatamente a mensagem de erro ?

[llaltube]

esta dando erro nesta linha

Validade := {$IFDEF DELPHIXE4_UP}AnsiStrings.{$ENDIF}StrPas( PAnsiChar(notAfter^.data) );

da access violation, sendo que na outra maq. passa por essa linha sem dar erro.

[Daniel Simoes]

Seus fontes estão defasados.. atualize pelo SVN...
 

function GetNotAfter( cert: pX509 ): TDateTime;
var
  Validade: String;
  notAfter: PASN1_TIME;
begin
  notAfter := X509GetNotAfter(cert);
  if not Assigned(notAfter) then
  begin
    Result := 0;
    Exit;
  end;

  Validade := String(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);
  Result := IncMinute(Result, TimeZoneBias);
 
end;

 

[llaltube]

mas como se na maq. velha funciona e na maq. nova não com mesmos fontes mesmos componentes, mesma versão do ubuntu 16.4 , mesma verão do openssl, 1.02g, eu preciso da maq. nova funcionado como a velha

[Daniel Simoes]

Seus fontes estão defasados... não damos suporte em fontes defasados...

[llaltube]

obrigado

[llaltube]

entendi, mas tem algum jeito de baixar e instalar, no Lazarus no ubuntu, ou melhor tem algum instalador?

[Daniel Simoes]

 

[Juliomar Marchetti]

1 hora atrás, llaltube disse:

entendi, mas tem algum jeito de baixar e instalar, no Lazarus no ubuntu, ou melhor tem algum instalador?

Instalador não. somente para delphi o instalador

[llaltube]

tem algum passo a passo como baixar os componentes do acbr e instalar no Lazarus no ubuntu 16.4. 

desde já agradeço

[Daniel Simoes]

https://projetoacbr.com.br/fontes/

 

[llaltube]

tem algum passo a passo

Citar

como baixar os componentes do acbr e instalar no Lazarus no ubuntu 16.4

. 

desde já agradeço,  

[Juliomar Marchetti]

Não. pois não compilados no linux e sim no windows