delphi return all URL

 

delphi return all URL

USER MSHTML
procedure TfrmWebEmail.btn5Click(Sender: TObject);
var
Doc: IHTMLDocument2;
Len: Integer;
item: OleVariant;
all: IHTMLElementCollection;
I: Integer;
begin
Doc := ebdwbWeb.Document as IHTMLDocument2;
all := Doc.links;
Len := all.length;
for I := 0 to Len -1 do
begin
item := all.item(I, EmptyParam);
mm1.Lines.Add(item.href) ;
end;

0