VB 3.0 y Oracle ESB??
0
Después de un par de meses de no poder actualizar el blog, tengo aquí una nueva entrada en donde pueden encontrar cómo invocar un ESB de Oracle desde VB 3.0.
Por qué habría la necesidad de realizar tal cosa?? Bien, hay clientes que tienen ese tipo de tecnología muy vieja y necesitan integrarse a través de un Bus de mensajería como el de Oracle.
Aquí pongo el código que tendría que ir en un botón de VB:
Sub selectDepartment()
Rem SelectResult.Hide
Rem SelectResult.ListBox1.Clear
Dim Serializer As SoapSerializer
Dim Reader As SoapReader
Dim Connector As SoapConnector
Set Connector = New HttpConnector Connector.Property("EndPointURL") = "http://localhost:1234/event/Samples/SRE/SRE_RS"
Connector.Connect
Connector.Property("SoapAction") = "ejecutaSRE"
Connector.BeginMessage
Set Serializer = New SoapSerializer
Serializer.Init Connector.InputStream
Serializer.startEnvelope
Serializer.SoapAttribute "xmlns:soapenv", , "http://schemas.xmlsoap.org/soap/envelope/"
Serializer.SoapAttribute "xmlns:exam", , "http://www.example.org"
Serializer.startBody
Serializer.startElement "DATOS_CIUDADANO", "http://www.example.org" Serializer.startElement "exam:Nombre"
Serializer.writeString Start.nombre.Text
Serializer.endElement
Serializer.startElement "exam:Apellido"
Serializer.writeString Start.apellido.Text
Serializer.endElement
Serializer.endElement
Serializer.endBody
Serializer.endEnvelope
Connector.EndMessage
Set Reader = New SoapReader
Reader.Load Connector.OutputStream
SelectResult.ListBox1.Clear
Rem Set DeptList = Reader.DOM.getElementsByTagName("TestVBProcessResponse")
Set Respuesta = Reader.DOM.getElementsByTagName("out1:DATOS_CIUDADANO")
For i = 0 To Reader.DOM.getElementsByTagName("out1:DATOS_CIUDADANO").Length - 1
Start.curp.Text = Respuesta.Item(i).selectSingleNode("out1:Apellido").Text
Next i Rem SelectResult.Show
End Sub
Sólo es necesario instalar scripten.exe y SoapToolkit20.exe que pueden descargar de microsoft.com.
En el siguiente post se presentará cómo hacer lo mismo, pero desde Power Builder 6.0 (Sybase),
saludos
