load ./chilkat.dll
set xml [new_CkXml]
CkXml_put_Tag $xml "soapenv:Envelope"CkXml_AddAttribute $xml "xmlns:intf""http://data.webservice.workshop.vivid.nl"CkXml_AddAttribute $xml "xmlns:soapenv""http://schemas.xmlsoap.org/soap/envelope/"CkXml_UpdateChildContent $xml "soapenv:Header"""CkXml_UpdateChildContent $xml "soapenv:Body|intf:getCompleteComponentV6|intf:vrid""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getCompleteComponentV6|intf:typeId""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getCompleteComponentV6|intf:si""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getCompleteComponentV6|intf:st""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getCompleteComponentV6|intf:language""xml"# In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required. CkXml_put_EmitXmlDecl $xml 0set soapRequestBody [CkXml_getXml $xml]
set endpoint "http://www.haynespro-services.com/workshopServices3/services/DataServiceEndpoint"set soapAction ""# For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"set contentType "text/xml"
set http [new_CkHttp]
CkHttp_ClearHeaders $http
CkHttp_SetRequestHeader $http "Content-Type" $contentType
CkHttp_SetRequestHeader $http "SOAPAction" $soapAction
# resp is a CkHttpResponseset resp [CkHttp_PostXml $http $endpoint $soapRequestBody "utf-8"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
puts [CkHttp_lastErrorText $http]
puts "Failed to send SOAP request."
delete_CkXml $xml
delete_CkHttp $http
exit
}
# Get the XML response body.
set responseXml [new_CkXml]
CkHttpResponse_GetBodyXml $resp $responseXml
set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "response status code: $statusCode"
delete_CkHttpResponse $resp
# If the status code does not indicate succcess, then show the response XML,
# which probably contains error information.if {$statusCode != 200} then {
puts [CkXml_getXml $responseXml]
delete_CkXml $xml
delete_CkHttp $http
delete_CkXml $responseXml
exit
}
puts [CkXml_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).set componentImageId [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:componentImageId"]
set connectorSideImage [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:connectorSideImage"]
set flashVarsString [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:flashVarsString"]
set xvalue [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:graph|*:points|*:item|*:xvalue"]
set ymaxvalue [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:graph|*:points|*:item|*:ymaxvalue"]
set yminvalue [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:graph|*:points|*:item|*:yminvalue"]
set xaxis [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:graph|*:xaxis"]
set yaxis [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:graph|*:yaxis"]
set name [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:name"]
set item [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:scopeImagesPaths|*:item"]
set sortOrder [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:sortOrder"]
set value1 [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:table|*:header|*:value1"]
set value2 [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:table|*:header|*:value2"]
set value1 [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:table|*:rows|*:item|*:value1"]
set value2 [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:table|*:rows|*:item|*:value2"]
set text [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:text"]
set title [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:title"]
set pinNameId [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:toolParameters|*:pins|*:item|*:pinNameId"]
set symbolInstanceId [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:toolParameters|*:pins|*:item|*:symbolInstanceId"]
set state [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:toolParameters|*:state"]
set tool [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:toolParameters|*:tool"]
set unit [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:toolParameters|*:unit"]
set value [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:toolParameters|*:value"]
set v_type [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:type"]
set wirediagramLink [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:diagnosisSteps|*:item|*:wirediagramLink"]
set title [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:diagnosisSteps|*:item|*:title"]
set ecuSideImage [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:ecuSideImage"]
set description [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:genericParts|*:item|*:description"]
set id [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:genericParts|*:item|*:id"]
set mandatory [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:genericParts|*:item|*:mandatory"]
set hasLocationSystems [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:hasLocationSystems"]
set categoryId [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:categoryId"]
set categoryName [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:categoryName"]
set id [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:id"]
set mimeDataName [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:mimeData|*:mimeDataName"]
set name [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:name"]
set order [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:order"]
set id [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:paragraphContent|*:item|*:id"]
set name [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:paragraphContent|*:item|*:name"]
set order [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:paragraphContent|*:item|*:order"]
set sentenceStyle [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:paragraphContent|*:item|*:sentenceStyle"]
set remark [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:remark"]
set sentenceGroupType [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:sentenceGroupType"]
set sentenceStyle [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:sentenceStyle"]
set filter [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:smartLinks|*:item|*:filter"]
set id1 [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:smartLinks|*:item|*:id1"]
set id2 [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:smartLinks|*:item|*:id2"]
set operation [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:smartLinks|*:item|*:operation"]
set item [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:smartLinks|*:item|*:text|*:item"]
set code [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:specialTool|*:item|*:code"]
set description [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:specialTool|*:item|*:description"]
set dimensions [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:specialTool|*:item|*:dimensions"]
set id [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:specialTool|*:item|*:id"]
set mimeDataName [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:specialTool|*:item|*:mimeDataName"]
set order [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:specialTool|*:item|*:order"]
set confirmationLink [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:specialTool|*:item|*:status|*:confirmationLink"]
set statusCode [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:specialTool|*:item|*:status|*:statusCode"]
set confirmationLink [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:status|*:confirmationLink"]
set statusCode [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:status|*:statusCode"]
set numberOfColumns [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:tableContent|*:numberOfColumns"]
set numberOfRows [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:tableContent|*:numberOfRows"]
set order [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:tableContent|*:tableCells|*:item|*:order"]
set value [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:linkedStories|*:item|*:stories|*:item|*:tableContent|*:tableCells|*:item|*:value"]
set localWiringImageConcise [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:localWiringImageConcise"]
set localWiringImageExtended [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:localWiringImageExtended"]
set description [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:description"]
set hyperlink [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:hyperlink"]
set name [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:name"]
set pinName [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:pinName"]
set pinNumber [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:pinNumber"]
set si [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:si"]
set st [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:st"]
set wireColor1 [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:wireColor1"]
set wireColor2 [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:pinTable|*:componentsArray|*:item|*:wireColor2"]
set renderable [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:completeComponentV6|*:renderable"]
set confirmationLink [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:status|*:confirmationLink"]
set statusCode [CkXml_getChildContent $responseXml "*:Body|*:getCompleteComponentV6Response|*:getCompleteComponentV6Return|*:status|*:statusCode"]
delete_CkXml $xml
delete_CkHttp $http
delete_CkXml $responseXml