xmlrpc-call ausführen

dondoedel0815

Hallo!

Ich versuche mit der XMLRPC-Komponente von J.Stärk (http://www.usegroup.de/software/xmlrpc/) einen relativ simplen XMLRPC-Call zu tätigen.

XMLRPCClient1->Host = "192.168.1.1";
        XMLRPCClient1->URL = "/cgi-bin/rpc";
        XMLRPCClient1->MethodName = "preis";

        TFunction *Parameter = new TFunction();

        Parameter->AddParam(????);

        TResult *Result = XMLRPCClient1->Execute(Parameter);
        if (Result->IsError())
        {
                ShowMessage("Error: " + Result->GetErrorString());
        }
        else
        {
                ShowMessage(Result->GetString());
        }

Das Problem ist das AddParam(). Es sollen die Parameter "Wurst" und "0.99" übergeben werden.

Wie muß das aussehen? Aus der Original-Doku werden ich in diesem Punkt überhaupt nicht schlau.

-Drop a TXMLRPCClient on your form, enter the host, the port and the name of the method to 
   call, the name of the server with it's director (in URL, e.g. /test/myserver.php).
   The form has to be a CLX (say: NOT a VCL-) form
  -use yourcomponentname->Execute with a TFunction*-argument that stores the parameters,
   e.g.
       TFunction *myparams=new TFunction();
       myparams->AddParam(6);
       TResult *myresult=XMLRPCClient1->Execute(myparams);
       char buf[80];
       sprintf(buf,"result is: %i", myresult->GetInteger());
       ShowMessage(buf);