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