(PureBasic) Crawling the Web

If the Chilkat Spider component only crawls a single site, how do you crawl the Web? The answer is simple: as you crawl a site, the spider collects outbound links and makes them accessible to you. You may then instantiate an instance of the Spider object for each site, and crawl it. The task of keeping track of what sites you've already crawled is left to you. This example retrieves the home page of http://www.joelonsoftware.com/ and displays the outbound links.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkSpider.pb"

Procedure ChilkatExample()

    spider.i = CkSpider::ckCreate()
    If spider.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; The Initialize method may be called with just the domain name,
    ; such as "www.joelonsoftware.com" or a full URL.  If you pass only
    ; the domain name, you must add URLs to the unspidered list by calling
    ; AddUnspidered.  Otherwise, the URL you pass to Initialize is the 1st
    ; URL in the unspidered list.
    CkSpider::ckInitialize(spider,"www.joelonsoftware.com")

    CkSpider::ckAddUnspidered(spider,"http://www.joelonsoftware.com/")

    success.i
    success = CkSpider::ckCrawlNext(spider)

    i.i
    For i = 0 To CkSpider::ckNumOutboundLinks(spider) - 1
        Debug CkSpider::ckGetOutboundLink(spider,i)
    Next


    CkSpider::ckDispose(spider)


    ProcedureReturn
EndProcedure