Post (TdbmQueueMessage)
De Wiki1000
procedure Post;
Cette méthode envoie le message sur la file d'attente
Exemple :
procedure doPostSomeMessage; var msg:TdbmQueueMessage; idx:Integer; begin for idx:=1 to 1 do begin msg := TdbmQueueMessage.Create; msg.QueueName := 'WSMQ'; msg.AddParameter('uneChaine','some text'); msg.AddParameter('unEntier',1999); msg.BinaryContent.LoadFromFile('c:\image.jpg'); msg.Post; end; end;