Delphi下MSMQ(Mircosoft Message Queue)实例(私有队列)

2019独角兽企业重金招聘Python工程师标准>>> hot3.png

Delphi下MSMQ(Mircosoft Message Queue)实例(私有队列)



 

网上关于消息队列技术原理说明的详细文档很多,但涉及到Delphi的具体实现很少,这是我从网上找了一上午的资料,自己整合和尝试的能运行的程序。

打开控制面板->程序->添加组件,添加消息队列

打开控制面板->计算机管理->服务与应用程序->消息队列,添加私有有消息Test.

在Delphi中添加MSMQ控件, TMSMQMessage; TMSMQQueueInfo; TMSMQQueue; TMSMQEvent; 这些控件在Project->Import type Library里存在。

源代码如下:

  view plaincopy

  1. unit Unit1;  

  2. interface  

  3. uses  

  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  

  5.   Dialogs,MSMQ_TLB,ComObj, StdCtrls, OleServer;  

  6. type  

  7.   TForm1 = class(TForm)  

  8.     MSMQMessage1: TMSMQMessage;  

  9.     MSMQQueueInfo1: TMSMQQueueInfo;  

  10.     MSMQQueue1: TMSMQQueue;  

  11.     MSMQEvent1: TMSMQEvent;  

  12.     Button1: TButton;  

  13.     edit1: TEdit;  

  14.     edit2: TEdit;  

  15.     Button2: TButton;  

  16.     lbl1: TLabel;  

  17.     lbl2: TLabel;  

  18.     procedure Button1Click(Sender: TObject);  

  19.     procedure Button2Click(Sender: TObject);  

  20.     procedure MSMQEvent1Arrived(Sender: TObject; var Queue: OleVariant;  

  21.       Cursor: Integer);  

  22.   private  

  23.     { Private declarations }  

  24.   public  

  25.     { Public declarations }  

  26.   end;  

  27. var  

  28.   Form1: TForm1;  

  29. implementation  

  30. {$R *.dfm}  

  31. //发送消息  

  32. procedure TForm1.Button1Click(Sender: TObject);  

  33. begin  

  34.     //确定消息队列路径  

  35.     MSMQQueueInfo1.PathName       :='./Private$/Test';  

  36.     //远程机器名  

  37.     MSMQQueueInfo1.RemoteMachineName   :=   '127.0.0.1'   ;  

  38.     //消息内容  

  39.     (MSMQMessage1.DefaultInterface   as   IMSMQMessage).body   :=edit1.Text;  

  40.     //连接到消息队列  

  41.     MSMQQueue1.ConnectTo(MSMQQueueInfo1.Open(MQ_SEND_ACCESS,       0));  

  42.     //发送消息  

  43.     MSMQMessage1.Send(MSMQQueueInfo1.Open(MQ_SEND_ACCESS,       MQ_DENY_NONE));  

  44.     showmessage( '已经把信息入写入消息队列中 ');  

  45. end;  

  46. //接收消息  

  47. procedure TForm1.Button2Click(Sender: TObject);  

  48. begin  

  49.   msmqqueueinfo1.PathName   :='./Private$/Test';  

  50.   msmqqueue1.Disconnect;  

  51.   msmqqueue1.ConnectTo(msmqqueueinfo1.Open(1,   0));  

  52.   //  

  53.   msmqqueue1.EnableNotification(MSMQEvent1.DefaultInterface);  

  54. end;  

  55. //MSMQEvent事件  

  56. procedure TForm1.MSMQEvent1Arrived(Sender: TObject; var Queue: OleVariant;  

  57.   Cursor: Integer);  

  58.       var  

  59.   Msg:   Variant;  

  60.   begin  

  61.   //从队列中读取消息  

  62.   Msg   :=   msmqqueue1.Receive;  

  63.   edit2.Text :=   Msg.body;  

  64. end;  

  65. end.  


转载于:https://my.oschina.net/u/582827/blog/550775

你可能感兴趣的:(Delphi下MSMQ(Mircosoft Message Queue)实例(私有队列))