B4X

Fetch Web Pages from Local Cache

See more HTTP Examples

Demonstrates how to keep a local cache to avoid re-fetching web pages. B4X

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

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

'  Define a cache directory and set the number of levels based on the anticipated size of the cache.
http.AddCacheRoot("c:/example/httpCache/")

'  up to 256 sub-directories under the cache root will be created as needed to hold cached GET's.
http.NumCacheLevels = 1

'  Tell the http object to fetch from the cache if possible.
http.FetchFromCache = True

'  Also tell the http object to update the cache with newly fetched pages.
http.UpdateCache = True

'  This HTTP GET should result in a cache file getting created.
Dim html As String = http.QuickGetStr("https://www.google.com/")
If http.LastMethodSuccess = False Then
    Log(http.LastErrorText)
    Return
End If


'  The 1st GET was not from cache:
Log("Fetched from cache: " & http.LastFromCache)

'  Fetching again will cause the page to be delivered from our local cache.
html = http.QuickGetStr("https://www.google.com/")
If http.LastMethodSuccess = False Then
    Log(http.LastErrorText)
    Return
End If


'  The 2nd GET is from cache:
Log("Fetched from cache: " & http.LastFromCache)