解决方案 »
- delphi7怎样通过ini、dll文件配置SQl数据库连接?
- 如何触发Enter键事件
- 报表打印小问题
- ★★★这个问题困扰我2年,有能人志士请过来关注(ActiveForm相关),200分相送★★★
- 实现1+1=2怎么这么难,初学者求助
- 能不能改成不用“元、角、分”呀?(100分等着你,在线等待)
- 一个关于多线程的问题?大家救救我吧!
- foxnt、zswang、windindance,斑竹们,还有许许多多的高手们。。。。
- 求救,关键字:索引
- 我在delphi中写的汉字注释拷到写字本上或Word上就是乱码 ,各位请帮忙!
- 如何用delphi编写简单的VPN软件
- delphi 可有其他的浏览器?除了webbrowser
<table class="table" id="detailTable"> </table>
detailtable就是列表在网页里的ID。获取网页:
var
iHttp:TIdHTTP;
begin
try
iHttp:=TIdHTTP.Create(nil);
Memo2.Lines.Text:= UTF8Decode(iHttp.Get(Memo1.Lines.GetText));
WebBrowser1.Navigate(Memo1.Lines.GetText);
except
Showmessage('网络出错!');
Exit;
end;
end;根据ID来获取内容:
var
Doc:IHTMLDocument2;
Fdiv:IHTMLElement;
begin
try
Doc:=WebBrowser1.Document as IHTMLDocument2;
Fdiv:=Doc.all.item('detailTable',varEmpty) as IHTMLElement;
Memo2.Lines.Text:=FDiv.innerText;
except
Showmessage('网络出错!');
Exit;
end;
end;