只提起网页中含有'http://www.mers.com.cn/ds/ds_eu_board.asp?id='字符串连接 ( 积分: 20 )

只提起网页中含有'http://www.mers.com.cn/ds/ds_eu_board.asp?id='字符串的连接到ListView1
如何实现,我的错误在哪?谢!


procedure TForm1.BitBtn4Click(Sender: TObject);
var
doc: IHTMLDocument2;
all: IHTMLElementCollection;
len, i: integer;
item: OleVariant;
listitems: TListItem;
s1,s2:string;
begin
ListView1.Items.Clear;
doc := WebBrowser_m2.Document as IHTMLDocument2;
all := doc.Get_links;
len := all.length;
for i := 0 to len - 1 do begin
item := all.item(i, varempty);
listitems := ListView1.Items.Add;
s1:=WebBrowser_m2.OleObject.document.links.item(i).href ;
// s1:=item.href;
s2:='http://www.mers.com.cn/ds/ds_eu_board.asp?id=';
if AnsiContainsStr(s1,s2) then
listitems.Caption :=item.href;
//'http://www.mers.com.cn/ds/ds_eu_board.asp?id=177012455';//在说明中加
listitems.SubItems.Add(item.innertext);//在说明中加
end;
end

只提起网页中含有'http://www.mers.com.cn/ds/ds_eu_board.asp?id='字符串的连接到ListView1
如何实现,我的错误在哪?谢!


procedure TForm1.BitBtn4Click(Sender: TObject);
var
doc: IHTMLDocument2;
all: IHTMLElementCollection;
len, i: integer;
item: OleVariant;
listitems: TListItem;
s1,s2:string;
begin
ListView1.Items.Clear;
doc := WebBrowser_m2.Document as IHTMLDocument2;
all := doc.Get_links;
len := all.length;
for i := 0 to len - 1 do begin
item := all.item(i, varempty);
listitems := ListView1.Items.Add;
s1:=WebBrowser_m2.OleObject.document.links.item(i).href ;
// s1:=item.href;
s2:='http://www.mers.com.cn/ds/ds_eu_board.asp?id=';
if AnsiContainsStr(s1,s2) then
listitems.Caption :=item.href;
//'http://www.mers.com.cn/ds/ds_eu_board.asp?id=177012455';//在说明中加
listitems.SubItems.Add(item.innertext);//在说明中加
end;
end

我也想知道

我也是