用IdHTTP这个控件,获取网页全部代码,再用个串查找一下你指定的内容 一个小例子: var HIStrMain : string ; begin HIStrMain := IdHTTP1.get('http://www.163.com/index.htm') ; if pos('无法找到网页',HIStrMain) > 0 then begin panel1.visible := false ; end else begin panel1.Visible := true ; end ;
正则表达式 或者 用TwebBrowser打开网页 操作 WebBrowser1.Navigate('http://www.baidu.com'); //找到提交按钮 procedure TForm1.Button3Click(Sender: TObject); var i: integer; T: OleVariant; begin T := WebBrowser1.Document; for i := 0 to T.all.Length -1 do begin if T.all.item(i).tagName = 'INPUT' then begin if T.all.item(i).type = 'submit' then begin T.all.item(i).click; Exit; end; end; end; end;//网页标题 ShowMessage((WebBrowser1.Document as IHTMLDocument2).title);其他的自己试一下
一个小例子:
var
HIStrMain : string ;
begin
HIStrMain := IdHTTP1.get('http://www.163.com/index.htm') ;
if pos('无法找到网页',HIStrMain) > 0
then begin
panel1.visible := false ;
end else begin
panel1.Visible := true ;
end ;
或者
用TwebBrowser打开网页 操作
WebBrowser1.Navigate('http://www.baidu.com');
//找到提交按钮
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
T: OleVariant;
begin
T := WebBrowser1.Document;
for i := 0 to T.all.Length -1 do
begin
if T.all.item(i).tagName = 'INPUT' then
begin
if T.all.item(i).type = 'submit' then
begin
T.all.item(i).click;
Exit;
end;
end;
end;
end;//网页标题
ShowMessage((WebBrowser1.Document as IHTMLDocument2).title);其他的自己试一下