LogEvent (rtl)

Version du 5 mai 2015 à 14:10

function logEvent(const iCategory,iModuleName,iAction:string; const iKeys:Array of variant; const iValues:Array of variant; iDuration:Double):boolean;

Cette fonction permet d'émettre un évènement vers l'enregistreur de log.

Cet évènement positionne les attributs suivants :

Ces attributs peuvent être utilisé dans les handlers d'évènement.

Exemple :

Voici la déclaration du handler envoyant ce type d'évènement vers Google Analytics.

[\SOFTWARE\Sage\Ligne 1000\Administration\LOGManager\GA_EVENT]
type = http
url = http://www.google-analytics.com/collect
method = POST
contentType = application/x-www-form-urlencoded
accept = application/text
keep-alive = 0
categories = sysevent,confevent,taskevent,processevent,event
content = t=event&v=1&tid=[gaUA]&cid=[DeviceID]&cd1=[CustomerID]&cd2=[appName]-[appVersion]&cd3=[id]&cd4=[UserID]&cd5=[systemOSInfoEx]& \
          ec=[actionCategory]&ea=[actionName]&el=[actionLabel]&ev=[actionValue]&cm1=[actionValue1]&cd6=[actionModule]

begin
  logEvent('process','TProcessusComptabilisation',['Nbr. pièce','Nbr. ecriture'],[100,1000]);
end;

//Procedure TestLogEvent;
var idx:Integer; keys:Array of string; values:Array of variant; tk1,tk2:longint;
begin
  tk1 := GetTickCount;
  for idx:=0 to 9 do
   begin
     Keys[idx] := 'event'+inttostr(idx);
     Values[idx] := idx;
   end;
  tk2 := GetTickCount;
  logEvent('process','GCF-Echeance',ClassName,Keys,Values,TicktoMS(tk2-tk1));
end;

Tip : Ne pas passer de tableau statique, un type tableau statique n'est pas compatible avec un type tableau ouvert

Voir aussi:

• Tableaux ouverts