Hallo geskill und an alle die mitgepostet haben
Deine Informationen haben das Problem gelöst.
das: request_data := TStringStream.Create('CP_UTF8');
bzw. die übergabe im stream statt als stringlist
denke ich hat das Problem gelöst.
ich poste hier noch mal den funktionieren Code, so das anderen die eventuell
mal dasselbe Problem haben auch geholfen ist.
Delphi-Quellcode:
request := TStringlist.Create;
request_data := TStringStream.Create('
CP_UTF8');
response := TStringStream.Create('
');
request.Add('
<?xml version="1.0" encoding="utf-8"?>');
request.Add('
<request>');
request.Add('
<auth>');
request.Add('
<user>xxxxxx</user>');
request.Add('
<password>xxxxxxx</password>');
request.Add('
<context>12571</context>');
request.Add('
</auth>');
request.Add('
<task>');
request.Add('
<code>0105</code>');
request.Add('
<domain>');
request.Add('
<name>xxxxxx.de</name>');
request.Add('
</domain>');
request.Add('
<key>payable</key>');
request.Add('
<show_contact_details>ownerc</show_contact_details>');
request.Add('
</task>');
request.Add('
</request>');
request_data.WriteString(request.Text);
IDHttp1.Request.ContentType := '
application/atom+xml';
IDHttp1.ReadTimeout := 5000;
IDHttp1.Post('
https://xxxx.xxxx.com', request_data, response);
response.Position := 0;
Memo1.Lines.LoadFromStream(response);
Memo2.Lines.AddStrings(request);
Besten Dank, jetzt kann ich mich um die Rückgabe kümmern...
( da muss z.b. ein einzelner Rückgabe wert in die
DB geschrieben werden. )