Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) HTTP POST x-www-form-urlencodedDemonstrates how to send a simple x-www-form-urlencoded POST.
LOCAL loHttp LOCAL lcJsonStr LOCAL loReq LOCAL loResp LOCAL lcResponseBody LOCAL loFac LOCAL lcFilepath LOCAL lnSuccess loHttp = CreateObject('Chilkat_9_5_0.Http') lcJsonStr = "{ some json ... }" loReq = CreateObject('Chilkat_9_5_0.HttpRequest') * This query parameter just happens to be named "json" and contains JSON text. loReq.AddParam("json",lcJsonStr) * We can optionally add more query parameters. loReq.AddParam("abc","123") loReq.AddParam("xml","<abc>123</abc>") * Note: Just because we passed a query param named "json" or "xml" means nothing special. It's still just * a name=value query parameter.. loResp = loHttp.PostUrlEncoded("http://example.net/cirrus/connect/report",loReq) IF (loHttp.LastMethodSuccess <> 1) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loReq CANCEL ENDIF IF (loResp.StatusCode <> 200) THEN ? "Hey, I didn't receive the expected response status code!" ? "status code = " + STR(loResp.StatusCode) ENDIF * Could be error text if the status code wasn't what we expected, or could be the response * body you're seeking.. lcResponseBody = loResp.BodyStr ? lcResponseBody loFac = CreateObject('Chilkat_9_5_0.FileAccess') lcFilepath = "some file path" lnSuccess = loFac.WriteEntireTextFile(lcFilepath,lcResponseBody,"utf-8",0) IF (lnSuccess <> 1) THEN ? loFac.LastErrorText ENDIF RELEASE loHttp RELEASE loReq RELEASE loFac |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.