Delphi下MSMQ（Mircosoft Message Queue）实例（私有队列）

最新推荐文章于 2019-01-21 13:58:00 发布

houhu_cs

最新推荐文章于 2019-01-21 13:58:00 发布

阅读量4.6k

点赞数

分类专栏： Delphi札记文章标签： delphi button integer access forms library

本文链接：https://blog.csdn.net/houhu_cs/article/details/5315077

版权

本文提供了一段Delphi代码示例，演示如何使用MSMQ（Microsoft Message Queue）创建私有消息队列，包括发送和接收消息的步骤。在Delphi中，通过TMSMQMessage和TMSMQQueue等控件与消息队列进行交互，实现了消息的添加和读取。

摘要由CSDN通过智能技术生成

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

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

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

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

源代码如下：

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,MSMQ_TLB,ComObj, StdCtrls, OleServer; type TForm1 = class(TForm) MSMQMessage1: TMSMQMessage; MSMQQueueInfo1: TMSMQQueueInfo; MSMQQueue1: TMSMQQueue; MSMQEvent1: TMSMQEvent; Button1: TButton; edit1: TEdit; edit2: TEdit; Button2: TButton; lbl1: TLabel; lbl2: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure MSMQEvent1Arrived(Sender: TObj