I use the Delphi TWebBrowser (Delphi 7) Uses : MSHTML
procedure scrape(WB: TWebBrowser); Var tr: IHTMLTxtRange; html:tStringList; begin html:=tStringList.Create; if Assigned(WB.Document) then begin tr := ((wb.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange; html.Text:=tr.text; frm_main.Memo1.Text:=tr.text; end; end; procedure Tfrm_main.btn_scrapeClick(Sender: TObject); begin scrape(WebBrowser1); end; Works like a chuffin charm : <snip> Racing Results OR Search Date: 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 January February March April May June July August September October November December 2006 2007 Horse Racing Harness Racing Greyhound Racing Currently Viewing 24 July 2007 ResultSelectionTFSPNSWNSW PlSUPSUP PlUNIUNI Pl Ballina RACE 1 - Pipeline Constructions Dev Hcp 1010m 11. Court Award2.001.501.101.701.041.601.00 28. Doo Ron8.003.804.104.90 312. Kryptelon6.002.402.502.30 Scratchings: 4, 5, 11, 14 | Quinella(1,8) 15.50 | Exacta(1,8) 18.90 | Trifecta(1,8,12) 132.30 - Track Slow Ballina RACE 2 - Ballina Pipeline Rock Wall Mdn 1410m 17. Backondeck9.009.008.802.809.702.906.902.50 25. I'm So Classical13.0011.004.303.903.80 34. View The Talent5.004.401.201.601.70 Scratchings: 13, 14, 15, 16 | Quinella(5,7) 94.30 | Exacta(7,5) 167.70 | Trifecta(7,5,4) 784.40 - Track Slow Ballina RACE 3 - Pipeline Sand Supplies Mdn 1260m 17. Dodgalady16.0011.0011.302.8011.602.908.103.40 211. Moody Model21.0021.0012.7012.4011.70 34. Gun Salute7.007.002.603.203.50 Scratchings: 8, 14, 15, 16 | Quinella(7,11) 280.50 | Exacta(7,11) 322.00 | Trifecta(7,11,4) 3446.50 - Track Slow Ballina RACE 4 - Pipeline Excavations Hcp (C6) 1010m 14. Lost Weekend7.006.008.403.207.603.0010.303.80 25. Our Royal Star4.604.602.202.502.60 38. Lightninghill7.00 Scratchings: 1, 3 | Quinella(4,5) 20.20 | Exacta(4,5) 56.30 | Trifecta(4,5,8) 216.30 - Track Slow Ballina RACE 5 - Pipeline Transport Hcp (C4) 1260m 11. Felixtrinidad2.002.002.001.202.001.201.901.20 23. Saint Fran4.604.601.602.101.60 32. Leonardo8.008.002.201.902.20 Scratchings: 7, 8 | Quinella(1,3) 3.50 | Exacta(1,3) 4.80 | Trifecta(1,3,2) 20.80 - Track Slow Ballina RACE 6 - Pipeline Subdivisions Hcp (C1) 1610m 16. Charm Of Rossano6.006.005.702.006.302.307.102.40 27. Nimie7.007.003.802.502.90 35. Vereker Street7.007.002.402.802.30 Scratchings: 8, 14, 15, 16 | Quinella(6,7) 31.10 | Exacta(6,7) 65.40 | Trifecta(6,7,5) 291.50 - Track Slow Ballina RACE 7 - Longhorn Qld's Finest Hcp 1610m 111. Dream Walker41.0041.0087.1015.1083.3019.9054.0013.10 24. Alifly8.008.002.902.902.40 38. Pay Day Lass11.0011.003.103.903.20 Scratchings: 13 | Quinella(4,11) 523.20 | Exacta(11,4) 1246.10 | Trifecta(11,4,8) 9892.80 - Track Slow Ballina RACE 8 - Pipeline Earthmoving Hcp (C2) 1010m 112. Shani's </snip> > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Chris Stebbing > Sent: 25 July 2007 06:39 > To: Delphi List > Subject: https protocol > > Hi All, > > I'm trying to download and scrape the following site > https://www.sportsbet.com.au/results/racing/Date/2007-7-24/SportID/1 > > I usually use the ICS components for this type of work but > the version I have says that the https protocol is not implemented. > > I have Delphi 2005. Is there anyway I can download these > types of pages? I have the indy components but have no idea > how to set these up to download https pages. Any information > or links to reference material would be appreciated. > > Cheers, > Chris. > > _______________________________________________ > Delphi mailing list -> [email protected] > http://www.elists.org/mailman/listinfo/delphi > _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
