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