这段代码是提取网页中的所有链接，怎么在delphi7里编译不了，谢谢解答！！！！(100分)

var
　　 　　　doc:IHTMLDocument2;
　　 　　　all:IHTMLElementCollection;
　　 　　　len,i:integer;
　　 　　　item:OleVariant;
　　 　　begin
　　 　　　doc:=WebBrowser1 .Document as IHTMLDocument2;
　　 　　　all:=doc.Get_links;　　　　　　　　　　　　　//doc.Links亦可
　　 　　　len:=all.length;
　　 　　　for i:=0 to len-1 do begin
　　 　　　　item:=all.item(i,varempty);　　　　　　　　//EmpryParam亦可
　　 　　　　memo1.lines.add(item.href);
　　 　　　end;
　　 　　end;
前面加上了
uses
mshtml
这段代码是提取网页中的所有链接，怎么在delphi7里编译不了，谢谢解答！！！！

我这边编译没有任何问题！！

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
mshtml, OleCtrls, SHDocVw;//看看你的引用单元里面有这三个单元吗？

type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;//添加了一个控件
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
begin
doc:=WebBrowser1.Document as IHTMLDocument2;
all:=doc.Get_links;//doc.LinksÒà¿É
len:=all.length;
for i:=0 to len-1 do begin
item:=all.item(i,varempty);//EmpryParamÒà¿É
memo1.lines.add(item.href);
end;
end;

end.

谢谢！

royal1442，你好，有1年没来这儿，怎么接分里