|
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual FoxPro) Create Signed SOAP XML for Albanian Fiscalization ServiceThis example is created for a customer that needs to send signed billing/invoicing SOAP XML requests to http://efiskalizimi-test.tatime.gov.al:80/FiscalizationService The example demonstrates how to create and signed the SOAP XML message that is to be sent. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loXmlToSign LOCAL loGen LOCAL loCert LOCAL loSbXml LOCAL lcStrXml LOCAL lnResponseStatusCode LOCAL loHttp LOCAL lcEndPoint LOCAL loResp LOCAL loXmlResp lnSuccess = 0 * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * -------------------------------------------------------------------------------- * Also see Chilkat's Online WSDL Code Generator * to generate code and SOAP Request and Response XML for each operation in a WSDL. * -------------------------------------------------------------------------------- * We want to build and send a signed SOAP XML that looks like the following: * * <?xml version="1.0" encoding="utf-8"?> * <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"> * <SOAP-ENV:Header/> * <SOAP-ENV:Body> * <RegisterWTNRequest xmlns="https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema" xmlns:ns2="http://www.w3.org/2000/09/xmldsig#" Id="Request"> * <Header SendDateTime="2019-09-03T14:19:01+02:00" UUID="42db3af5-0d9f-4dea-95b4-4b947ab8d8e7"/> * <WTN BusinUnit="bb123bb123" DateTimeCreated="2019-09-03T14:19:01+02:00" DestinAddr="Destination address" * DestinCity="Destination city" IsAfterDel="false" OperatorCode="oo123oo123" * SoftNum="ss123ss123" StartAddr="Start address" StartCity="Start city" TransDate="2019-09-03T14:19:01+02:00" * VehPlates="AA0000AA" WTNIC="5C5E58580D0A24E1F7A5E5E011929511" WTNICSignature="82D69C38206D ... F5FCA48" WTNNum="12345678901"> * <Issuer NUIS="I12345678I" Name="Issuer name"/> * <Items> * <I C="501234567890" N="Item name" Q="1.0" U="piece"/> * </Items> * </WTN> * <Signature xmlns="http://www.w3.org/2000/09/xmldsig#"> * <SignedInfo> * <CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> * <SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/> * <Reference URI="#Request"> * <Transforms> * <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/> * <Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> * </Transforms> * <DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/> * <DigestValue>aNa0r4RW04BlsAciTUrWHGW9PADskl2op315BAQ0hTg=</DigestValue> * </Reference> * </SignedInfo> * <SignatureValue>4/j/d4j/5xCJ2YUP+XTC6li0B94...........................KESd38NT5+puArBcNgLYIjLx/dh6Q==</SignatureValue> * <KeyInfo> * <X509Data> * <X509Certificate>MIIE6TCCAtGgAwIBAgICEA8wDQYJKoZIhvcNA......................uoqWsSuLmA==</X509Certificate> * </X509Data> * </KeyInfo> * </Signature> * </RegisterWTNRequest> * </SOAP-ENV:Body> * </SOAP-ENV:Envelope> lnSuccess = 1 * Create the XML to be signed... loXmlToSign = CreateObject('Chilkat.Xml') loXmlToSign.Tag = "SOAP-ENV:Envelope" loXmlToSign.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/") loXmlToSign.UpdateChildContent("SOAP-ENV:Header","") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",1,"xmlns","https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",1,"xmlns:ns2","http://www.w3.org/2000/09/xmldsig#") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",1,"Id","Request") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header",1,"SendDateTime","2019-09-03T14:19:01+02:00") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header",1,"UUID","42db3af5-0d9f-4dea-95b4-4b947ab8d8e7") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"BusinUnit","bb123bb123") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"DateTimeCreated","2019-09-03T14:19:01+02:00") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"DestinAddr","Destination address") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"DestinCity","Destination city") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"IsAfterDel","false") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"OperatorCode","oo123oo123") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"SoftNum","ss123ss123") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"StartAddr","Start address") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"StartCity","Start city") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"TransDate","2019-09-03T14:19:01+02:00") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"VehPlates","AA0000AA") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"WTNIC","5C5E58580D0A24E1F7A5E5E011929511") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"WTNICSignature","82D69C38206D ... F5FCA48") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",1,"WTNNum","12345678901") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer",1,"NUIS","I12345678I") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer",1,"Name","Issuer name") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",1,"C","501234567890") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",1,"N","Item name") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",1,"Q","1.0") loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",1,"U","piece") loGen = CreateObject('Chilkat.XmlDSigGen') loGen.SigLocation = "SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest" loGen.SigLocationMod = 0 loGen.SigNamespacePrefix = "" loGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#" loGen.SignedInfoCanonAlg = "EXCL_C14N" loGen.SignedInfoDigestMethod = "sha256" * -------- Reference 1 -------- loGen.AddSameDocRef("Request","sha256","EXCL_C14N","","") * Provide a certificate + private key. (PFX password is test123) loCert = CreateObject('Chilkat.Cert') lnSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") IF (lnSuccess = 0) THEN ? loCert.LastErrorText RELEASE loXmlToSign RELEASE loGen RELEASE loCert CANCEL ENDIF loGen.SetX509Cert(loCert,1) loGen.KeyInfoType = "X509Data" loGen.X509Type = "Certificate" * Load XML to be signed... loSbXml = CreateObject('Chilkat.StringBuilder') loXmlToSign.GetXmlSb(loSbXml) loGen.Behaviors = "CompactSignedXml,ForceAddEnvelopedSignatureTransform" * Sign the XML... lnSuccess = loGen.CreateXmlDSigSb(loSbXml) IF (lnSuccess = 0) THEN ? loGen.LastErrorText RELEASE loXmlToSign RELEASE loGen RELEASE loCert RELEASE loSbXml CANCEL ENDIF * ----------------------------------------------- * Now to send the SOAP request.... * Note: Chilkat did not actually test this by sending the request to the server. * The example is a best-guess for how to do it... lcStrXml = loSbXml.GetAsString() * We'll need to add this in the HTTP header: * SOAPAction: "https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN" * Note: This is for the RegisterWTN request. * You may wish to load the WSDL at https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1/FiscalizationService.wsdl into the SoapUI application to see * the SOAP requests.. loHttp = CreateObject('Chilkat.Http') loHttp.SetRequestHeader("SOAPAction","https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN") * The testing endpoint for this soap service is likely: lcEndPoint = "https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1" loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpStr("POST",lcEndPoint,lcStrXml,"utf-8","text/xml",loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loXmlToSign RELEASE loGen RELEASE loCert RELEASE loSbXml RELEASE loHttp RELEASE loResp CANCEL ENDIF lnResponseStatusCode = loResp.StatusCode * Check that the responseStatusCode equals 200... ? "Response Status Code: " + STR(lnResponseStatusCode) * Examine the exact HTTP header sent with the POST like this: ? "LastHeader:" ? loHttp.LastHeader * Examine the XML returned by the web service: ? "XML Response:" loXmlResp = CreateObject('Chilkat.Xml') loXmlResp.LoadXml(loResp.BodyStr) ? loXmlResp.GetXml() * Use this online tool to generate parsing code from response XML: * Generate Parsing Code from XML RELEASE loXmlToSign RELEASE loGen RELEASE loCert RELEASE loSbXml RELEASE loHttp RELEASE loResp RELEASE loXmlResp |
||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.