MQSeries.net :: View topic

ASheriff · Posted: Tue Feb 05, 2002 9:05 am Post subject:

Hi,
We are accessing MQ from a ASP page by calling a ATL COM component (coded in C++). This same component is used from VB and VC clients and we have no problems. But the access from ASP takes a time delay of 70 seconds between every subsequent MQ Calls, this happens even for a simple Queue Manager Connection. We are not having many open connections to MQ. Given below is the snippet of the COM Component and ASP Page accessing it -

COM Component :
---------------

STDMETHODIMP CMqTest::Display(BSTR *result)
{
ImqQueueManager DestQMgr;
ImqQueue qDes;
ImqMessage msg;
ImqPutMessageOptions pmo;
ImqChannel *pChannel2=0;
pChannel2=new ImqChannel;
char *retMsg=NULL;
char *cErrMsg;
int lReasoncode;
char *buffer=NULL;
pChannel2->setConnectionName("172.27.140.131(1430)");
pChannel2->setTransportType(MQXPT_TCP);
pChannel2->setChannelName("SYSTEM.DEF.SVRCONN");
DestQMgr.setChannelReference(pChannel2);
DestQMgr.setName("TEST");
if(!DestQMgr.connect())
{
cErrMsg = "ImqQueueManager::Connect failed with reason code";
lReasoncode = DestQMgr.reasonCode( );
if(pChannel2)
delete pChannel2;
CComBSTR var1("NULL");
*result=var1.Detach();
return S_FALSE;
}
qDes.setConnectionReference(DestQMgr);
qDes.setName("TQUEUE");
qDes.setOpenOptions(MQOO_OUTPUT);
qDes.open();
if(qDes.reasonCode())
{
cErrMsg = "ImqQueue::qServer::open ended with reason code";
lReasoncode = qDes.reasonCode( );
if (!DestQMgr.disconnect())
{
cErrMsg = "ImqQueueManager::disconnect ended with reason code";
lReasoncode =DestQMgr.reasonCode( );
}
if(pChannel2)
delete pChannel2;
CComBSTR var1("NULL");
*result =var1.Detach();
return S_FALSE;
}
msg.useFullBuffer(buffer, strlen(buffer));
long buflen=strlen(buffer);
msg.setMessageId();
msg.setCorrelationId();
msg.setFormat(MQFMT_STRING);
msg.setMessageLength(buflen);
if (!qDes.put(msg, pmo))
{
cErrMsg = "ImqQueue::put ended with reason code";
lReasoncode = qDes.reasonCode( );
retMsg ="NULL";
}
else
{
retMsg ="OK";
CComBSTR var1(retMsg);
*result =var1.Detach();
}
return S_OK;
}

ASP Program :
-------------

%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim obj
Dim retVal
Dim Content ' for sending to Queue
Set obj=server.CreateObject("MQCOMTEST.MqTest")
Response.Write "After CreateObject!! <br>"

retVal=obj.Display()
Response.Write "Return Value from :"& retVal
response.write ("test")
response.end
Set obj=Nothing

Any help on this will be appreciated.

Cheers
Aejaz