Transformando o servidor num serviço

Curso Emissor NFC-e
1

Olá pessoal, tudo bem?
Estou criando um serviço para rodar no Windows, pois agora vai para a produção.
Porém, tive um problema, no minimo curioso…Ou pode ser algo errado meu.
Tive que mudar a função ConfigFileName que esta na unit Server.Config.
Não estava encontrando o arquivo JSON. Isso no serviço Windows. E tive que colocar sempre na propria raiz.
Dai alterei para isso
function ConfigFileName: string;
var cNomeArq: String;
begin
cNomeArq := TPath.GetFileName(TPath.ChangeExtension(ParamStr(0), ‘.json’));

Result := ExtractFilePath(ParamStr(0))+cNomeArq;

– Aqui embaixo é para manter a compatibilidade rodando no servidor VCL
if not TFile.Exists(Result) then
begin

if TFile.Exists(TPath.Combine('..\..\', cNomeArq)) then
  Result := TPath.Combine('..\..\', cNomeArq);

end;

end;

Beleza. Funcionou.
Agora, quando vou executar o swagguer, aparece isso:
“No operations defined in spec!”

Obrigado.

2

No serviço do Windows o diretório corrente é diferente mesmo.
Sobre o Swagger, não saberia dizer, se o servidor está funcionando normal, o Swagger UI deveria estar normal também. Como está o endpoint openapi\swagger.json?

3

Achei o problema. Eu não havia adicionado o NFCe.Service ao projeto. Ele compilava bonitinho, mas, não estava no projeto. Então não inicializava.
Muito obrigado pela atenção.

1 Like