Discussion :

[Lung]

J'ai une liste d'URL, et sur chaque page, je dois récupérer la liste des liens pour faire une traitement.

J'ai essayé les deux bouts de code de la FAQ, mais j'ai une violation d'accès à l'appel des fonctions.
http://delphi.developpez.com/faq/?pa...nsdanspagehtml
http://delphi.developpez.com/faq/?pa...executerlienIE

Quelqu'un saurait-il comment faire ?

[Lung]

J'ai essayé aussi http://delphi.developpez.com/faq/?pa...rowser#content sans plus de succès.

re

[Rayek]

As tu fait un pas à pas pour voir où çà plante ?
Car j'utilise le 1er code (celui d'indy) et ca fonctionne parfaitement.

PS: Tu peux réduire le nombre de ___ dans ta signature, ca dépasse la taille d'un carré normal

[Lung]

As tu fait un pas à pas pour voir où çà plante ?

Ca plante à l'appel de la fonction GetLinksInHTMLDoc, et avant l'exécution de la première ligne (de cette fonction).

Sinon, ça pourait être pratique de préciser dans la FAQ d'où sort la fonction PosEx. C'est en cherchant sur le forum que je suis tombé par hasard sur le source de cette fonction.

[Gaadek]

Ca plante à l'appel de la fonction GetLinksInHTMLDoc, et avant l'exécution de la première ligne (de cette fonction).

Sinon, ça pourait être pratique de préciser dans la FAQ d'où sort la fonction PosEx. C'est en cherchant sur le forum que je suis tombé par hasard sur le source de cette fonction.

Il me semble que PosEx est une fonction native à partir de D7... Donc pas de chance pour toi!

Sinon, aurais-tu un bout de code de ce que tu as fais, parce que j'ai utilisé plusieurs fois webbrowser et Indy, j'ai jamais eu de problème particulier (notamment sur les codes que tu donnes en lien)

[Lung]

Il me semble que PosEx est une fonction native à partir de D7... Donc pas de chance pour toi!

Ah d'accord. Mais, le 7 est trop instable pour moi.

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
ListeLien := TStringList.Create;
try
   GetLinksInHTMLDoc('http://www.unsite.com', ListeLien);
...
 
finally
   ListeLien.Free;
end;
 
procedure TFormWeb.GetLinksInHTMLDoc(const szURL : String; var Links: TStringList);
   function PosEx(szSubStr, szStr: String; nIndex: Integer): Integer;
   var
      nMax: Integer;
   begin
      nMax := Length(szStr) - Length(szSubStr) + 1;
      if nIndex < 1 then
         nIndex := 1;
      while nIndex <= nMax do
      begin
         if Copy(szStr, nIndex, Length(szSubStr)) = szSubStr then
            Exit
         else
            Inc(nIndex);
      end;
   end;
var
   HTTP: TIdHTTP;
   szContent, szLink: String;
   nPosition, nBeginPos: Integer;
begin
   HTTP := TIdHTTP.Create(nil);
   try
      Links.Clear;
      szContent := HTTP.Get(szURL);
 
      nPosition := 0;
      while True do
      begin
         nPosition := PosEx('href', szContent, nPosition + 1);
         if nPosition = 0 then
            Break;
         Inc(nPosition, 4);
         while(nPosition < Length(szContent)) and (szContent[nPosition] in [#0, #10, #13, ' ']) do
            Inc(nPosition);
         if szContent[nPosition] <> '=' then
            Continue;
         Inc(nPosition);
         while(nPosition < Length(szContent)) and (szContent[nPosition] in [#0, #10, #13, ' ']) do
            Inc(nPosition);
         if szContent[nPosition] <> '"' then
            Continue;
         Inc(nPosition);
         nBeginPos := nPosition;
         while(nPosition <= Length(szContent)) and (szContent[nPosition] <> '"') do
            Inc(nPosition);
 
         szLink := Copy(szContent, nBeginPos, nPosition - nBeginPos);
         if(szLink <> '') and (Links.IndexOf(szLink) = -1) then
            Links.Add(szLink);
      end;
   finally
      HTTP.Free;
   end;
end;