真心求教：PB操作MQ的问题！

[qlyscf]

在下现有一个业务需求，需要用PB9开发一个操作MQ的客户端程序。
由于刚刚接触MQ,仅知道这些MQ函数是在MQIC32.DLL动态库中。

虽然也在网上找了一些PB声明的资料，可是放在PB环境中以后，保存没有问题。
但是一旦运行，就会报运行时错误。连MQCONN都没有通过。

本人认为，解决问题的关键还是在于PB如何正确声明这些函数上面。
在此，恳请路过的高位高人大侠，伸出您高贵的援助之手，偶在此深表谢意！

[qlyscf]

下面是本人网上找到的一些声明资料。

subroutine MQCONN(string QMgrName, ref long Hconn,ref long CompCode,ref long Reason ) Library "mqic32.DLL" Alias FOR "MQCONNstd@16"
////subroutine MQOPEN(Long Hconn, ref MQOD ObjDesc , Long Options, ref long Hobj,Ref Long CompCode,ref Long Reason ) Library "MQIC32.DLL" Alias FOR "MQOPENstd@24"
//
//subroutine MQPUTX(Long Hconn,Long Hobj, MQMD MsgDesc, MQPMO PutMsgOpts, Long BufferLength , String Buffer ,Ref Long CompCode,Ref Long Reason) Library "MQIC32.DLL" Alias for "MQPUTstd@32"
//
//Subroutine MQOPEN (long Hconn, REF MQOD ObjDesc, long Options, REF long Hobj, REF long CompCode, REF long Reason) Library "MQIC32.DLL" alias for "MQOPENstd@24"

Subroutine MQBACK ( Long Hconn, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" alias for "MQBACKstd@12"
Subroutine MQBEGIN ( Long Hconn, REF MQBO BeginOptions, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" alias For "MQBEGINstd@16"
Subroutine MQCLOSE ( Long Hconn, REF Long Hobj, Long Options, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" alias For "MQCLOSEstd@20"
Subroutine MQCMIT ( Long Hconn, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" alias for "MQCMITstd@12"
//Subroutine MQCONN ( String QMgrName, REF Long Hconn, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" alias for "MQCONNstd@16"
Subroutine MQCONNX ( String QMgrName, REF MQCNO ConnectOpts, REF Long Hconn, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" alias for "MQCONNXstd@20"
Subroutine MQDISC ( REF Long Hconn, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" alias for "MQDISCstd@12"
Subroutine MQOPEN (long Hconn, REF MQOD ObjDesc, long Options, REF long Hobj, REF long CompCode, REF long Reason) Library "MQIC32.DLL" alias for "MQOPENstd@24"
Subroutine MQCONNXAny (string QMgrName, REF Any ConnectOpts, REF long Hconn, REF Long CompCode,REF long Reason) Library "MQIC32.DLL" alias for "MQCONNXstd@20"
Subroutine MQGETAny ( Long Hconn, Long Hobj, REF MQMD MsgDesc, REF MQGMO GetMsgOpts, Long BufferLength, REF Any Buffer, REF Long DataLength, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" Alias For "MQGETstd@36"
Subroutine MQPUTAny ( Long Hconn, Long Hobj, REF MQMD MsgDesc, REF MQPMO PutMsgOpts, Long BufferLength, REF Any Buffer, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" Alias For "MQPUTstd@32"
Subroutine MQPUT1Any ( Long Hconn, REF MQOD ObjDesc, REF MQMD MsgDesc, REF MQPMO PutMsgOpts, Long BufferLength, REF Any Buffer, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" Alias For "MQPUT1std@32"
Subroutine MQINQX ( Long Hconn, Long Hobj, Long SelectorCount, REF Long Selectors, Long intAttrCount, REF Long intAttrs, Long CharAttrLength, String CharAttrs, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" Alias For "MQINQstd@40"
Subroutine MQGETX ( Long Hconn, Long Hobj, REF MQMD MsgDesc, REF MQGMO GetMsgOpts, Long BufferLength, REF String Buffer, REF Long DataLength, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" Alias For "MQGETstd@36"
Subroutine MQPUTX ( Long Hconn, Long Hobj, REF MQMD MsgDesc, REF MQPMO PutMsgOpts, Long BufferLength, String Buffer, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" Alias For "MQPUTstd@32"
Subroutine MQPUT1X ( Long Hconn, REF MQOD ObjDesc, REF MQMD MsgDesc, REF MQPMO PutMsgOpts, Long BufferLength, String Buffer, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" Alias For "MQPUTstd@32"
Subroutine MQSETX ( Long Hconn, Long Hobj, Long SelectorCount, REF Long Selectors, Long intAttrCount, REF Long intAttrs, Long CharAttrLength, String CharAttrs, REF Long CompCode, REF Long Reason ) Library "MQIC32.DLL" Alias For "MQSETstd@40"

[xinghaigongyuan]

haohaoho