Fórum Fazer log de todas as ações que o usuário fez #147738

----- 02/09/2002 10:03:21
UPDATE CLIENTE SET REG_CODIGO=?,CLI_EMAIL=?,VDO_CODIGO=?,CLI_DIA=?,CLI_DTATU=?,ATV_CODIGO=? WHERE CLI_CODIGO=?
 REG_CODIGO, 1
 CLI_EMAIL, teste@teste2.com.br
 VDO_CODIGO, 4
 CLI_DIA, Quarta
 CLI_DTATU, 9/2/2002 10:3:21:0
 ATV_CODIGO, 101
 CLI_CODIGO, 81
UPDATE CLIENTE SET REG_CODIGO=?,CLI_EMAIL=?,VDO_CODIGO=?,CLI_DIA=?,CLI_DTATU=?,ATV_CODIGO=? WHERE CLI_CODIGO=?

  Database1.TraceFlags := [tfQPrepare, tfQExecute, tfDataIn];

  Check(DbiRegisterCallBack(
    nil,                         //Cursor (Optional)
    cbTRACE,                     //Type of Callback
    LongInt(0),                  //Pass-through client data
    sizeof(TCallBackInfo),       //Callback buffer len
    @cbinfo,                     //Pointer to callback function
    @RotinaLog                   //Call back fn being registered
    ));

implementation

type TCallBackInfo = record
       Categoria: Integer;
       TotalLen : Word;
       Msg      : array[0..8192] of Char;
     end;
type pCallBackInfo = ^TCallBackInfo;

var sqlInicio   : string;

function RotinaLog(ecbType : CBType; iClientData : LongInt;
  pCbInfo : pCallBackInfo): CBRType; stdcall;

var ArqLog, S, Aux_S, sLog: string;
    I, J: Integer;
    F: TextFile;
    InicioComando: Boolean;

begin
  InicioComando := False;
  S := StrPas(pCbInfo^.Msg);

  // Descarta select´s
  Aux_S := UpperCase(S);
  if (Pos(´RDB$´, Aux_S) > 0) or (Pos(´SELECT´, Aux_S) > 0 ) then
     Exit;

  sLog := ´´;

  // Checa parâmetros
  I := Pos(´Param´, S);
  if (sqlInicio <> ´´) and (I > 0) then
     begin
       J := Pos(´Name´, S);
       Delete(S, 1, J + 6);
       J := Pos(´Type´, S);
       sLog := ´ ´ + Copy(S, 1, J - 1);
       J := Pos(´Data´, S);
       Delete(S, 1, J + 6);
       sLog := sLog + S;
     end
  else
     begin
       Aux_S := UpperCase(S);
       I := Pos(´UPDATE´, Aux_S);
       if I = 0 then
          begin
            I := Pos(´INSERT´, Aux_S);
            if I = 0 then
               I := Pos(´DELETE´, Aux_S);
          end;

       if I > 0 then
          begin
            InicioComando := True;
            Delete(S, 1, I - 1);
            sLog := S;
            if sqlInicio = ´´ then
               sqlInicio := S
            else
               if S = sqlInicio then
                  begin
                    InicioComando := False;
                    sqlInicio := ´´;
                  end;
          end;
     end;

  if sLog <> ´´ then
     begin
       sLog := StringReplace(sLog, #$D$A, ´[CR][LF]´, [rfReplaceAll]);
       if InicioComando then
          sLog := ´----- ´
                + FormatDateTime(´dd/mm/yyyy hh:nn:ss´, Now)
                + $D$A
                + sLog;
       if DirLog_Trans <> ´´ then
          ArqLog := DirLog_Trans
       else
          ArqLog := DirLog;
       AssignFile(F, ArqLog);
       if not FileExists(ArqLog) then
          Rewrite(F)
       else
          Append(F);
       WriteLn(F, sLog);
       Flush(F);
       CloseFile(F);
     end;
end;


procedure TDM_DADOS.DataModuleCreate(Sender: TObject);
var cbinfo: TCallBackInfo;
    F     : TextFile;
    Ini   : TIniFile;

begin
  DirLog_Trans := ´´;

  Database1.Connected  := True;
  Database1.TraceFlags := [tfQPrepare, tfQExecute, tfDataIn];

  Check(DbiRegisterCallBack(
    nil,                         //Cursor (Optional)
    cbTRACE,                     //Type of Callback
    LongInt(0),                  //Pass-through client data
    sizeof(TCallBackInfo),       //Callback buffer len
    @cbinfo,                     //Pointer to callback function
    @RotinaLog                   //Call back fn being registered
    ));

end;