Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) HTTP POST JSON and Parse JSON ResponseDemonstrates how to send a JSON POST and then parse the JSON response.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject success = json.LoadFile("qa_data/json/jsonBodyForHttpPost.json") If (success <> True) Then Debug.Print json.LastErrorText Exit Sub End If Dim http As Chilkat.Http Set http = Chilkat.NewHttp Set resp = http.PostJson2("https://test.something.com/XYZ/API/v1/CreditInsuranceCalculator/CalculatePremiums","application/json",json.Emit()) If (http.LastMethodSuccess <> True) Then Debug.Print http.LastErrorText Exit Sub End If Dim jsonResp As Chilkat.JsonObject Set jsonResp = Chilkat.NewJsonObject success = jsonResp.Load(resp.BodyStr) jsonResp.EmitCompact = False Debug.Print jsonResp.Emit() ' The JSON response to be parsed looks like this: ' { ' "LifeAmount": 513.85, ' "LifeResidualAmount": 123.38, ' "CriticalIllnessAmount": 0, ' "CriticalIllnessResidualAmount": 0, ' "DisabilityAmount": 881.70, ' "PolicyFee": 0.00, ' "PolicyFeeSecondary": 0, ' "PolicyFeeHidden": 50.00, ' "PolicyFeeHiddenSecondary": 0 ' } ' We can get the floating point numbers as strings. Then convert to double ' using the appropriate string-to-double conversion for your programming language. ' For example, in C++ use atof. In C# use Convert.ToDouble. lifeAmount = jsonResp.StringOf("LifeAmount") lifeResidualAmount = jsonResp.StringOf("LifeResidualAmount") Debug.Print "LifeAmount = "; lifeAmount Debug.Print "LifeResidualAmount = "; lifeResidualAmount |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.