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

Reply via email to