使用MQ传输结构体信息

原创

于 2008-01-22 22:43:00 发布

· 1.4k 阅读

0 ·

版权

文章标签：

#button #buffer #integer #image #forms #interface

这篇博客展示了如何在Delphi程序中使用MQ API发送和接收包含整数、字符串和图像的结构体数据。通过创建MQDataInfo记录类型，将数据打包到MQ消息中，并在接收端解包显示在界面上。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码如下：

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: TMemo;
   Button1: TButton;
   LabeledEdit1: TLabeledEdit;
   LabeledEdit2: TLabeledEdit;
   LabeledEdit3: TLabeledEdit;
   Button2: TButton;
   Button3: TButton;
   Image1: TImage;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses MQI;

const
QM_NAME : MQCHAR48 = 'MyTest'#0;
QUEUE_NAME : MQCHAR48 = 'Test001'#0;

procedure TForm1.Button1Click(Sender: TObject);
var
Hconn : MQHCONN;
Hobj : MQHOBJ;
ConnectOpts : MQCNO;
QMgrName : MQCHAR48;
ObjDesc : MQOD;
Options, CompCode, Rea