![]() |
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
(Classic ASP) HTTP POST and Stream Response to FileDemonstrates how to send an HTTP POST and stream the response body directly to a file.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Url") set url = Server.CreateObject("Chilkat.Url") ' This URL will emit a response that echos the query params (name and age) success = url.ParseUrl("https://www.chilkatsoft.com/readPost.asp") ' Connect to the web server bAutoReconnect = 1 success = rest.Connect(url.Host,url.Port,url.Ssl,bAutoReconnect) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If success = rest.AddQueryParam("name","John") success = rest.AddQueryParam("age","33") ' Send the HTTP POST. success = rest.SendReqFormUrlEncoded("POST",url.Path) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' Read the response header. responseStatusCode = rest.ReadResponseHeader() If (responseStatusCode < 0) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Response status code = " & responseStatusCode) & "</pre>" ' We expect a 200 response status if the file data is coming. ' Otherwise, we'll get a string response body with an error message(or no response body). If (responseStatusCode = 200) Then ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Stream") set bodyStream = Server.CreateObject("Chilkat.Stream") ' The stream's sink will be a file. bodyStream.SinkFile = "qa_output/out.txt" ' Read the response body to the stream. Given that we've ' set the stream's sink to a file, it will stream directly ' to the file. success = rest.ReadRespBodyStream(bodyStream,1) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Successfully streamed the response to a file.") & "</pre>" Else errResponse = rest.ReadRespBodyString() If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode( errResponse) & "</pre>" End If End If %> </body> </html> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.