标签:
今天用CDHtmlDialog创建了一个简单的浏览器程序,遇到了一个问题,记录一下。
问题描述:当超链接的打开方式为_blank的时候,会弹出一个服务器忙的对话框,如图:
网页内容
<HTML> <HEAD> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/> </HEAD> <BODY ID=CAntiNetTimeoutDlg BGCOLOR=LIGHTGREY style="font-family:MS Shell Dlg;font-size:9"> <a href="http://www.baidu.com" target="_blank" >百度</a> <TABLE WIDTH=100% HEIGHT=100%> <TR WIDTH=100% HEIGHT=45%> <TD ALIGN=CENTER VALIGN=BOTTOM> TODO: Place controls here. </TD> </TR> <TR WIDTH=100% HEIGHT=100%> <TD ALIGN=RIGHT VALIGN=BOTTOM> <BUTTON STYLE="WIDTH:100" ID="ButtonOK">确定</BUTTON> <BUTTON STYLE="WIDTH:100" ID="ButtonCancel">取消</BUTTON> </TD> </TR> </TABLE> </BODY> </HTML>
如果网页代码中的a标签的打开方式不是_blank则能正常进行网页跳转,网页代码改为下面的方式,正常跳转:
<HTML> <HEAD> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/> </HEAD> <BODY ID=CAntiNetTimeoutDlg BGCOLOR=LIGHTGREY style="font-family:MS Shell Dlg;font-size:9"> <a href="http://www.baidu.com" target="_parent" >百度</a> <TABLE WIDTH=100% HEIGHT=100%> <TR WIDTH=100% HEIGHT=45%> <TD ALIGN=CENTER VALIGN=BOTTOM> TODO: Place controls here. </TD> </TR> <TR WIDTH=100% HEIGHT=100%> <TD ALIGN=RIGHT VALIGN=BOTTOM> <BUTTON STYLE="WIDTH:100" ID="ButtonOK">确定</BUTTON> <BUTTON STYLE="WIDTH:100" ID="ButtonCancel">取消</BUTTON> </TD> </TR> </TABLE> </BODY> </HTML>
百度中的新闻 贴吧等链接的打开方式也是以_blank方式,如果点击人一个链接,都会出现上面的服务忙对话框,下面给出点击贴吧的截图:
不知是何原因,难道是没有足够的页面用来打开新的网页,望有知道的高手能告知原因。
解决方案:
既然是由于a标签的打开方式引起的,那就对a标签进行一下处理吧。
思路:1、获取点击位置的标签
2、获取标签名称,查看是否为a标签
3、如果是a标签,获取打开方式,并获取href网址
4、关闭当前页面,打开href指向的页面
在PreTranslateMessage中获取鼠标按下消息,在鼠标按下消息中处理是否a标签,并对打开方式为_blank的a标签进行处理,下面给出判断页面点击位置标签的代码:
BOOL CAntiNetTimeoutDlg::IsAtag() { CComVariant variant(NULL); CString strTarget,strTagName,strHref; BSTR szTagName; long nTop; CPoint point; IHTMLElement *pElement = NULL; ::ATL::CComPtr<IHTMLDocument2> spHtmlDoc; LPDISPATCH lpDisp = NULL; GetCursorPos(&point); ScreenToClient(&point); m_pBrowserApp->get_Document(&lpDisp); HRESULT hr = lpDisp->QueryInterface(IID_IHTMLDocument2, (void**) &spHtmlDoc); if(spHtmlDoc) { if(spHtmlDoc.p) { m_pBrowserApp->get_Top(&nTop);//获取网页窗体距对话框顶部的距离 if(spHtmlDoc.p->elementFromPoint(point.x,point.y - nTop,&pElement) == S_OK)//修正鼠标点击时y方向上的值,需要减掉距离窗体顶部的高度值 { if (pElement != NULL) { hr = pElement->get_tagName(&szTagName);//获取标签名字 if(szTagName != NULL) { strTagName.Format(_T("%s"),szTagName); if(strTagName.CompareNoCase(_T("a")) == 0)//判断是非a标签 { hr = pElement->getAttribute(_T("target"),0,&variant);//获取打开方式 if (variant.vt == VT_BSTR) { strTarget = variant.bstrVal; if (strTarget.CompareNoCase(_T("_blank")) == 0)//判断是非_blank { pElement->getAttribute(_T("href"),0,&variant);//获取连接地址 if (variant.vt == VT_BSTR) { strHref = variant.bstrVal; if (PathIsURL(strHref)) { spHtmlDoc->clear(); spHtmlDoc->close();//关闭当前页面,打开href指向的页面 Navigate(strHref); } } return TRUE; } } } } } } } } return FALSE; }
CDHtmlDialog 浏览器遇到的服务器忙( Server Busy)问题
标签:
原文地址:http://blog.csdn.net/daiafei/article/details/43451249