提取文件里面全部链接的Url地址和Title，要求能真正实现！得到确认后，我给300分！(0分)

谁有demo？？？
发给我：lovecarbe@hotmail.com
收到后通知你拿分！

哈哈，我这里有一个，保证让你满意
您的信件已经成功发送到 lovecarbe@hotmail.com

看到了。。。不是很满意。。。
不过。发分的时候，会通知你的。
还有别人的吗？
看过以前的帖子，知道有人做出来过！
请帮忙！

给我一份，jsqmail@163.com

我这有部分取得EMAIL的代码，不知是否对你有用？
procedure TForm1.Button1Click(Sender: TObject);
var
doc: IHTMLDocument2;
all: IHTMLElementCollection;
len,i,flag: integer;
item: IHTMLElement;
vAttri: Variant;
begin
if assigned(IEThis) then
begin
combobox1.clear;
//获得Webbrowser对象中的文档对象
doc := iethis.document as ihtmldocument2;
//获得文档中所有的HTML元素集合
all := doc.get_all;
len := all.get_length;
//访问HTML元素集合中的每一个元素
for i:=0 to len-1 do
begin
item := all.item(i,varempty) as IHTMLElement;
//如果该元素是一个链接
if item.Get_tagname = 'A' then
begin
flag := 0;
vAttri := item.getAttribute('protocol',flag); //获得链接属性
//如果是mailto链接则将链接的目标地址添加到combobox1
if vAttri = 'mailto:' then
begin
vAttri := item.getAttribute('href',flag);
combobox1.items.add(vAttri);
end;
end;
end;
end;
end;

不能用webbrowser和ihtmldocument2做。
我要提取文件里面的，比如文本文件的。。。里面的。。
提取网页[red]标题和连接[/red]

如果有demo。我可以给500分！[]

什么文件？是HTML文件吗？那用WebBrowser可以做到。

uses MSHTML;

...
　　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;

若要标题，doc.title 即可。

提示错误：
[Error] Unit1.pas(38): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(38): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(41): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(41): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(44): Illegal character in input file: '　' ($A1A1)
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

我有个ASP+VBSCRIPT的，给你发了，不知合用没？

To:anron
先发给我看看吧。假如能实现那个功能未尝不可！谢谢！

doc没有title的属性

接受答案了.