Discussion :

[Lung]

N'aurais tu aps des paramètres proxy nécessaire à ta connexion vers internet ?
Si oui, il faudrait peut être les indiquer aux composants Indy, car il y a peut être cela qui bloque.

Effectivement.
Bon, j'ai renseigné ces propriétés :

Code :

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

1
2
3
4
HTTP.ProxyParams.ProxyServer
HTTP.ProxyParams.ProxyPort
HTTP.ProxyParams.ProxyUsername 
HTTP.ProxyParams.ProxyPassword

Je creuse ...

[Lung]

Ca marche !!

Je m'en suis sorti avec ça :

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
procedure TFormWeb.GetLinksInHTMLDoc(const szURL: String; ListeLiens: TStringList);
var
   HTTP: TIdHTTP;
   szContent, szLienURL: String;
   bFin: Boolean;
   nIndex: Integer;
begin
   ListeLiens.Clear;
   HTTP := TIdHTTP.Create(nil);
   try
      HTTP.ProxyParams.ProxyServer := ;
      HTTP.ProxyParams.ProxyPort := ;
      HTTP.ProxyParams.ProxyUsername := ;
      HTTP.ProxyParams.ProxyPassword := ;
 
      szContent := HTTP.Get(szURL);
      bFin := False;
      repeat
         nIndex := Pos('href="', szContent);
         if nIndex > 0 then
         begin
            szContent := Copy(szContent, nIndex + 6, Length(szContent));
            nIndex := Pos('"', szContent);
            if nIndex > 0 then
            begin
               szLienURL := Copy(szContent, 1, nIndex - 1);
               ListeLiens.Add(szLienURL);
               szContent := Copy(szContent, nIndex + 1, Length(szContent));
            end;
         end
         else
            bFin := True;
      until bFin;
   finally
      HTTP.Free;
   end;
end;

pour votre aide.

[aliwassem]

Salut
Bon pou moi j'utilise un TWebBrowser et le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Var
  i : Integer;
begin
  try
    For i:=0 to Webbrowser1.OleObject.Document.links.length-1 Do
    Begin
      RichEdit1.lines.add(Webbrowser1.OleObject.Document.links.item(i));
    end;
  Except end;

et ca marche avec moi tres bien