ServiceBroker Aufruf aus Visual Basic

Nachfolgend ein einfaches Beispiel wie der Service Broker aus Visual Basic über http aufgerufen werden kann. Die Parameter sind z.B.

  • pUrl: http://integrating-architecture.de/ServiceBroker
  • pMsg: service=isa.TestService:run[version=1.0.*] data=Dies ist ein Teststring mit Üü’s und Ää’s
Public Function invokeService(pUrl As String, pMsg As String) As String
On Error GoTo ErrorHandling
Dim connection As Object
Dim state As Integer

    Set connection = CreateObject("Microsoft.XMLHTTP")
    connection.Open "POST", pUrl, False
    connection.setRequestHeader "Accept", "text/xml; charset=utf-8"
    connection.setRequestHeader "isa.webrequest.type", "external"
    connection.setRequestHeader "isa.webrequest.charset", "utf-8"
    connection.Send CStr(pMsg)
    state = connection.readyState

    invokeService = connection.responseText

    Exit Function
ErrorHandling:
    MsgBox Err.Description
End Function