cmqzpas.pas

delphi写的IBM mq服务器

 (*  MQZ_GET_EXPLICIT_AUTHORITY -- Get Explicit Authority             *)
 (*********************************************************************)

  procedure MQZ_GET_EXPLICIT_AUTHORITY (
    QMgrName           : PChar;    (* Queue manager name *)
    EntityName         : PChar;    (* Entity name *)
    EntityType         : MQLONG;   (* Entity type *)
    ObjectName         : PChar;    (* Object name *)
    ObjectType         : MQLONG;   (* Object type *)
    var Authority      : MQLONG;   (* Authority of entity *)
    AuthorityMask      : MQLONG;   (* Mask for relevant authorities *)
    var ComponentData  : MQBYTE;   (* Component data *)
    var Continuation   : MQLONG;   (* Continuation indicator set by component *)
    var CompCode       : MQLONG;   (* Completion code *)
    var Reason         : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_GET_EXPLICIT_AUTHORITY';


 (*********************************************************************)
 (*  MQZ_GET_EXPLICIT_AUTHORITY_2 -- Get Explicit Authority Version 2 *)
 (*********************************************************************)

  procedure MQZ_GET_EXPLICIT_AUTHORITY_2 (
    QMgrName           : PChar;    (* Queue manager name *)
    var EntityData     : TMQZED;   (* Entity data *)
    EntityType         : MQLONG;   (* Entity type *)
    ObjectName         : PChar;    (* Object name *)
    ObjectType         : MQLONG;   (* Object type *)
    var Authority      : MQLONG;   (* Authority of entity *)
    AuthorityMask      : MQLONG;   (* Mask for relevant authorities *)
    var ComponentData  : MQBYTE;   (* Component data *)
    var Continuation   : MQLONG;   (* Continuation indicator set by component *)
    var CompCode       : MQLONG;   (* Completion code *)
    var Reason         : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_GET_EXPLICIT_AUTHORITY_2';


 (*********************************************************************)
 (*  MQZ_SET_AUTHORITY -- Set Authority                               *)
 (*********************************************************************)

  procedure MQZ_SET_AUTHORITY (
    QMgrName           : PChar;    (* Queue manager name *)
    EntityName         : PChar;    (* Entity name *)
    EntityType         : MQLONG;   (* Entity type *)
    ObjectName         : PChar;    (* Object name *)
    ObjectType         : MQLONG;   (* Object type *)
    Authority          : MQLONG;   (* Authority of entity *)
    var ComponentData  : MQBYTE;   (* Component data *)
    var Continuation   : MQLONG;   (* Continuation indicator set by component *)
    var CompCode       : MQLONG;   (* Completion code *)
    var Reason         : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_SET_AUTHORITY';


 (*********************************************************************)
 (*  MQZ_SET_AUTHORITY_2 -- Set Authority Version 2                   *)
 (*********************************************************************)

  procedure MQZ_SET_AUTHORITY_2 (
    QMgrName           : PChar;    (* Queue manager name *)
    var EntityData     : TMQZED;   (* Entity data *)
    EntityType         : MQLONG;   (* Entity type *)
    pObjectName        : PChar;    (* Object name *)
    ObjectType         : MQLONG;   (* Object type *)
    Authority          : MQLONG;   (* Authority of entity *)
    var ComponentData  : MQBYTE;   (* Component data *)
    var Continuation   : MQLONG;   (* Continuation indicator set by component *)
    var CompCode       : MQLONG;   (* Completion code *)
    var Reason         : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_SET_AUTHORITY_2';


 (*********************************************************************)
 (*  MQZ_COPY_ALL_AUTHORITY -- Copy All Authority                     *)
 (*********************************************************************)

  procedure MQZ_COPY_ALL_AUTHORITY (
    QMgrName           : PChar;    (* Queue manager name *)
    RefObjectName      : PChar;    (* Reference object name *)
    ObjectName         : PChar;    (* Object name *)
    ObjectType         : MQLONG;   (* Object type *)
    var ComponentData  : MQBYTE;   (* Component data *)
    var Continuation   : MQLONG;   (* Continuation indicator set by component *)
    var CompCode       : MQLONG;   (* Completion code *)
    var Reason         : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_COPY_ALL_AUTHORITY';


 (*********************************************************************)
 (*  MQZ_CHECK_AUTHORITY -- Check Authority                           *)
 (*********************************************************************)

  procedure MQZ_CHECK_AUTHORITY (
    QMgrName           : PChar;    (* Queue manager name *)
    EntityName         : PChar;    (* Entity name *)
    EntityType         : MQLONG;   (* Entity type *)
    ObjectName         : PChar;    (* Object name *)
    ObjectType         : MQLONG;   (* Object type *)
    Authority          : MQLONG;   (* Authority to be checked *)
    var ComponentData  : MQBYTE;   (* Component data *)
    var Continuation   : MQLONG;   (* Continuation indicator set by component *)
    var CompCode       : MQLONG;   (* Completion code *)
    var Reason         : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_CHECK_AUTHORITY';


 (*********************************************************************)
 (*  MQZ_CHECK_AUTHORITY_2 -- Check Authority Version 2               *)
 (*********************************************************************)

  procedure MQZ_CHECK_AUTHORITY_2 (
    QMgrName           : PChar;    (* Queue manager name *)
    var EntityData     : TMQZED;   (* Entity data *)
    EntityType         : MQLONG;   (* Entity type *)
    ObjectName         : PChar;    (* Object name *)
    ObjectType         : MQLONG;   (* Object type *)
    Authority          : MQLONG;   (* Authority to be checked *)
    var ComponentData  : MQBYTE;   (* Component data *)
    var Continuation   : MQLONG;   (* Continuation indicator set by component *)
    var CompCode       : MQLONG;   (* Completion code *)
    var Reason         : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_CHECK_AUTHORITY_2';


 (*********************************************************************)
 (*  MQZ_REFRESH_CACHE -- Refresh Cache                               *)
 (*********************************************************************)

  procedure MQZ_REFRESH_CACHE (
    QMgrName           : PChar;    (* Queue manager name *)
    var ComponentData  : MQBYTE;   (* Component data *)
    var Continuation   : MQLONG;   (* Continuation indicator set by component *)
    var CompCode       : MQLONG;   (* Completion code *)
    var Reason         : MQLONG);  (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_REFRESH_CACHE';


 (*********************************************************************)
 (*  Function datatypes for Name services                             *)
 (*********************************************************************)

 (*********************************************************************)
 (*  MQZ_INIT_NAME -- Initialize Name-Services                        *)
 (*********************************************************************)

  procedure MQZ_INIT_NAME (
    Hconfig            : MQHCONFIG; (* Configuration handle *)
    Options            : MQLONG;    (* Initialization options *)
    QMgrName           : PChar;     (* Queue manager name *)
    ComponentDataLength: MQLONG;    (* Length of component data *)
    var ComponentData  : MQBYTE;    (* Component data *)
    var Continuation   : MQLONG;    (* Continuation indicator set by component *)
    var CompCode       : MQLONG;    (* Completion code *)
    var Reason         : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_INIT_NAME';


 (*********************************************************************)
 (*  MQZ_TERM_NAME -- Terminate Name-Services                         *)
 (*********************************************************************)

  procedure MQZ_TERM_NAME (
    Hconfig            : MQHCONFIG; (* Configuration handle *)
    Options            : MQLONG;    (* Termination options *)
    var ComponentData  : MQBYTE;    (* Component data *)
    var Continuation   : MQLONG;    (* Continuation indicator set by component *)
    var CompCode       : MQLONG;    (* Completion code *)
    var Reason         : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_TERM_NAME';


 (*********************************************************************)
 (*  MQZ_LOOKUP_NAME -- Look-Up Name                                  *)
 (*********************************************************************)

  procedure MQZ_LOOKUP_NAME (
    QMgrName           : PChar;     (* Queue manager name *)
    QName              : PChar;     (* Queue name *)
    ResolvedQMgrName   : PChar;     (* Resolved queue manager name *)
    var ComponentData  : MQBYTE;    (* Component data *)
    var Continuation   : MQLONG;    (* Continuation indicator set by component *)
    var CompCode       : MQLONG;    (* Completion code *)
    var Reason         : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_LOOKUP_NAME';


 (*********************************************************************)
 (*  MQZ_INSERT_NAME -- Insert Name                                   *)
 (*********************************************************************)

  procedure MQZ_INSERT_NAME (
    QMgrName           : PChar;     (* Queue manager name *)
    QName              : PChar;     (* Queue name *)
    ResolvedQMgrName   : PChar;     (* Resolved queue manager name *)
    var ComponentData  : MQBYTE;    (* Component data *)
    var Continuation   : MQLONG;    (* Continuation indicator set by component *)
    var CompCode       : MQLONG;    (* Completion code *)
    var Reason         : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_INSERT_NAME';


 (*********************************************************************)
 (*  MQZ_DELETE_NAME -- Delete Name                                   *)
 (*********************************************************************)

 procedure MQZ_DELETE_NAME (
    QMgrName           : PChar;     (* Queue manager name *)
    QName              : PChar;     (* Queue name *)
    var ComponentData  : MQBYTE;    (* Component data *)
    var Continuation   : MQLONG;    (* Continuation indicator set by component *)
    var CompCode       : MQLONG;    (* Completion code *)
    var Reason         : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_DELETE_NAME';


 (*********************************************************************)
 (*  Function datatypes for Userid services                           *)
 (*********************************************************************)

 (*********************************************************************)
 (*  MQZ_INIT_USERID -- Initialize Userid-Services                    *)
 (*********************************************************************)

  procedure MQZ_INIT_USERID (
    Hconfig            : MQHCONFIG; (* Configuration handle *)
    Options            : MQLONG;    (* Initialization options *)
    QMgrName           : PChar;     (* Queue manager name *)
    ComponentDataLength: MQLONG;    (* Length of component data *)
    var ComponentData  : MQBYTE;    (* Component data *)
    var Continuation   : MQLONG;    (* Continuation indicator set by component *)
    var CompCode       : MQLONG;    (* Completion code *)
    var Reason         : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_INIT_USERID';


 (*********************************************************************)
 (*  MQZ_TERM_USERID -- Terminate Userid-Services                     *)
 (*********************************************************************)

  procedure MQZ_TERM_USERID (
    Hconfig            : MQHCONFIG;  (* Configuration handle *)
    Options            : MQLONG;    (* Termination options *)
    QMgrName           : PChar;     (* Queue manager name *)
    var ComponentData  : MQBYTE;    (* Component data *)
    var CompCode       : MQLONG;    (* Completion code *)
    var Reason         : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_TERM_USERID';


 (*********************************************************************)
 (*  MQZ_FIND_USERID -- Find Userid                                   *)
 (*********************************************************************)

  procedure MQZ_FIND_USERID (
    QMgrName           : PChar;     (* Queue manager name *)
    Userid             : PChar;     (* User identifier *)
    Password           : PChar;     (* Password *)
    var ComponentData  : MQBYTE;    (* Component data *)
    var Continuation   : MQLONG;    (* Continuation indicator set by component *)
    var CompCode       : MQLONG;    (* Completion code *)
    var Reason         : MQLONG);   (* Reason code qualifying CompCode *)
  cdecl;
  external 'mqm.dll' name 'MQZ_FIND_USERID';

procedure SetMQZED_DEFAULT(var struct: TMQZED);

implementation

procedure SetMQZED_DEFAULT(var struct: TMQZED);
begin
  FillChar(struct, SizeOf(struct), 0);
  with struct do begin
    StrucId := MQZED_STRUC_ID;
    Version := MQZED_VERSION_1;
    EntityNamePtr := nil;
    EntityDomainPtr := nil;
//    SecurityId := MQSID_NONE_ARRAY;
  end;
end;

end.