B4X

Setting a HTTP Max Response Size

Demonstrates the MaxResponseSize property. B4X

Dim success As Boolean = False

Dim http As ChilkatHttp
http.Initialize("http")

Dim maxSz As Long = 16384
http.MaxResponseSize = maxSz

'  Try to get something larger, such as hamlet.xml which is 279658 bytes
Dim xmlStr As String = http.QuickGetStr("https://chilkatsoft.com/hamlet.xml")
If http.LastMethodSuccess = False Then
    '  If the LastErrorText contains the string "MaxResponseSize",
    '  then the HTTP request failed because the response body would've been larger than the max allowed response size.
    Log(http.LastErrorText)
    Return
End If


Log("OK")