Problemas Servidor de aplicação Delphi 10.3.3 webbroker Linux Centos 8

[automacaosamos]

Estou testando o acbr no delphi 10.3.3 pro linux
construi um servidor de aplicacao, para envio de NFE e 
manifestos sem usar nada de impressao, por questao de compatibilidade
funcionou perfeito no CentOS 7 instalando as bibliotecas
gtk3-devel e libxml2-devel.
instalei o CentOS8 e fiz a mesma preparacao do ambiente, mas estou
recebendo essa mensagem:
-------------------------------------
No CentOS 8
[root@localhost acbr]# ./acbrserver
Unable to init server: Não foi possível conectar: Conexão recusada
Enter a Command: 
   - "start" to start the server
   - "stop" to stop the server
   - "set port" to change the default port
   - "status" for Server status
   - "help" to show commands
   - "exit" to close the application
->- Starting HTTP Server on port 8090
->^CEControlC: Control-C hit
[root@localhost acbr]# 

----------------------------------------
No CentOS 7
[root@localhost acbr]# ./acbrserver
Enter a Command: 
   - "start" to start the server
   - "stop" to stop the server
   - "set port" to change the default port
   - "status" for Server status
   - "help" to show commands
   - "exit" to close the application
->- Starting HTTP Server on port 8090
->^CEControlC: Control-C hit
[root@localhost acbr]# 

por ter essa mensagem:
Unable to init server: Não foi possível conectar: Conexão recusada

nao consigo startar o acbrserver como serviço

alquem passou por isso 

[Daniel Simoes]

Essas msgs não dizem muito... parece ser mais uma tela de auxílio de comandos válidos da aplicação...

rode a aplicação diretamente no console e veja os erros

[automacaosamos]

Isso deve ser bug do Delphi com o CentOS 8,,

mas obrigado por responder

cido 

 

[automacaosamos]

consegui recompilar removendo manualmente as SDKs e incluindo novamente.

mas o problema abaixo permanece.

o que fiz removi todas a minhas classes que chamava o ACBr e compilei apenas

com meus métodos básico, a mensagem abaixo não apareceu:

"Unable to init server: Não foi possível conectar: Conexão recusada"

ai coloquei apenas as classes que chamam o ACBrNFE a partir dai

começou a dar a mensagem novamente, será que o ACBr faz alguma chamada

no ambiente gráfico, mesmo não sendo solicitado ??

será que existe como remover isso do ACBr ??,

No centOS7 testei de todas a formas e não aparece a mensagem: 

"Unable to init server: Não foi possível conectar: Conexão recusada"

Obrigado

 

[Daniel Simoes]

Para compilar o ACBr em modo CONSOLE, use a diretiva "NOGUI", em Conditional Defines

[automacaosamos]

Mesmo colocando em  Conditional Defines persiste o problema

Unable to init server: Não foi possível conectar: Conexão recusada
Enter a Command:
   - "start" to start the server
   - "stop" to stop the server
   - "set port" to change the default port
   - "status" for Server status
   - "help" to show commands
   - "exit" to close the application
->- Starting HTTP Server on port 8050
 

pego o mesmo executável, coloco no na VM CentOS7 e não dá o errro

mas obrigado pela atençao.

cido

 

[automacaosamos]

Envio um exemplo, de como estou fazendo os testes

se quiserem dar uma olhada, coloquei em teste em um cliente usando o CentOS7

e tem funcionado bem, isolei o problema na parte de criacao do componente da ACBrNFE

 

ACBrTeste.rar

[Daniel Simoes]

Creio que vc tem que debugar sua aplicação, inserindo BkPoints no momento em que o Serviço está para ser iniciado...

notei que o trecho abaixo, não faz muito sentido... vc cria o componente do ACBr, configura, e depois destrói o mesmo...

function TNotaEletronicaController.NotaEletronica(StrParametros,StrJson:String):String;
var
  Parametros            : TStringList;
  ACBrNFE               : TACBrNFE;
//Inicio
begin

  Parametros         := Explode(StrParametros,'|');

  try
    ACBrNFe                                           := TACBrNFE.Create(nil);
    ACBrNFe.Configuracoes.Geral.FormaEmissao          := teNormal;
    ACBrNFe.Configuracoes.Geral.VersaoDF              := ve400;
    ACBrNFe.Configuracoes.WebServices.UF              := 'SP';
    ACBrNFe.Configuracoes.Certificados.NumeroSerie    := '1234';
    ACBrNFe.Configuracoes.Certificados.Senha          := '1234';
    ACBrNFe.SSL.SSLType                               := TSSLType(LT_TLSv1_2);
    ACBrNFe.Configuracoes.Certificados.ArquivoPFX     := 'teste.pfx';
    ACBrNFe.Configuracoes.Geral.SSLCryptLib           := cryWinCrypt;
    ACBrNFe.Configuracoes.Geral.SSLHttpLib            := httpWinHttp;
    ACBrNFe.Configuracoes.Geral.SSLLib                := libWinCrypt;
    ACBrNFe.Configuracoes.Geral.SSLXmlSignLib         := XsMsXml;
    ACBrNFe.Configuracoes.WebServices.Ambiente        := taHomologacao;

    ACBrNFe.Configuracoes.Arquivos.PathSalvar         := 'ocorrencias';
    ACBrNFe.Configuracoes.Arquivos.PathInu            := 'inutilizacao';
    ACBrNFe.Configuracoes.Arquivos.PathNFe            := 'enviadas';
    ACBrNFe.Configuracoes.Arquivos.PathEvento         := 'eventos';
    ACBrNFe.Configuracoes.Arquivos.PathSchemas        := 'NFe';
    ACBrNFe.Configuracoes.Arquivos.SepararPorCNPJ     := True;
    ACBrNFe.Configuracoes.Arquivos.SepararPorAno      := True;
    ACBrNFe.Configuracoes.Arquivos.SepararPorMes      := True;
    ACBrNFe.Configuracoes.Geral.FormatoAlerta         := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.';
    ACBrNFe.Configuracoes.Geral.ExibirErroSchema      := True;
    ACBrNFe.Configuracoes.Geral.RetirarAcentos        := True;
    ACBrNFe.Configuracoes.Geral.Salvar                := True;
    ACBrNFe.Configuracoes.Geral.CamposFatObrigatorios := False;
  finally
    FreeAndNil(ACBrNFE);
  end;

  FreeAndNil(Parametros);

end;

 

[automacaosamos]

A, não o que fiz ai foi só um exemplo onde começa a ocorrer o problema, quando instancio o componente ACBRNfe, 

a classe é bem mais completa, senão ficaria grande pra mandar. mandei pra talvez alguém queira fazer testes como eu.

o fato do problema só ocorrer com o CentOS 8 que me intriga.

mas obrigado por responder

Abraços

Cido