(Visual FoxPro) Fetch Web Pages from Local Cache

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

Note: This example requires Chilkat v9.5.0.91 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL lcHtml

* This example assumes 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.Http')
loHttp = CreateObject('Chilkat.Http')

* Define a cache directory and set the number of levels based on the anticipated size of the cache.
loHttp.AddCacheRoot("c:/AAWorkarea/httpCache/")

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

* Tell the http object to fetch from the cache if possible.
loHttp.FetchFromCache = 1

* Also tell the http object to update the cache with newly fetched pages.
loHttp.UpdateCache = 1

* This HTTP GET should result in a cache file getting created.
lcHtml = loHttp.QuickGetStr("https://www.google.com/")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* The 1st GET was not from cache:
? "Fetched from cache: " + STR(loHttp.LastFromCache)

* Fetching again will cause the page to be delivered from our local cache.
lcHtml = loHttp.QuickGetStr("https://www.google.com/")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* The 2nd GET is from cache:
? "Fetched from cache: " + STR(loHttp.LastFromCache)

RELEASE loHttp