activemq-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Javier Enrique Castañeda <javier.castan...@softtools.co>
Subject Re: No IConnectionFactory implementation found for connection URI: activemq:tcp://192.168.1.13:61616
Date Mon, 08 Apr 2013 22:57:43 GMT
Hi, I hope you are having a good afternoon

 

 

I write asking for help

I have the same problem

 

I’ve tried severals DLL’s but I got the same error

 

My application keeps throwing



 

I try pasting the “nmsprovider-activemq.config” everywhere but the problem
persist

As you can see

 

I’d really appreciate your help 

 

 

This is the code is just to test the connection

Imports System.Xml

Imports System.Data

 

Imports System

Imports Apache.NMS

Imports Apache

Imports Apache.NMS.Util

Imports System.Reflection

 

Public Class clsConfirmador

    Dim objGeneral As clsGeneral

    Dim strSQL As String

    Dim strMensajeError As String

 

    Const ID_RESPUESTA_COLA As Short = 0

    Const OK_RESPUESTA_COLA As Short = 1

    Const MENSAJE_RESPUESTA_COLA As Short = 2

    Const REGISTRO_CON_ERROR_COLA As Short = 3

 

 

 

    Sub New()

 

        Me.objGeneral = New clsGeneral

    End Sub

 

    Public Function Consultar_Pagos_Sap(ByVal FechaIncio As Date, ByVal
FechaFinal As Date, ByRef MensajeError As String) As Boolean

        Try

            Dim objServicioSap As New wsConsultaSAP.WSTechnoCargoClient

            Dim arrPagos As wsConsultaSAP.payment()

            Dim dsPagosReportados As DataSet

            Dim strError As String = ""

 

            strSQL = "SELECT DISTINCT NumeroIdentificacionTercero FROM
V_Encabezado_Documento_Comprobantes"

            strSQL += " WHERE EMPR_Codigo = " & Me.objGeneral.CodigoEmpresa
& vbNewLine

            strSQL += " AND Fecha_Crea >= CONVERT(DateTime, '" &
Me.objGeneral.Formatear_Fecha_SQL(FechaIncio) & "',101)" & vbNewLine

            strSQL += " AND Fecha_Crea <= CONVERT(DateTime, '" &
Me.objGeneral.Formatear_Fecha_SQL(FechaFinal) & "',101)" & vbNewLine

            strSQL += " AND Interfaz_ERP = " & clsPagos.REGISTRO_GENERADO

 

            dsPagosReportados = Me.objGeneral.Retorna_Dataset(strSQL,
strError)

 

            For Each Registro As DataRow In dsPagosReportados.Tables(0).Rows

                arrPagos =
objServicioSap.getAppliedPayments(Formatear_Fecha_SAP(FechaIncio),
Formatear_Fecha_SAP(FechaFinal),
Registro.Item("NumeroIdentificacionTercero"))

            Next

 

            Return True

        Catch ex As Exception

            Return False

        End Try

    End Function

 

    Private Function Formatear_Fecha_SAP(ByVal Fecha As Date) As String

        Dim strFecha As String = ""

        Try

            strFecha = Fecha.Year & "-" & Format(Fecha.Month, "#0") & "-" &
Format(Fecha.Day, "#0")

        Catch ex As Exception

            MsgBox("Error" & ex.Message)

        End Try

        Return strFecha

    End Function

 

    Public Function Verificar_Reportes_ActiveMQ() As Boolean

        Try

 

            Dim pathList As ArrayList = New ArrayList()

            Dim currentDomain As AppDomain = AppDomain.CurrentDomain

            Dim codeBase As String =
Assembly.GetExecutingAssembly().CodeBase

            Dim uriBuilder As New UriBuilder(codeBase)

            Dim assemblyPath As String =
Uri.UnescapeDataString(uriBuilder.Path)

 

            pathList.Add(assemblyPath)

            If Not IsNothing(currentDomain.BaseDirectory) Then

                pathList.Add(currentDomain.BaseDirectory)

            End If

 

            If Not IsNothing(currentDomain.RelativeSearchPath) Then

                pathList.Add(currentDomain.RelativeSearchPath)

            End If

 

 

 

            Dim conConexion As Uri

            Dim cofConnector As IConnectionFactory

            conConexion = New Uri("activemq:tcp://" &
Me.objGeneral.DireccionMQ & ":" & Me.objGeneral.PuertoMQ)

            'conConexion = New Uri(Me.objGeneral.DireccionMQ & ":" &
Me.objGeneral.PuertoMQ)

            cofConnector = New NMSConnectionFactory(conConexion)

 

            Using objConexion As IConnection =
cofConnector.CreateConnection(Me.objGeneral.UsuarioMQ,
Me.objGeneral.ClaveMQ)

                Using objSesion As ISession = objConexion.CreateSession()

 

                    Dim objDestino As IDestination =
SessionUtil.GetDestination(objSesion,
"queue://RESPONSE_TECHNOCARGO_SAP_SOFTTOOLS.BAR")

 

                    Using objConsumidor As IMessageConsumer =
objSesion.CreateConsumer(objDestino)

                        Using objProductor As IMessageProducer =
objSesion.CreateProducer

                            objConexion.Start()

 

                            Dim objSolicitud As ITextMessage =
objSesion.CreateTextMessage("Prueba SoftTools")

                            objSolicitud.Properties("NMSXGroupID") =
"Javier"

                            objSolicitud.Properties("myHeader") =
"Castañeda"

 

                            objProductor.Send(objSolicitud)

 

                            Dim objMensajeRespuesta As ITextMessage =
objConsumidor.Receive

 

                            If Not IsNothing(objMensajeRespuesta) Then

                                MsgBox("Mensaje Recibido = " &
objMensajeRespuesta.Text)

                            End If

 

                        End Using

                    End Using

                End Using

            End Using

 

            Return True

        Catch ex As Exception

            MsgBox("Error" & ex.Message)

            Return False

        End Try

    End Function

End Class

 

 

Cordial Saludo, 

Javier Enrique Castañeda Gómez
Gerente de Proyectos
SoftTOOLS SAS.
TEL (571) 702 06 35 Ext: 114
Cl 93 B 18 – 12 Of 307
 <mailto:Javier.Castaneda@softtools.co> Javier.Castaneda@softtools.co

 

 <http://www.softtools.com.co/> Description: Description: Description:
cid:image001.jpg@01C98C70.50C9D480

Este correo y sus archivos anexos son confidenciales, para uso exclusivo de
la persona o entidad de destino. 
Si ha recibido este correo por error u omisión absténgase de utilizar,
copiar, imprimir o reenviar el contenido. En tal caso, por favor notifique
inmediatamente al remitente. 
El contenido de este mensaje es de carácter informativo y no constituye
documento legal. 

 


Mime
  • Unnamed multipart/related (inline, None, 0 bytes)
View raw message