Discussion :

[jeunot]

Bonjour, j'utilise la méthode suivante pour récupérer des info sur une page html

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
procedure ListerLiens(List: TStrings; IEApp: OLEVariant; aURL:string); 
var 
  IEApp: OLEVariant; 
  nbLinks,i:Integer; 
begin 
  //Si l'objet OLE n'est pas créé 
  if(VarIsEmpty(IEApp))then 
  begin 
    //Créer l'objet OLE 
    IEApp := CreateOleObject('InternetExplorer.Application'); 
    //Le rendre visible 
    IEApp.Visible := true; 
    //Ouvrir la page spécifiée pas aURL dans l'objet OLE 
    IEApp.Navigate(aURL); 
  end; 
 
    //Attendre que la page soit complètement chargée avec 
    // READYSTATE_COMPLETE = 4 
    while Cardinal(IEApp.readyState) <> 4 do sleep(1000); 
 
    // Récupérer le nombre de liens 
    nblinks := Cardinal(IEApp.Document.links.length); 
    //Ajouter le nombre de liens dans le TStrings 
    List.Add(Format('Nombre de liens = %d',[nblinks])); 
 
    // Ajoute les liens à la suite du TStrings 
    for i := 0 to nblinks - 1 do 
      Self.MemoLog.Lines.Add(string(IEApp.Document.links.item(i).href)); 
end;

Le problème est que cette page demande une identification (.htaccess )
Comment puis-je passer ces identifiants ?
Merci

[Clorish]

On peut inclure l'identification dans l'url :

Code :

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

http://login:pwd@www.monsite.com

par contre question securité je sais pas trop si c'est top
Sinon faudrais essayer avec les methodes d'envoie de parametres "POST" mais la .. je ne sais pas trop comment on fait

[jeunot]

Bonjour, Clorish, merci de ta réponse.
J'avais bien pensé a passer ca dans l'url mais je ne me rappelai plus de la syntaxe mais effectivement je ne pense pas que cela soit tellement sécurisé.

Je pensai utiliser IdHTTP (indy) avec

Code :

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

1
2
3
4
 Request.Username:=IdentHTTP; //Utilisateur
            Request.Password:=PassHTTP; //Mot de passe
            Request.BasicAuthentication := True; //Auth. BASIC
            Get(aURL);

seulement après je ne sais pas comment utilser ".Document......" depuis ce composant indy (est ce possible ?)

[Rayek]

tu as une réponse possible dans la

http://delphi.developpez.com/faq/?pa...nsdanspagehtml

[jeunot]

Bonjour Rayek et merci.

Je l'ai pourtant parcouru cette FAQ mais comme mon but n'est pas de récupérer les liens de ma page (j 'ai mis ca juste en exemple) ... je ne m'était pas arrêté sur la dessus , surtout que la méthode "toute faite" document.xxxx.yyyyy me plaisait bien .... Néanmoins, je devrai pouvoir adapter le code du lien fourni pour mon problème.

Au passage, j'ai du coup soulevé quelque chose qui me tracasse :

si je fais

Code :

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

http://monlog:monpass@monsite.net

dans firefox ca passe (il me demande une confirmation mais c'est ok)

par contre la même chose avec IE ne fonctionne pas

[Clorish]

si je fais

Code :

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

http://monlog:monpass@monsite.net

dans firefox ca passe (il me demande une confirmation mais c'est ok)

par contre la même chose avec IE ne fonctionne pas

He oui .... Ya bilou .... et les autres
En regle general tout developpement autour du web demande un double Dev : IE et LEs autres .... et encore .... Meme si on est compatible IE6 on ne l'est pas forcement sous IE7.
D'ailleur je soupsonne MS de le faire expres car IE7 est instalabe uniquement sous Windows certifé ... ce qui en plus d'obliger les developpeur a developper sous IE, il lutte contre le piratage