cmqbpas.pas

delphi写的IBM mq服务器

 procedure mqClearBag (
   Bag         : MQHBAG;     (* Bag handle *)
   var CompCode: MQLONG;     (* Completion code *)
   var Reason  : MQLONG);    (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqClearBag';

 (*********************************************************************)
 (*  mqCountItems Function -- Count Items in Bag                      *)
 (*********************************************************************)

 procedure mqCountItems (
   Bag          : MQHBAG;    (* Bag handle *)
   Selector     : MQLONG;    (* Item selector *)
   var ItemCount: MQLONG;    (* Number of items *)
   var CompCode : MQLONG;    (* Completion code *)
   var Reason   : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqCountItems';

 (*********************************************************************)
 (*  mqCreateBag Function -- Create Bag                               *)
 (*********************************************************************)

 procedure mqCreateBag (
   Options      : MQLONG;    (* Bag options *)
   var Bag      : MQHBAG;    (* Handle of bag created *)
   var CompCode : MQLONG;    (* Completion code *)
   var Reason   : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqCreateBag';

 (*********************************************************************)
 (*  mqDeleteBag Function -- Delete Bag                               *)
 (*********************************************************************)

 procedure mqDeleteBag (
   var Bag      : MQHBAG;    (* Bag Handle*)
   var CompCode : MQLONG;    (* Completion code *)
   var Reason   : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqDeleteBag';

 (*********************************************************************)
 (*  mqDeleteItem Function -- Delete Item in Bag                      *)
 (*********************************************************************)

 procedure mqDeleteItem (
   Bag          : MQHBAG;    (* Bag handle *)
   Selector     : MQLONG;    (* Item selector *)
   ItemIndex    : MQLONG;    (* Item index *)
   var CompCode : MQLONG;    (* Completion code *)
   var Reason   : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqDeleteItem';

 (*********************************************************************)
 (*  mqExecute Function -- Send Admin Command and Receive Reponse     *)
 (*********************************************************************)

 procedure mqExecute (
   Hconn        : MQHCONN;   (* Connection handle *)
   Command      : MQLONG;    (* Command identifier *)
   OptionsBag   : MQHBAG;    (* Handle of options bag *)
   AdminBag     : MQHBAG;    (* Handle of admin bag *)
   ResponseBag  : MQHBAG;    (* Handle of response bag *)
   AdminQ       : MQHOBJ;    (* Handle of admin queue *)
   ResponseQ    : MQHOBJ;    (* Handle of response queue *)
   var CompCode : MQLONG;    (* Completion code *)
   var Reason   : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqExecute';

 (*********************************************************************)
 (*  mqGetBag Function -- Receive PCF Message into Bag                *)
 (*********************************************************************)

 procedure mqGetBag (
   Hconn         : MQHCONN;  (* Connection handle *)
   Hobj          : MQHOBJ;   (* Queue handle *)
   var MsgDesc   : TMQMD;    (* Message descriptor *)
   var GetMsgOpts: TMQGMO;   (* Get-message options *)
   Bag           : MQHBAG;   (* Handle of bag to contain message *)
   var CompCode  : MQLONG;   (* Completion code *)
   var Reason    : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqGetBag';

 (*********************************************************************)
 (*  mqInquireBag Function -- Inquire Handle in Bag                   *)
 (*********************************************************************)

 procedure mqInquireBag (
   Bag           : MQHBAG;   (* Bag handle *)
   Selector      : MQLONG;   (* Item selector *)
   ItemIndex     : MQLONG;   (* Item index *)
   var ItemValue : MQHBAG;   (* Item value *)
   var CompCode  : MQLONG;   (* Completion code *)
   var Reason    : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqInquireBag';

 (*********************************************************************)
 (*  mqInquireInteger Function -- Inquire Integer in Bag              *)
 (*********************************************************************)

 procedure mqInquireInteger (
   Bag           : MQHBAG;   (* Bag handle *)
   Selector      : MQLONG;   (* Item selector *)
   ItemIndex     : MQLONG;   (* Item index *)
   var ItemValue : MQLONG;   (* Item value *)
   var CompCode  : MQLONG;   (* Completion code *)
   var Reason    : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqInquireInteger';

 (*********************************************************************)
 (*  mqInquireItemInfo Function -- Inquire Attributes of Item in Bag  *)
 (*********************************************************************)

 procedure mqInquireItemInfo (
   Bag            : MQHBAG;   (* Bag handle *)
   Selector       : MQLONG;   (* Item selector *)
   ItemIndex      : MQLONG;   (* Item index *)
   var OutSelector: MQLONG;   (* Selector of item *)
   var ItemType   : MQLONG;   (* Data type of item *)
   var CompCode   : MQLONG;   (* Completion code *)
   var Reason     : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqInquireItemInfo';

 (*********************************************************************)
 (*  mqInquireString Function -- Inquire String in Bag                *)
 (*********************************************************************)

 procedure mqInquireString (
   Bag               : MQHBAG;   (* Bag handle *)
   Selector          : MQLONG;   (* Item selector *)
   ItemIndex         : MQLONG;   (* Item index *)
   BufferLength      : MQLONG;   (* Length of buffer *)
   Buffer            : Pointer;  (* Buffer to contain string *)
   var StringLength  : MQLONG;   (* Length of string returned *)
   var CodedCharSetId: MQLONG;   (* Character-set identifier of string *)
   var CompCode      : MQLONG;   (* Completion code *)
   var Reason        : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqInquireString';

 (*********************************************************************)
 (*  mqPad Function -- Pad Null-terminated String with Blanks         *)
 (*********************************************************************)

 procedure mqPad (
   pString           : PChar;    (* Null-terminated string to be padded *)
   BufferLength      : MQLONG;   (* Length of buffer *)
   Buffer            : Pointer;  (* Buffer to contain padded string *)
   var CompCode      : MQLONG;   (* Completion code *)
   var Reason        : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqPad';

 (*********************************************************************)
 (*  mqPutBag Function -- Send Bag as PCF Message                     *)
 (*********************************************************************)

 procedure mqPutBag (
   Hconn             : MQHCONN;  (* Connection handle *)
   Hobj              : MQHOBJ;   (* Queue handle *)
   var MsgDesc       : TMQMD;    (* Message descriptor *)
   var PutMsgOpts    : TMQPMO;   (* Put-message options *)
   Bag               : MQHBAG;   (* Handle of bag containing message data *)
   var CompCode      : MQLONG;   (* Completion code *)
   var Reason        : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqPutBag';

 (*********************************************************************)
 (*  mqSetInteger Function -- Modify Integer in Bag                   *)
 (*********************************************************************)

 procedure mqSetInteger (
   Bag               : MQHBAG;   (* Bag handle *)
   Selector          : MQLONG;   (* Item selector *)
   ItemIndex         : MQLONG;   (* Item index *)
   ItemValue         : MQLONG;   (* Item value *)
   var CompCode      : MQLONG;   (* Completion code *)
   var Reason        : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqSetInteger';

 (*********************************************************************)
 (*  mqSetString Function -- Modify String in Bag                     *)
 (*********************************************************************)

 procedure mqSetString (
   Bag               : MQHBAG;   (* Bag handle *)
   Selector          : MQLONG;   (* Item selector *)
   ItemIndex         : MQLONG;   (* Item index *)
   BufferLength      : MQLONG;   (* Length of buffer *)
   Buffer            : Pointer;  (* Buffer containing item value *)
   var CompCode      : MQLONG;   (* Completion code *)
   var Reason        : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqSetString';

 (*********************************************************************)
 (*  mqTrim Function -- Replace Trailing Blanks with Null Character   *)
 (*********************************************************************)

 procedure mqTrim (
   BufferLength      : MQLONG;   (* Length of buffer *)
   Buffer            : PChar;    (* Buffer containing blank-padded string *)
   pString           : PChar;    (* String with blanks discarded *)
   var CompCode      : MQLONG;   (* Completion code *)
   var Reason        : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqTrim';

 (*********************************************************************)
 (*  mqTruncateBag Function -- Delete Trailing Items in Bag           *)
 (*********************************************************************)

 procedure mqTruncateBag (
   Bag               : MQHBAG;   (* Bag handle *)
   ItemCount         : MQLONG;   (* Number of items to remain in bag *)
   var CompCode      : MQLONG;   (* Completion code *)
   var Reason        : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'mqTruncateBag';

implementation

end.