用delphi xe 开发rabbitmq应用（三）

本文主要是介绍用delphi xe 开发rabbitmq应用（三），希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

【rabbitmq的核心数据类型】

在AMQP V0.9.1定义了一套核心的数据类型，在delphi中做了如下定义：

type
   amqp_octet = byte;
  amqp_2octet = word;
  amqp_4octet = LongWord;
  amqp_8octet = UInt64;
  amqp_boolean = Boolean;
  amqp_bit = amqp_boolean;


  amqp_short_short_uint = amqp_octet;
  amqp_short_short_int = ShortInt;
  amqp_short_uint = amqp_2octet;
  amqp_class_id = amqp_short_uint;
  amqp_short_int = SmallInt;


  amqp_long_uint = amqp_4octet;
  amqp_long_int = Int32;
  amqp_long_long_uint = amqp_8octet;
  amqp_long_long_int = Int64;
  amqp_float = single;
  amqp_double = double;
  amqp_timestamp = amqp_long_long_uint;
  amqp_string_char = AnsiChar;


  TValueKind = ( vkBool,      vkShortShortInt, vkShortShortUInt, vkShortInt,     vkShortUInt,
                 vkLongInt,   vkLongUInt,      vkLongLongInt,    vkLongLongUInt, vkFloat,
                 vkDouble,    vkDecimalValue,  vkShortString,    vkLongString,   vkFieldArray,

                 vkTimestamp, vkFieldTable,    vkEmpty );

在这个delphimq版本中，所有的AMQP规范数据类型都以Class来做声明：

  TAMQPFieldBoolean        = class;
  TAMQPFieldShortShortInt  = class;
  TAMQPFieldShortShortUInt = class;
  TAMQPFieldShortInt       = class;
  TAMQPFieldShortUInt      = class;
  TAMQPFieldLongInt        = class;
  TAMQPFieldLongUInt       = class;
  TAMQPFieldLongLongInt    = class;
  TAMQPFieldLongLongUInt   = class;
  TAMQPFieldShortString    = class;
  TAMQPFieldLongString     = class;
  TAMQPFieldTable          = class;

  TAMQPFieldArray          = class;

以上Class的祖先是一个名为TAMQPValue的Class，该Class定义如下：

TAMQPValue = Class(TAMQPObject, IAMQPFieldValue)，用interface来声明实现一个类，会带来诸多后期的好处，比如实现AOP，便于调用，不用实现destroy，容易跟踪调试。

其中 TAMQPFieldTable是实现properties list的关键类，对于发行者/消费者来说，可以编码/解码相关的必要字段，例如消息ID、消息头、消息持久性等等。

我想说得是用原生的pascal代码，消费（解码）消息非常稳定，在生产环境下（IBM X3850 Server)，解码20几万条消息，没有发生异常。原作者的delphi功力是非常高的。

这篇关于用delphi xe 开发rabbitmq应用（三）的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---