忙了一个星期终于搞掂了，心情顺畅，以此志之。 代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type MQDataInfo = record ID : Integer; Name : PAnsiChar; Value : PAnsiChar; Image : TBitmap; end; PMQDataInfo = ^MQDataInfo; type TForm1 = class(TForm) Memo1: TM
测试服务器到服务器： 要测试安装，必须设置两个工作站，一个作为发送方，另一个作为接收方。 1.设置发送方工作站： 1.1.创建名为“saturn.queue.manager”的缺省队列管理器。 命令为：crtmqm -q saturn.queue.manager 消息显示已创建该队列管理器，并且创建了缺省WebSphere MQ对象。 1.2.启动缺省队列管理器。 命令为：strmqm 队列管理器启动时，将显示信息。 1.3.启动MQSC命令。 命令为：runmqsc MQSC启动时，显示消息“启动WebSphere MQ命令”。MQSC不使用命令提示。 1.4.定义一个本地队列，作为名为Transmit1.queue的传输队列。 命令：define qlocal(
设置：使用以下步骤来安装队列管理器和队列： 1.创建名为venus.queue.manager的缺省队列管理器。 命令：crtmqm -q venus.queue.manager 消息显示已创建该队列管理器，并且创建了缺省WebSphere MQ对象。 2.启动缺省队列管理器。 命令：strmqm 队列管理器启动时，将显示消息。 3.启用MQSC命令。 命令：runmqsc MQSC会话启动时，将显示消息“启动WebSphere MQ命令”。MQSC不使用命令提示。 4.定义名为Orange.Queue的本地队列。 命令：define qlocal(orange.queue) MQSC中的任何小写文本都将自动转换成大写，除非用引号将它们括起来。 这意味着如果用名称O
以下内容是单元文件MQI.pas的正文 MQI.pas是对mqm.dll的Delphi封装接口（版权归原作者） unit MQI; interface const MQOD_STRUC_ID = 'OD '; MQOD_VERSION_1 = 1; MQOD_VERSION_2 = 2; MQOD_VERSION_3 = 3; MQOD_CURRENT_VERSION = 3; MQPMO_STRUC_ID = 'PMO '; MQPMO_VERSION_1
对mqm.dll动态链接库的封装接口 通过MQI.pas提供的接口函数我们可以很容易的发送和接收简单的文本信息 因为只是例子，所以命名不标准，注释不规范，好在代码简单，容易读懂 窗体文件不提供了，相信看到代码也应该能猜出来了 整个单元代码文件如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MQI; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButt
