Ajuda em Chillkat ActiveX

[Paulo]

Hola a todos.

Tenho necessidade de implementar um soap usando o chillkat v9.5.0, uma vez que tem diversas vantagens neste caso, sobretudo o de ser independente do sistema operativo em termos de TLS.

O codigo em VB.Net é:
Dim resp As Chilkat.HttpResponse = http.PostXml(pWebService, pSoapFile, "utf-8")

O que fiz em PowerCobol v10 é:
INVOKE ChilkatHttp1 "PostXml" USING pWebService pSoapFile "utf-8" RETURNING ChilkatHttpResponse1.

Mas dá sempre em cobsnap e erro.
Alguém tem experiencia nestes casos que possa ajudar ?

Gracias

[fastpho]

Hola @Paulo
Con estos objetos (ChilkatXml ,ChilkatHttp1 , ChilkatHttpResponse ) de Chillkat no he trabajado pero con otros si.

Encontre un ejemplo en vb6 Link
https://www.example-code.com/vb6/soap_web_service.asp

Traducido a PowerCobol algo asi seria :
Espero esto te ayude en algo.

WORKING-STORAGE SECTION.
01 success pic s9(9) comp-5.
01 XmlFile pic x(50) value spaces.
01 endpointUrl pic x(50) value spaces.
01 xmlContent pic x(50) value spaces.
01 xmlCharset pic x(5) value spaces.
01 responseStatusCode pic s9(9) comp-5.

PROCEDURE DIVISION.
*objetos usados
* ChilkatXml1
* ChilkatHttpResponse1
* ChilkatHttp1

*>-----------------------
*> xml
move "ukPostCodeSoap.xml" to XmlFile.
INVOKE ChilkatXml1 "LoadXml" USING XmlFile RETURNING success.
if success not = 1 then
display "error"
exit program
else
display "ok"
end-if.
INVOKE ChilkatXml1 "GetXml" RETURNING xmlContent.
display "xmlContent : " , xmlContent.

*>-----------------------
*> http

INVOKE ChilkatHttp1 "SetRequestHeader" USING "SOAPAction" "http://www.webserviceX.NET/GetUKLocationByPostCode".
INVOKE ChilkatHttp1 "SetRequestHeader" USING "Content-Type" "text/xml; charset=utf-8".

*>-------------------------
*> response
move "http://www.webservicex.net/uklocation.asmx" to endpointUrl.
move "utf-8" to xmlCharset.
INVOKE ChilkatHttp1 "PostXml" USING endpointUrl xmlContent xmlCharset RETURNING ChilkatHttpResponse1.

move "StatusCode" OF ChilkatHttpResponse1 to responseStatusCode.
display "Response Status Code: " , responseStatusCode.



Saludos...

[Paulo]

Gracias.
Vou adaptar e testar.