Discussion :

[xenos]

Bonjour,

Je vérifie si deux chaines de caractères sont égales :

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
for i:=0 to Webbrowser1.OleObject.Document.Links.Length-1 do
	begin
		[...]
          present := 'non';
 
          for j := 0 to Memo1.Lines.Count do
            begin
              if (Memo1.Lines[j] = Webbrowser1.OleObject.Document.Links.Item(i)) then
                present := 'oui'
              else
                if (present = 'non') then
                  present := 'non';
            end;
		[...]
    end;

J'obtiens l'erreur suivante :

Project Project1.exe raised exception class EVariantInvalidOpError with message 'Invalid variant operation'.

Le but final est de savoir si les liens trouvés dans le WebBrowser sont déjà répertoriés dans le Memo1.

D'avance merci pour vos réponses.



xenos

[J-P-B]

Salut
Il manque le "-1" à ton 2ème for

Code :

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

1
2
          for j := 0 to Memo1.Lines.Count - 1 do

JP

[Clorish]

il est possible que le type retouné par la fonction Webbrowser1.OleObject.Document.Links.Item(i) ne renvoit pas forcement un string tel que delphi l'entend.
Si c'est un variant, peut etre que tu as uen fonction "asString" qui te permetta de recuperer le contenu en tant que string.
J'ai deja vu ca avec les objets BdD

[Clorish]

Salut
Il manque le "-1" à ton 2ème for

Code :

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

1
2
          for j := 0 to Memo1.Lines.Count - 1 do

JP

C'est effectivement une erreur mais il n'a pas eu le temps d'y arriver encore
L'erreur retourné : EVariantInvalidOpError n'est pas lié a celle la
Elle est plutot du type EaccessViolation

[Rayek]

Va falloir apprendre à utiliser les boolean ^^

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
 
var
  bPresent : Boolean;
 
[...]
 
for i:=0 to Webbrowser1.OleObject.Document.Links.Length-1 do
begin
[...]
  bPresent := False;
  if (Memo1.Lines.indexOf(Webbrowser1.OleObject.Document.Links.Item(i) <> -1) then
    bPresent := True
  else
    bPresent := False;
[...]
end;

Essaie comme cela

[xenos]

Merci pour vos réponses.

D'après mes recherches sur internet, le terme asString est à rajouter à la fin de la chaine de la manière suivante :

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
for i:=0 to Webbrowser1.OleObject.Document.Links.Length-1 do
	begin
		[...]
          present := 'non';
 
          for j := 0 to Memo1.Lines.Count-1 do
            begin
              if (Memo1.Lines[j] = Webbrowser1.OleObject.Document.Links.Item(i).asString) then
                present := 'oui'
              else
                if (present = 'non') then
                  present := 'non';
            end;
		[...]
    end;

Cependant en effectuant une telle mise à jour, j'obtiens le message d'erreur suivant :

Project Project1.exe raised exception class EOleError with message 'Method 'asString' not supported by automation object'.

Je me suis ensuite penché sur le code de Malatar qui fonctionne à merveille !

Encore merci à tous !

Bonne journée.