Discussion :

[TimBuk]

Bonjour,

J'essaye de coder une fonction qui va me permettre de récuperer un lien en particulier (vers un .zip) dans une page, et j'ai une erreur avec le code de la faq (ici)
Voila le code tout entier:

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
function VerifVersion(MemoTest: TMemo; Browser: TWebBrowser): String;
var
  i: Integer;
  der_version: String;
begin
  Browser.Navigate('http://lien');
  for i:=0 to 29 do
    if Not AnsiPos('zip', Browser.OleObject.Document.Links.Item(i)) = 0 then //J'ai transformé le Memo.Add pour pouvoir filtrer directement, mais j'avais la même erreur
    begin
      MemoTest.Lines.Add(Browser.OleObject.Document.Links.Item(i));
      //+ d'autres traitements à faire ici
    end;
 
  Result:= der_version;
end;

Voici l'erreur:

Code :

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

Could not convert variant of type (Dispatch) into type (OleStr)

Merci d'avance

[delagoutte]

première chose :

Code :

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

1
2
3
4
 
for i := 0 to Browser.OleObject.Document.Links.Item(i).Length -1 do
begin
.....

cela t'évitera des erreurs si il y a moins de 30 liens.

Deuxième chose :
ton webbrowser n'a peut être pas fini de charger la page quand tu attaques la boucle.

de tête et pas sans risque de boucle infini:

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
 
variable global
DocComplete : boolean;
 
onBeforenavigate2WebBrowser()
begin
docComplete := false;
end;
 
OnDocumentCompleteWebBrowser()
begin
docComplete := true;
end;
 
Browser.Navigate('http://lien');
While not DocComplete do
  Application .Processmessage;
For i:= 0 to .....

A tester pour voir si ça te débloque

[TimBuk]

J'ai rajouté le code, mais j'ai toujours la même erreur sur

Code :

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

if Not AnsiPos('zip', Browser.OleObject.Document.Links.Item(i)) = 0 then

Edit: Et j'ai aussi une erreur avec Browser.OleObject.Document.Links.Item(i).Length -1 das le for:

Code :

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

Method 'Length' not supported by automation object

[Franck SORIANO]

Edit: Et j'ai aussi une erreur avec Browser.OleObject.Document.Links.Item(i).Length -1 das le for:

Non, il fallait comprendre :

Code :

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

1
2
 
  for i:=0 to Browser.OleObject.Document.Links.Length-1 do

Ensuite, je dois dire que je suis étonné si l'exemple de la FAQ fonctionne.
Links.Item(i) retourne normalement une interface IDispatch qui décrit un objet de type Link. Ce n'est pas une chaîne de caractère. Comme j'imagine que tu cherches en fait la cible du lien, essaie avec :

Code :

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

1
2
 
if Not AnsiPos('zip', Browser.OleObject.Document.Links.Item(i).href) = 0 then

[delagoutte]

j'ai utilisé par le passé le code de la faq sans problème.(winxp+delphi7+IE8)
vérifie que tu as ces unité dans tes uses :
SHDocVw, SHDocVw_TLB,mshtml_tlb,variants,activex,ComObj


Sinon, ci dessous tu trouveras une adaption d'une partie du code que j'utilise maintenant (renvoi tous les liens même ceux des frames si il y en a de manière récursive) :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
function ViewAllLink(MyWebBrowser : TEmbeddedWB):string;
var
  UNum: Variant;
  s: string;
  ResList: TStringList;
  OleObject: Variant;
 
  procedure RecurseLinks(htmlDoc: Variant);
  var
    BodyElement, ElementCo,ElementClick, HTMLFrames, HTMLWnd, doc: OleVariant;
    k,j, i: Integer;
  begin
    if VarIsEmpty(htmlDoc) then Exit;
    BodyElement := htmlDoc.body;
    if BodyElement.tagName = 'BODY' then
    begin
      ElementCo := htmlDoc.links;
      j := ElementCo.Length - 1;
      for i := 0 to j do
      begin
        UNum := ElementCo.item(i);
        try
        s := UNum.href;
        except
          s:='';
        end;
        if j = 0 then
          s := ''
        else
          ResList.Add(s);
      end;
    end;
    HTMLFrames := htmlDoc.Frames;
    j := HTMLFrames.Length - 1;
    for i := 0 to j do
    begin
      HTMLWnd := HTMLFrames.Item(i);
      try
        doc := HTMLWnd.Document;
        RecurseLinks(doc);
      except
        Continue;
      end;
    end;
  end;
begin
  try
  ResList := TStringList.Create;
  OleObject := Mywebbrowser.OleObject ;
  if not DocumentLoaded(OleObject.Document) then
    Exit;
  RecurseLinks(OleObject.Document);
  result := ResList.text;
  finally
  ResList.Free;
  end;
end;

Comme tu peux le voire j'utilise principalement un autre compo que le TWebbrowser classique mais le principe reste le même. et cela devrait marcher avec un TWebbrowser classique au lieu d'un TEmbeddedWB.

[TimBuk]

J'ai été un peu occupé ces derniers temps, j'ai pas trop pu m'occuper de ce projet.

Mais voila, j'ai continué de coder et j'ai fini par avoir ç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
function TLauncherForm.VerifVersion(): String;
var
  tableau_adresse: TExplodeArray;
  i: Integer;
begin
  StatusBar1.SimpleText := 'Connexion au site';
  MajBrowser.Navigate(EditDLPage.Text);
 
  while not docComplete do
    Application.Processmessages;
 
  StatusBar1.SimpleText := 'Analyse de la page';
  for i:=0 to MajBrowser.OleObject.Document.Links.Length-1 do
    if Not AnsiPos('zip', MajBrowser.OleObject.Document.Links.Item(i).href) = 0 then
      tableau_adresse := Explode('/', MajBrowser.OleObject.Document.Links.Item(i).href);
 
  StatusBar1.SimpleText := 'Vérification terminée';
  Result:= tableau_adresse[Length(tableau_adresse)-1];
end;

Voila le soucis:

Access violation at adress 004BEF 16 in module 'Launch.exe'. Read of address FFFFFFFC

Merci bien