GetAccessToken (rtl)

function GetAccessToken(iExpireInseconds:Integer):string;

Cette fonction retourne un jeton d'authentification correspondant au contexte utilisateur en cours.

iExpireInSeconds	Durée de vie du jeton
Result	Une chaine représentant le jeton

Tip : La durée de vie du jeton est limitée à 7 jours, si la valeur passée est zéro une durée de vie par défaut de 1 journée est utilisée.

Exemple :

//Procedure TestInQueueImport;
var msg:TdbmQueueMessage; idx:Integer;
begin
  for idx:=1 to 1 do
   begin
     msg := TdbmQueueMessage.Create;
     msg.QueueName := 'DBQUEUE1';
     msg.AddParameter('message.action','importdip');
     msg.AddParameter('message.accessToken',GetAccessToken(0));
     msg.AddParameter('import.name','testimport-wfclassea.dip');
     msg.BinaryContent.LoadFromFile('c:\temp\exports\wfclassea.txt');
     msg.Post;
   end;
end;

Voir aussi:

— Développement DSM — Développement DSM —