Chilkat HOME Android™ ASP Visual Basic VB.NET C# iOS (IPhone) Objective-C C++ C Unicode C++ Unicode C MFC Delphi DLL Delphi ActiveX FoxPro Java Perl PHP Extension PHP ActiveX Python PowerShell Ruby SQL Server VBScript
HTTP POSTDemonstrates a simple HTTP POST. You may test this program against http://www.chilkatsoft.com/testPostHandler.asp. This ASP page fetches and displays the contents of form variables named arg1, arg2, and arg3. Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set req = CreateObject("Chilkat.HttpRequest") set http = CreateObject("Chilkat.Http") ' Any string unlocks the component for the 1st 30-days. success = http.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then MsgBox http.LastErrorText WScript.Quit End If ' Build an HTTP POST Request: req.UsePost req.Path = "/testPostHandler.asp" req.AddParam "arg1","This is the value for arg1." req.AddParam "arg2","This is the value for arg2." req.AddParam "arg3","This is the value for arg3." ' Send the HTTP POST and get the response. Note: This is a blocking call. ' The method does not return until the full HTTP response is received. domain = "www.chilkatsoft.com" port = 80 ssl = 0 ' resp is a Chilkat.HttpResponse Set resp = http.SynchronousRequest(domain,port,ssl,req) If (resp Is Nothing ) Then outFile.WriteLine(http.LastErrorText) Else ' Display the HTML page returned. outFile.WriteLine(resp.BodyStr) End If outFile.Close |
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.