#include <C_CkXmlW.h>
#include <C_CkHttpW.h>
#include <C_CkHttpResponseW.h>
void ChilkatSample(void)
{
HCkXmlW xml;
const wchar_t *soapRequestBody;
const wchar_t *endpoint;
const wchar_t *soapAction;
const wchar_t *contentType;
HCkHttpW http;
HCkHttpResponseW resp;
HCkXmlW responseXml;
int statusCode;
const wchar_t *documentData;
const wchar_t *documentId;
int packageId;
int parcelId;
const wchar_t *reference;
const wchar_t *description;
const wchar_t *status;
const wchar_t *waybill;
int sessionId;
xml = CkXmlW_Create();
CkXmlW_putTag(xml,L"soapenv:Envelope");
CkXmlW_AddAttribute(xml,L"xmlns:soapenv",L"http://schemas.xmlsoap.org/soap/envelope/");
CkXmlW_AddAttribute(xml,L"xmlns:dpd",L"http://dpdservices.dpd.com.pl/");
CkXmlW_UpdateChildContent(xml,L"soapenv:Header",L"");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:documentId",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:address",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:city",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:company",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:countryCode",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:email",L"string");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:fid",1042);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:name",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:phone",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:pickupAddress|dpd:postalCode",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:policy",L"STOP_ON_FIRST_ERROR");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:session|dpd:packages|dpd:packageId",123456);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:session|dpd:packages|dpd:parcels|dpd:parcelId",123456);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:session|dpd:packages|dpd:parcels|dpd:reference",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:session|dpd:packages|dpd:parcels|dpd:waybill",L"string");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:session|dpd:packages|dpd:reference",L"string");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:session|dpd:sessionId",123456);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:dpdServicesParamsV1|dpd:session|dpd:sessionType",L"DOMESTIC");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:outputDocFormatV1",L"PDF");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:outputDocPageFormatV1",L"A4");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:authDataV1|dpd:login",L"string");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:authDataV1|dpd:masterFid",1042);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|dpd:generateProtocolV2|dpd:authDataV1|dpd:password",L"string");
// In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required. CkXmlW_putEmitXmlDecl(xml,FALSE);
soapRequestBody = CkXmlW_getXml(xml);
endpoint = L"https://dpdservicesdemo.dpd.com.pl/DPDPackageObjServicesService/DPDPackageObjServices";
soapAction = L"";
// For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
contentType = L"text/xml";
http = CkHttpW_Create();
CkHttpW_ClearHeaders(http);
CkHttpW_SetRequestHeader(http,L"Content-Type",contentType);
CkHttpW_SetRequestHeader(http,L"SOAPAction",soapAction);
resp = CkHttpW_PostXml(http,endpoint,soapRequestBody,L"utf-8");
if (CkHttpW_getLastMethodSuccess(http) == FALSE) {
wprintf(L"%s\n",CkHttpW_lastErrorText(http));
wprintf(L"Failed to send SOAP request.\n");
CkXmlW_Dispose(xml);
CkHttpW_Dispose(http);
return;
}
// Get the XML response body.
responseXml = CkXmlW_Create();
CkHttpResponseW_GetBodyXml(resp,responseXml);
statusCode = CkHttpResponseW_getStatusCode(resp);
wprintf(L"response status code: %d\n",statusCode);
CkHttpResponseW_Dispose(resp);
// If the status code does not indicate succcess, then show the response XML,
// which probably contains error information.if (statusCode != 200) {
wprintf(L"%s\n",CkXmlW_getXml(responseXml));
CkXmlW_Dispose(xml);
CkHttpW_Dispose(http);
CkXmlW_Dispose(responseXml);
return;
}
wprintf(L"%s\n",CkXmlW_getXml(responseXml));
// Parse the successful SOAP response XML.// This is a sample of the response XML, but the namespace prefixes will be different.
// We can parse the result using "*" for the namespace prefixes (see below).
documentData = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:documentData");
documentId = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:documentId");
packageId = CkXmlW_GetChildIntValue(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:packageId");
parcelId = CkXmlW_GetChildIntValue(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:parcels|*:parcelId");
reference = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:parcels|*:reference");
description = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:parcels|*:statusInfo|*:description");
status = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:parcels|*:statusInfo|*:status");
waybill = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:parcels|*:waybill");
reference = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:reference");
description = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:statusInfo|*:description");
status = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:packages|*:statusInfo|*:status");
sessionId = CkXmlW_GetChildIntValue(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:sessionId");
description = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:statusInfo|*:description");
status = CkXmlW_getChildContent(responseXml,L"*:Body|*:generateProtocolV2Response|*:return|*:session|*:statusInfo|*:status");
CkXmlW_Dispose(xml);
CkHttpW_Dispose(http);
CkXmlW_Dispose(responseXml);
}