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
(Lianja) HTTP POST x-www-form-urlencodedDemonstrates how to send a simple x-www-form-urlencoded POST.
loHttp = createobject("CkHttp") lcJsonStr = "{ some json ... }" loReq = createobject("CkHttpRequest") // 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 <> .T.) then ? loHttp.LastErrorText release loHttp release loReq return 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("CkFileAccess") lcFilepath = "some file path" llSuccess = loFac.WriteEntireTextFile(lcFilepath,lcResponseBody,"utf-8",.F.) if (llSuccess <> .T.) then ? loFac.LastErrorText endif release loHttp release loReq release loFac |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.