Post (TdbmQueueMessage)

procedure Post;

Cette méthode envoie 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 —