idHTTP: Post Response ausgeben

[freq.9]

Okay es scheint doch nicht so einfach zu sein. Also hier mal nen Debugging von meinem PHP-Client:

Code:

Verbindung oeffnen: localhost, port: 80, uri: /php5/xmlrpc/xmlrpc_server.php
HTTP Request senden:
POST /php5/xmlrpc/xmlrpc_server.php HTTP/1.1
User-Agent: Blogging API 0.1-alpha (PHP5)
Host: localhost:80
Content-Type: text/xml
Content-Length: 172
Connection: close

<?xml version="1.0" encoding="iso-8859-1"?>
<methodCall>
<methodName>Foo</methodName>
<params>
 <param>
  <value>
   <string/>
  </value>
 </param>
</params>
</methodCall>

Warte auf Antwort...
Header - HTTP/1.1 200 OK
Header - Date: Sun, 05 Jun 2005 11:57:50 GMT
Header - Server: Apache/2.0.53 (Win32)
Header - X-Powered-By: PHP/5.0.4
Header - Connection: close
Header - Transfer-Encoding: chunked
Header - Content-Type: text/xml
Header - 

Antwort erhalten:
9d
<?xml version="1.0" encoding="utf-8"?>
<methodResponse>
<params>
 <param>
  <value>
   <boolean>1</boolean>
  </value>
 </param>
</params>
</methodResponse>

0

Ich will nun folgendes an den Server senden:

Code:

<?xml version="1.0" encoding="iso-8859-1"?>
<methodCall>
<methodName>Foo</methodName>
<params>
 <param>
  <value>
   <string/>
  </value>
 </param>
</params>
</methodCall>

und dieses in ein RichEdit schreiben:

Code:

<?xml version="1.0" encoding="utf-8"?>
<methodResponse>
<params>
 <param>
  <value>
   <boolean>1</boolean>
  </value>
 </param>
</params>
</methodResponse>

So sieht der in PHP geschriebene Server aus:

Code:

<?php

   error_reporting(E_ALL | E_STRICT);
   ini_set('display_errors', TRUE);
   ini_set('track_errors', TRUE);

   function Foo ($method_name, $params, $app_data)
   {
      return TRUE;
   }

   function Bar ($method_name, $params, $app_data)
   {
      return FALSE;
   }

   // Hier werden alle Funktionen eingetragen, welche ueber XML-RPC aufrufbar
   // sein sollen. Wird kein zweiter Wert (Value) angegeben oder ist dieser
   // NULL, so wird die Funktion mit dem selben Methodennamen registriert.
   $defined_functions = array(
      'Foo'      => NULL,
      'Bar'      => NULL
   );

   // XML-RPC Server erstellen
   if(($server = xmlrpc_server_create()) !== FALSE)
   {
      // Funktion registrieren
      foreach($defined_functions as $method => $func)
      {
         $func = empty($func) ? $method : $func;

         if(xmlrpc_server_register_method($server, $method, $func) === FALSE)
            die('Error: method could not be registered');
      }

      $output = xmlrpc_server_call_method(
         $server,
         $HTTP_RAW_POST_DATA,
         '',
         array(
            'output_type'   => 'xml',
            'encoding'      => 'utf-8'
         )
      );

      header('Content-Type: text/xml');
      echo $output;

      if(xmlrpc_server_destroy($server) === FALSE)
         die('Error: could not destroy xml-rpc server');
   }
   else die('Error: could not create xml-rpc server');

?>

Wie man da sehen kann wird da nirgends eine Variable abgefragt oder so, also bringt mir ein "daten=<xml-zeugs>" nicht wirklich viel. Der PHP-Client macht dies über den Socket (fsockopen) und schreibt das ganze dann rüber. Wie kann ich das ganze denn dann in Delphi verwirklichen? Ich hoffe mal, dass es wen gibt der das nun versteht. :!