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
(Classic ASP) HTTP GET -- Read Response from StreamDemonstrates how to send an HTTP GET for a web page, and then read the response from a Stream. The purpose is to fulfill a situation such as the following: "I have a URL and just want the <head> </head> portion of the HTML. This would avoid having to download a potentially enormous web page just to get at header information, such as the <styles>."
<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. set rest = Server.CreateObject("Chilkat_9_5_0.Rest") ' In this example, we'll get the web page at http://www.nytimes.com/pages/business/index.html ' The domain is "www.nytimes.com", and the path is "/pages/business/index.html" ' If we have only the full URL to begin with, it can be loaded into the Chilkat URL object to ' access the parts: set url = Server.CreateObject("Chilkat_9_5_0.Url") success = url.ParseUrl("http://www.nytimes.com/pages/business/index.html") bAutoReconnect = 1 success = rest.Connect(url.Host,url.Port,url.Ssl,bAutoReconnect) ' Send the GET request (This sends the GET request, but does not read the response.) success = rest.SendReqNoBody("GET",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 (responseStatusCode <> 200) Then ' If the response status code is not 200, we could check for a redirect status code and ' then follow it, read the entire response (as shown here), or just call rest.Disconnect 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 Response.End End If set bodyStream = Server.CreateObject("Chilkat_9_5_0.Stream") ' Set a 10 second read timeout for the stream. ' (Give up if no data arrives within 10 seconds after calling a read method.) bodyStream.ReadTimeoutMs = 10000 ' Create a background thread task to read the response body (which feeds ' it to the bodyStream object.) ' readResponseBodyTask is a Chilkat_9_5_0.Task Set readResponseBodyTask = rest.ReadRespBodyStreamAsync(bodyStream,1) ' Start the task. success = readResponseBodyTask.Run() ' Read the HTTP response body until the "</head>" is seen, or until ' the end-of-stream is reached. set sbBody = Server.CreateObject("Chilkat_9_5_0.StringBuilder") exitLoop = 0 Do While Not exitLoop And (bodyStream.EndOfStream <> 1) bodyText = bodyStream.ReadString() If (bodyStream.LastMethodSuccess = 1) Then success = sbBody.Append(bodyText) If (sbBody.Contains("</head>",0)) Then exitLoop = 1 End If Else exitLoop = 1 End If Loop ' Cancel the remainder of the task... success = readResponseBodyTask.Cancel() ' Ensure we're disconnected from the server. maxWaitMs = 50 success = rest.Disconnect(maxWaitMs) Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( sbBody.GetAsString()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Successfully received the body up to the desired point.") & "</pre>" %> </body> </html> |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.