微软消息队列使用

微软消息队列Message Queue使用

首先在控制面板，添加Windows组件中增加消息队列，并安装完毕。

procedure TForm1.btn2Click(Sender: TObject);

var

 Msg, Dest : OleVariant;

begin

 Msg := CreateOleObject('MSMQ.MSMQMessage');

 Dest := CreateOleObject('MSMQ.MSMQDestination');

 Dest.FormatName := 'DIRECT=TCP:10.0.0.172\private$\YourMessageQueueName';

 Msg.Label := edt3.Text;

 Msg.Body := mmo1.Text;

 Msg.Send(Dest);

end;