Pascal (Lazarus/Delphi)

Must-Match Patterns

See more Spider Examples

You may restrict the spider to only follow links that match any one of a set of "must-match" wildcard patterns. The AddMustMatchPattern can be called repeatedly to add must-match patterns. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Spider;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  spider: TSpider;
  i: Integer;
  url: string;

begin
  success := False;

  spider := TSpider.Create;

  //  --------------------------------------------------------------------
  //  Note: The URLs in this example are no longer valid.
  //  You should replace the URLs with URLs from a site of your
  //  own choosing -- preferably your own site if testing.
  //  (Google's Directory no longer exists.)
  //  --------------------------------------------------------------------

  //  First, we'll get the outbound links for a page in the
  //  Google directory.  Then we'll add some must-match
  //  and then re-fetch, to see it work...

  spider.Initialize('directory.google.com');
  spider.AddUnspidered('http://directory.google.com/Top/Recreation/Outdoors/Hiking/Backpacking/');

  success := spider.CrawlNext();

  //  Display the outbound links

  for i := 0 to spider.NumOutboundLinks - 1 do
    begin
      WriteLn(spider.GetOutboundLink(i));
    end;

  //  The output:
  //  http://www.backpacker.com
  //  http://www.cmc.org
  //  http://www.backpacking.net
  //  http://www.thebackpacker.com/
  //  http://www.rei.com/online/store/LearnShareArticlesList?categoryId=Camping
  //  http://www.trailspace.com/
  //  http://www.catskillhikes.com/
  //  http://gorp.away.com/gorp/location/asia/nepal/favpicks.htm
  //  http://www.backpackinglight.com/cgi-bin/backpackinglight/index.html
  //  http://www.yetizone.com/
  //  http://www.backpackingfun.com
  //  http://www.freezerbagcooking.com/
  //  http://www.spadout.com/backpacking/
  //  http://sierrabackpacker.com
  //  http://www.abovecalifornia.com/
  //  http://www.personal.psu.edu/faculty/r/p/rpc1/bbb/
  //  http://www.thebackpackersguide.com
  //  http://www.journeywest.com/WB/index.html
  //  http://www.johann-sandra.com/backpackdir.htm
  //  http://www.geocities.com/amytys/
  //  http://www.cloudwalkersbasecamp.com
  //  http://www.netbackpacking.com
  //  http://members.tripod.com/~stooges/
  //  http://www.thebackpackingsite.com
  //  http://www.thruhikers.com/
  //  http://www.redcompservices.com/AT/
  //  http://members.aol.com/CMorHiker/backpack
  //  http://mywebpages.comcast.net/midwestpacker/
  //  http://www.midwesthiker.com/
  //  http://www.WeBackpack.com
  //  http://www.michiganhiker.com
  //  http://www.host33.com/backpack/
  //  http://www.wilderness-backpacking.com
  //  http://www.thetravelmonkey.net
  //  http://dmoz.org/cgi-bin/add.cgi?where=Recreation/Outdoors/Hiking/Backpacking
  //  http://dmoz.org/about.html
  //  http://dmoz.org/cgi-bin/apply.cgi?where=Recreation/Outdoors/Hiking/Backpacking
  //  http://dmoz.org
  //  http://dmoz.org/profiles/cdog.html
  //  http://dmoz.org/profiles/justinwp.html

  //  Do it again, but this time with avoid patterns.
  spider.Initialize('directory.google.com');
  spider.AddUnspidered('http://directory.google.com/Top/Recreation/Outdoors/Hiking/Backpacking/');

  //  Add some must-match patterns:
  spider.AddMustMatchPattern('*.com/*');
  spider.AddMustMatchPattern('*.net/*');

  //  Add some avoid-patterns:
  spider.AddAvoidOutboundLinkPattern('*.mypages.*');
  spider.AddAvoidOutboundLinkPattern('*.personal.*');
  spider.AddAvoidOutboundLinkPattern('*.comcast.*');
  spider.AddAvoidOutboundLinkPattern('*.aol.*');
  spider.AddAvoidOutboundLinkPattern('*~*');

  success := spider.CrawlNext();

  WriteLn('-----------------------');

  //  Display the outbound links
  for i := 0 to spider.NumOutboundLinks - 1 do
    begin
      WriteLn(spider.GetOutboundLink(i));
    end;

  //  Output:
  //  http://www.thebackpacker.com/
  //  http://www.rei.com/online/store/LearnShareArticlesList?categoryId=Camping
  //  http://www.trailspace.com/
  //  http://www.catskillhikes.com/
  //  http://gorp.away.com/gorp/location/asia/nepal/favpicks.htm
  //  http://www.backpackinglight.com/cgi-bin/backpackinglight/index.html
  //  http://www.yetizone.com/
  //  http://www.freezerbagcooking.com/
  //  http://www.spadout.com/backpacking/
  //  http://www.abovecalifornia.com/
  //  http://www.journeywest.com/WB/index.html
  //  http://www.johann-sandra.com/backpackdir.htm
  //  http://www.geocities.com/amytys/
  //  http://www.thruhikers.com/
  //  http://www.redcompservices.com/AT/
  //  http://www.midwesthiker.com/
  //  http://www.host33.com/backpack/


  spider.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.