ContentToStringlist (HttpResponse function)
HTTP response data split into lines (HttpResponse class)
This method places into a Stringlist object the content returned from an HTTPRequest Get, Post, or Send method. ContentToStringlist does the following:
- Instantiates a Stringlist object.
- Breaks the HTTPRequest returned content into lines by scanning for line-ends.
- Translates each line from ASCII to EBCDIC, and places it in its own Stringlist element in the Stringlist it created.
- Returns the Stringlist.
%sl = httpResponse:ContentToStringlist
|%lines||A Stringlist object.|
|%httpresp||A reference to an HTTPResponse object that was returned by a Get, Post, or Send method of an HTTPRequest object.|
- No single HTTPResponse content line may exceed 6124 bytes in length (excluding the line end), or the request is cancelled. The scanned-for line-ends are the three typical characters (CRLF, CR, LF).
- This method is useful when the content returned from the HTTP server is a series of ASCII text lines separated by line-end characters (for example, an HTML document). Accessing such content with the HTTPResponse Content method would leave all the lines in one Longstring, which the application would have to separate into lines using string-handling User Language code.
- ContentToStringlist is also useful for
getting readable output for debugging purposes.
For example, you can string together the ContentToStringlist and
The statement above produces much more readable output than this:
The following code prompts for a URL, fetches the page at that URL, places it in a Stringlist using ContentToStringlist, and displays the lines.
begin %HTTPRequest is object HTTPRequest %HTTPResponse is object HTTPResponse %myPage is object Stringlist %i is float %HTTPRequest = new %HTTPRequest:URL = $read('Hey Moe, give me a URL!') %HTTPResponse = %HTTPRequest:Get('XMLCLIENT', 0 ) if ( %httpResponse is null ) then print 'Could not connect' stop end if if ( %HTTPResponse:Code = 200 ) then %myPage = %HTTPResponse:ContentToStringlist print %myPage:Count and 'lines obtained.' for %i from 1 to %myPage:count print 'Line' and %i and ': ' and %myPage:item(%i) at 15 end for else print 'Sorry dude, you got an error: ' and - %HTTPResponse:statusline end if end
- For information about returning response contents into a Longstring, see Content.