MQSeries.net :: View topic - Programming Websphere MQ using ActiveX (mqax200.dll)

mani_sai · Posted: Wed Oct 11, 2006 6:24 am Post subject:

Hello Experts,

I am programing using Websphere MQ ActiveX VB control (mqax200.dll).

I was succesfull in posting message to local queue.

I want to know to how to program by passing message from my localmachine to remote queue.

Remote Queue Details:

IPAddress: 164.156.54.56
Channel Name:S_Channel99
Port:1417
QueueManager Name: QM_Welcome99
QueueName: Q_Welcome99

Here is my VB code:

Can some one give me suggestions to modify my below code:

------------------------------------------------

Option Explicit

Private Sub cmdSendMessage_Click()

Dim MQSess As MQSession '* session object
Dim QMgr As MQQueueManager '* queue manager object
Dim Queue As MQQueue '* queue object
Dim PutMsg As MQMessage '* message object for put
Dim PutOptions As MQPutMessageOptions '* get message option
Dim PutMsgStr As String '* put message data string

Const FilePath = "C:/IESFileDataConversionXML/SendOutputFile/INTF_0439B.xml"

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

On Error GoTo HandleError

Set MQSess = New MQSession
Set QMgr = MQSess.AccessQueueManager("QM_infotechd99")
Set Queue = QMgr.AccessQueue("PCManiQueue", MQOO_OUTPUT Or MQOO_SET_IDENTITY_CONTEXT Or MQOO_INPUT_AS_Q_DEF)

Set PutMsg = MQSess.AccessMessage()

Dim FSO, TextStream
Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(FilePath) Then

Set TextStream = FSO.OpenTextFile(FilePath, ForReading, False, _
TristateUseDefault)
' Read file in one hit

PutMsgStr = TextStream.ReadAll
TextStream.Close
Set TextStream = Nothing

End If

Set FSO = Nothing

PutMsg.MessageData = PutMsgStr

PutMsg.ApplicationIdData = "INTF_0439B"

Set PutOptions = MQSess.AccessPutMessageOptions()

PutOptions.Options = PutOptions.Options Or MQPMO_NO_SYNCPOINT Or MQPMO_SET_IDENTITY_CONTEXT

Queue.Put PutMsg, PutOptions

HandleError:
Dim ErrMsg As String
Dim StrPos As Integer

Cls
BackColor = RGB(255, 0, 0) '* set to red for error
Print "An error occurred as follows:"
Print ""
If MQSess.CompletionCode <> MQCC_OK Then
ErrMsg = Err.Description
StrPos = InStr(ErrMsg, " ") ' * search for first blank
If StrPos > 0 Then
Print Left(ErrMsg, StrPos) '* print offending MQAX object name
Else
Print Error(Err) '* print complete error object
End If
Print ""
Print "WebSphere MQ Completion Code = " & MQSess.CompletionCode
Print "WebSphere MQ Reason Code = " & MQSess.ReasonCode
Print "(" & MQSess.ReasonName & ")"
Else
Print "Visual Basic error: " & Err
Print Error(Err)
End If

Exit Sub

End Sub

------------------------------------------------------

Thanks