
LINK: http://tldp.org/HOWTO/XML-RPC-HOWTO/xmlrpc-howto-php.html


Diese beiden Ereignisse liefern *kein* Ergebnis:
------------------------------------------------

Public Sub hXMLRPCClient_Reply(vData As Variant)
    Print "Reply "; vData
End

Public Sub hXMLRPCClient_BadReply(sData As String)
    Print "BadReply "; sData
End


..............

Private Sub GetSignatures()  

  Dim aResult As New RpcArray
  Dim vElement As Variant
  Dim sMessage As String
  Dim iIndex As Integer

  aArguments = New Variant[]
  hXMLRPCFunction = New RpcFunction("system.methodSignature", [XmlRpc.xString, XmlRpc.xArray)
  hXMLRPCClient = New RpcClient(hXMLRPCFunction) As "hXMLRPCClient"
  hXMLRPCClient.URL = "http://" & sRPCURL
  
  aArguments.Add("add2integer")
  
  Try aResult = hXMLRPCClient.Call(aArguments)
  Print aResult.Count
  If Not Error Then 
     Message.Title = ("List of signatures")
     For iIndex = 0 To aResult.Count - 1
       sMessage &= aResult[iIndex] & gb.NewLine
       Print aResult[iIndex]
       Inc iIndex
     Next
     Message.Info(sMessage)
  Else
     Message.Error(("Error-Text: ") & Error.Text)
  Endif
  
End


