Histórico da Página

...

• Veja abaixo as informações implementadas:
  • 1 - Retorna o nome completo da Build do DBAccess.
  • 2 - Retorna uma string contendo o total de CPU em uso na máquina onde está instalado o DBAccess. Caso seja uma máquina Windows, retorna o percentual de 0 a 100 %. Para ambiente Linux, retorna o Load Average da máquina.
  • 3 - Retorna a quantidade de memória (em KB) consumida pelo serviço do DBAccess.
  • 4 - Retorna informação sobre a versão do sistema operacional.
  • 5 - Retorna string com informações de memória da máquina e do aplicativo DBAccess.
  • 6 - Retorna o número de conexões atualmente estabelecidas com este DBAccess.
  • 7 - Retorna o latência entre o DBAccess e o SGDB.
  • 8 - Retorna o latência entre o DBAccess Slave e o DBAccess Master (Somente se estiver utilizando DBAccess Distribuído).
  • 9 - Retorna a quantidade de memória (em KB) consumida pela thread do DBAccess.

• A função TCGetInfo() somente está disponível a partir do TOTVS Application Server Build 7.00.131227A e superiores, com data de geração igual ou superior a 03/02/2017. 
• O uso desta função também requer a atualização do DBAccess Server, Build 20170202, release 17.1.1.0 ou superior.

Exemplos

USER FUNCTION TEST()
  Local cDB   := "POSTGRES/dsn" // alterar o alias/dsn para o banco/conexão que está utilizando
  Local cSrv  := "localhost" // alterar para o ip do DbAccess
  Local cInfo
  
  nHnd := TCLink(cDB, cSrv, 7890)
  
  if nHnd >= 0
    conout("Conectado")

    For nI := 1 to 9
      conout('Informação '+cValToChar(nI))
      conout(TCGetInfo(nI))
      conout('')
    Next

  endif

  TCUnlink()
RETURN

...