假如用户输入了一个网址,程序会访问这个网页,如果访问成功刚返回00在TWebBrowser网面上,否则返回11,现在我想要将它返回的00或11在DELPHI中用SHOWMESSAGE的方式SHOW出来,如何才能实现
解决方案 »
- delphi7 如何将txt读到DBGRID显示,同时要写入数据库
- 【求助】Delphi xml的ENCODING=“UTF-8”为ACTIVE的时候,提示错误
- 考勤刷卡,調用dll文件,運行時很慢啊。嗚嗚,怎么辦?
- 关于后台数据密码安全的问题?
- 请教高手:写数据为什么老是写不进去???
- treeview的各节点是用adoquery查询数据库得到的,但数据库数据改变后如何刷新treeview?
- 如何知道每個控件分配的內存?
- delphi 的 TADOStoredProc 返回值参数如何设??我弄了一个晚上了。大哥大姐帮帮忙吧!!!
- 请问用什么函数隐藏和显示任务栏??
- 聘请“delphi+多媒体+paradox”开发员兼职完成独立小项目!
- D6,Bde,access2000,用query的update不能同时更新数据库的多个字段。
- TListView如何获取多选时的。。。。
是以什麽方式返回的?也就是说网页本身是怎麽表示「00」和「11」的?
showmessage(doc.body.outerHTML);
var
DocIntf: IHTMLDocument2;
URL: WideString;
begin
URL := 'http://www.zhengcg.net/';
WebBrowser1.Navigate(URL);
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
if WebBrowser1.Document.QueryInterface(IHTMLDocument2, DocIntf) = 0 then
begin
if DocIntf.title = '没有可以显示的页面' then // 不同版本的操作系统可能不同
begin
ShowMessage('11');
Exit;
end;
end;
ShowMessage('00');
end;