GetAccessToken (rtl)
De Wiki1000
(Différences entre les versions)
| (6 révisions intermédiaires par un utilisateur sont masquées) | |||
| Ligne 1 : | Ligne 1 : | ||
| − | {{new| | + | {{new|700}} |
| − | <source lang="delphi">function GetAccessToken( | + | <source lang="delphi">function GetAccessToken(iExpireInSeconds:Integer):string;</source> |
| − | Cette fonction retourne un jeton d'authentification correspondant au contexte utilisateur en cours. | + | Cette fonction retourne un [[Jeton d'authentification (administration)|jeton d'authentification]] correspondant au contexte utilisateur en cours. |
{|class="wikitable" | {|class="wikitable" | ||
| 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'); | ||
| Ligne 35 : | Ligne 35 : | ||
Voir aussi: | Voir aussi: | ||
| + | *[[Jeton d'authentification (administration)|Jeton d'authentification]] | ||
{{Footer|Développement DSM}} | {{Footer|Développement DSM}} | ||
[[category:RTL Framework]] | [[category:RTL Framework]] | ||
| − | [[Category: | + | [[Category:Version700]] |
Version actuelle en date du 13 janvier 2015 à 12:59
|
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:
