récupérer des infos d'une page web

**tomkiki** · 30/04/2019, 09h35

Bonjour, je souhaite récupérer les infos en rouge

<div title="Cliquez pour les détails du match!" class="event__match event__match--scheduled event__match--last event__match--inline event__match--oneLine" id="g_1_CK3ne74R">
<div class="event__check"></div>
<div class="event__time">21:00</div>
<div class="event__participant event__participant--home">Tottenham</div>
<div class="event__scores"><span class="icon icon--preview"></span></div>
<div class="event__participant event__participant--away">Ajax</div>
<div class="event__icon icon--tv"></div>
<span class="event__live--icon icon icon--live " data-bookmaker-id="141"></span></div>

J 'arrive a recuperer l ID "g_1_CK3ne74R" dans la page web ... mais le reste...

Merci.

**SergioMaster** · 30/04/2019, 11h21

Bonjour,

il y a tellement de manière de faire en fonction de la version Delphi que vous utilisez qu'il faudrait peut-être commencer par nous fournir ce renseignement.
Ensuite vous nous indiquerez comment (code) vous obtenez cette info et là on pourra certainement répondre

**tomkiki** · 30/04/2019, 12h16

J utilise delphi 6.

voici mon code :
Je cherche toutes les class "event__match...." et je récupère les ID (affichage dans la grille1).
Et je voudrais récupérer toutes les infos interne de chaque ID (affichage dans la grille2).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
procedure TForm1.Button3Click(Sender: TObject);
var
  Document, Doc: IHTMLDocument2;     
  Body: IHTMLElement2;          
  Tags, Tags2, Coll: IHTMLElementCollection; 
  Anchor : IHTMLAnchorElement;
  Tag, Elemt, event : IHTMLElement;            
  I, Inx, Inx2: Integer;                
  S : String;
begin
  // Check for valid document: require IHTMLDocument2 interface to it
  if not Supports(WebBrowser1.Document, IHTMLDocument2, Document) then
    raise Exception.Create('Invalid HTML document');
  // Check for valid body element: require IHTMLElement2 interface to it
  if not Supports(Document.body, IHTMLElement2, Body) then
    raise Exception.Create('Can''t find <body> element');
 
  Tags := Body.getElementsByTagName('*');
 
 
  inx  := 0;
  inx2 := 0;
  StringGrid1.RowCount := 1;
  StringGrid2.RowCount := 1;
  for I := 0 to Pred(Tags.length) do
  begin
 
    Tag := Tags.item(I, EmptyParam) as IHTMLElement;
    if  (Tag.className = 'event__match event__match--live event__match--last highlighted event__match--inline event__match--oneLine') or
        (Tag.className = 'event__match event__match--scheduled event__match--last event__match--inline event__match--oneLine') or
        (Tag.className = 'event__match event__match--last event__match--inline event__match--oneLine') then
    begin
      Inc(Inx);
      StringGrid1.RowCount := Inx+1;
      StringGrid1.Cells[0,Inx] := IntToStr(Inx);
      StringGrid1.Cells[1,Inx] := Tag.id;
      StringGrid1.Cells[2,Inx] := Tag.innerText;
      StringGrid1.Cells[3,Inx] := Tag.className;
 
 
      Elemt := (WebBrowser1.Document as IHTMLDocument3).getElementById(Tag.id);
        Inc(Inx2);
        StringGrid2.RowCount := Inx2+1;
        StringGrid2.Cells[0,Inx2] := IntToStr(Inx2);
        StringGrid2.Cells[1,Inx2] := WebBrowser1.OleObject.Document.GetElementByID(Tag.id).Id;
        StringGrid2.Cells[2,Inx2] := WebBrowser1.OleObject.Document.GetElementByID(Tag.id).getElementsByTagName('event_time');
 
    end;
  end;
end;

Le code de la page web :

Code Html :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
<div title="Cliquez pour les détails du match!" class="event__match event__match--scheduled event__match--last event__match--inline event__match--oneLine" id="g_1_CK3ne74R">
<div class="event__check"></div>
<div class="event__time">21:00</div>
<div class="event__participant event__participant--home">Tottenham</div>
<div class="event__scores"><span class="icon icon--preview"></span></div>
<div class="event__participant event__participant--away">Ajax</div>
<div class="event__icon icon--tv"></div>
<span class="event__live--icon icon icon--live " data-bookmaker-id="141"></span></div>

**Paul TOTH** · 30/04/2019, 13h12

personnellement je ferais plutôt une fonction d'extraction sous Delphi à partir du source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
// au erreur de syntax et index près...
function extract(const HTML, class: string): string;
var
  Start: Integer;
  Stop : Integer;
begin
  Start := Pos('<div class="' + class + '">', HTML);
  if Start= 0 then
    Exit('');
  Inc(Start, 14 + Length(class));  
  Stop := Pos('</div>', HTML, Start);
  if Stop <= Start then
   Result := ''
  else
  Result := Copy(HTML, Start, Stop - Start); 
end;
 
begin
  time := extract(HTML, 'event__time');
  home := extract(HTML, 'event__participant event__participant--home');
  away := extract(HTML, 'event__participant event__participant--away');
end;

**SergioMaster** · 30/04/2019, 13h37

Delphi 6 ! voilà pourquoi j'avais insisté pour obtenir la version car ma première idée était de dire d'utiliser les expressions régulières, avec D6 c'est plutôt raté

Mon second choix aurait été sur un xmldoc mais encore une fois, je pense que c'est au-dessus de D6 (voire bien au-dessus)
La proposition de Paul est donc très certainement la plus efficace

**tomkiki** · 30/04/2019, 13h59

Je ne suis pas trop caler en delphi pour le WEB...
Sinon j'ai aussi delphi EX8...

J'ai aussi essayé :
StringGrid2.Cells[2,Inx2] := WebBrowser1.OleObject.Document.GetElementByID(Tag.id).getElementsByTagName('event_time');

Mais ça me revoit :
[object HTMLCollection]

**Paul TOTH** · 30/04/2019, 17h49

Envoyé par tomkiki

Je ne suis pas trop caler en delphi pour le WEB...
Sinon j'ai aussi delphi EX8...

J'ai aussi essayé :
StringGrid2.Cells[2,Inx2] := WebBrowser1.OleObject.Document.GetElementByID(Tag.id).getElementsByTagName('event_time');

Mais ça me revoit :
[object HTMLCollection]

normal, getElementsByTagName() renvoie la liste des tous les enfants dont le TAG est "event_time"...et là c'est une liste vide puisque ce sont tous des DIV

à la rigueur, pour récupérer le contenu de deuxième enfant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  time := WebBrowser1.OleObject.Document.GetElementByID(Tag.id).children[1].innerHTML;

**GoustiFruit** · 01/05/2019, 21h03

Perso j'utilise un composant appelé DIHtmlParser... que j'ai acheté il y a de nombreuses années.

Mais il existe un certain nombre d'outils plus ou moins élaborés disponibles gratuitement, il suffit de faire une recherche genre "delphi dom parser" ou "delphi html parser".

**philnext** · 03/05/2019, 14h02

Je pense que, comme indiqué, l'utilisation d'un parseur est la meilleure solution dans le style : https://github.com/sandbil/HTML-Parser

récupérer des infos d'une page web

Web & réseau Delphi

Discussions similaires

Partager

Partager