HTTP Post Wawision

[fabi17]

Guten Abend,

ich würde gerne auf die Schnittstelle einer Warenwirtschaft (Wawision) zugreifen.

Die Schnittstellenbeschreibung ist hier:
https://www.wawision.de/helpdesk/api

und hier der Auszug aus der API Beschreibung um einen Auftrag anzulegen:

Code:

<?php
$hash = generateHash();

$xml = "<kundennummer>23243</kundennummer>";

$output_xml = SendRequest("AuftragCreate",$xml,$hash); 
 
function generateHash()
{
 
    $initKey = 'neijfj38734hujfie';
    $remoteDomain = 'http://192.168.0.28';
    $date = gmdate('dmY');
    $hash = "";
 
    for($i = 0; $i <= 200; $i++) 
        $hash = sha1($hash . $initKey . $remoteDomain . $date);
 
    return $hash;
}
 
function SendRequest($methodname,$xml,$hash)
{
 
    $url = 'http://192.168.0.28/wawision/16.3/www/index.php?module=api&action='.$methodname.'&hash='.$hash;
 
    $xml = '<?xml version="1.0" encoding="UTF-8"?>
            <request>
                <status>
                    <function>'.$methodname.'</function>
                </status>
                <xml>'.$xml.'</xml>
            </request>';
 
    $data = array('xml' => $xml, 'md5sum' => md5($xml));
 
    // use key 'http' even if you send the request to https://...
    $options = array(
                   'http' => array(
                   'header'  => "Content-type: application/x-www-form-urlencoded\r\n",
                   'method'  => 'POST',
                   'content' => http_build_query($data),
                   ),
               );
 
    $context  = stream_context_create($options);
    $result = file_get_contents($url, false, $context);
    return $result;
}
 
$obj = simplexml_load_string($output_xml);
echo "<pre>";
print_r($obj);
echo "</pre>";
 
?>

Mein Code ist wie folgt:

Delphi-Quellcode:

XML := TStringlist.Create();
  XML.Add(Memo2.Text);
  Methodname := 'AuftragCreate';
  hash := 'xxxxxx';
  http := TIdHTTP.Create(nil);

  http.HandleRedirects := true;

  http.ReadTimeout := 500000;

  http.Request.Accept := 'http';

  http.Request.ContentType := 'application/x-www-form-urlencoded\r\n';

  Memo1.Text := http.Post('http://www.wawision.biz/kis/RwN9rBC4B9PQDMtV5geAXcrxB9yKdE/www/index.php?module=api&action='+Methodname+'&hash='+hash+'', XML)

In das Memo2 habe ich jetzt testweise alle möglichen xml varianten eingetippt, um die kundennummer hinzuzfügen <kundennummer>10000</kundennummer>

Leider wird hier immer nur ein Auftrag ohne der Kundennummer angelegt.
Bin wirklich ratlos und hoffe, jemand kann helfen.

Lg