GetAccessToken (rtl)
De Wiki1000
(Différences entre les versions)
| Ligne 26 : | Ligne 26 : | ||
msg.QueueName := 'DBQUEUE1'; | msg.QueueName := 'DBQUEUE1'; | ||
msg.AddParameter('message.action','importdip'); | msg.AddParameter('message.action','importdip'); | ||
| − | msg.AddParameter('message.accessToken',GetAccessToken); | + | msg.AddParameter('message.accessToken',GetAccessToken(0)); |
msg.AddParameter('import.name','testimport-wfclassea.dip'); | msg.AddParameter('import.name','testimport-wfclassea.dip'); | ||
msg.BinaryContent.LoadFromFile('c:\temp\exports\wfclassea.txt'); | msg.BinaryContent.LoadFromFile('c:\temp\exports\wfclassea.txt'); | ||
Version du 26 septembre 2014 à 09:44
|
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:
