[Lazarus-es] Más dudas

[Claudio Romero]

Yo realizo algo parecido pero, utilizo los usuarios del Servidor
Firebird (o del que sea) y grabo los ingresos y salidas al servidor de
Base de datos con trigger(muy sencillo) Incluso los que ingresan con
un navegador (con páginas dinámicas)

Grabo estos datos:
usuario, fecha, hora, accion,coneccion,rol,IP_remoto,proceso_remoto

Si quieres buscar el nombre de la maquina, creo que debes hacer una
funcion para Windows, y otra para Linux.
En Windows obtener el nombre de la pc (funcionaba en Delphi)
function GetComputerName : String;
var
   pcComputer : PChar;
   dwCSize    : DWORD;
begin
   dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
   GetMem( pcComputer, dwCSize );
   try
      if Windows.GetComputerName( pcComputer, dwCSize ) then
         Result := pcComputer;
   finally
      FreeMem( pcComputer );
   end;
end;

En linux, esta el comando hostname, ifconfig y otros mas (podrias usar TProcess)
No se si fpc tiene funciones para esto.

Pero me parece que con 2 trigers en la base es mas limpio, y transparente.
Lo otro es mas complicado de programar (ademas que te pueden cambiar
el nombre de la pc tranquilamente).

Saludos