Post (TdbmQueueMessage)

Syfre (discuter | contributions)
(Page créée avec « <source lang='delphi'>procedure Post;</source> Cette méthode envoi le message sur la file d'attente {{tip|En cas d'erreur une exception est générée}} Exemple : <sourc… »)
Modification suivante →

---

Version du 5 février 2013 à 10:09

procedure Post;

Cette méthode envoi le message sur la file d'attente

Tip : En cas d'erreur une exception est générée

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;

— TdbmQueueMessage — Développement DSM —