Back to Collection Items
var
http: TChilkatHttp;
success: Integer;
xml: TChilkatXml;
sbRequestBody: TChilkatStringBuilder;
resp: IChilkatHttpResponse;
begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := TChilkatHttp.Create(Self);
http.BasicAuth := 1;
http.Login := '{{webservice_key}}';
http.Password := 'password';
// Use this online tool to generate code from sample XML: Generate Code to Create XML
// The following XML is sent in the request body.
// <?xml version="1.0" encoding="UTF-8"?>
// <prestashop xmlns:xlink="http://www.w3.org/1999/xlink">
// <supplier>
// <name>ACMESupplier</name>
// </supplier>
// </prestashop>
//
xml := TChilkatXml.Create(Self);
xml.Tag := 'prestashop';
xml.AddAttribute('xmlns:xlink','http://www.w3.org/1999/xlink');
xml.UpdateChildContent('supplier|name','ACMESupplier');
sbRequestBody := TChilkatStringBuilder.Create(Self);
xml.GetXmlSb(sbRequestBody.ControlInterface);
resp := http.PTextSb('POST','https://localhost:8080/api/suppliers',sbRequestBody.ControlInterface,'utf-8','application/xml',0,0);
if (http.LastMethodSuccess = 0) then
begin
Memo1.Lines.Add(http.LastErrorText);
Exit;
end;
Memo1.Lines.Add(IntToStr(resp.StatusCode));
Memo1.Lines.Add(resp.BodyStr);
Curl Command
curl -X POST
-u '{{webservice_key}}:password'
-d '<?xml version="1.0" encoding="UTF-8"?>
<prestashop xmlns:xlink="http://www.w3.org/1999/xlink">
<supplier>
<name>ACMESupplier</name>
</supplier>
</prestashop>'
https://localhost:8080/api/suppliers
Postman Collection Item JSON
{
"name": "2 - Create supplier",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<prestashop xmlns:xlink=\"http://www.w3.org/1999/xlink\">\n <supplier>\n <name>ACMESupplier</name>\n </supplier>\n</prestashop>",
"options": {
"raw": {
"language": "xml"
}
}
},
"url": {
"raw": "{{webservice_url}}/api/suppliers",
"host": [
"{{webservice_url}}"
],
"path": [
"api",
"suppliers"
]
}
},
"response": [
]
}