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