Bonjour, j'utilise la méthode suivante pour récupérer des info sur une page html
Le problème est que cette page demande une identification (.htaccess )
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;
Comment puis-je passer ces identifiants ?
Merci
Partager