CppWebBrowser组件

最新推荐文章于 2013-01-03 12:47:15 发布

夜的眼2021

最新推荐文章于 2013-01-03 12:47:15 发布

阅读量1.9k

点赞数

分类专栏： C/C++/VC 文章标签： borland c++builder webbrowser microsoft delphi action

C/C++/VC 专栏收录该内容

21 篇文章 0 订阅

订阅专栏

我先介绍一下CppWebBrowser这个组件吧。实际上，BORLAND的这个组件是Microsoft Internet Control ActiveX控件的VCL组件形式的封装。如果你想获得更强大的功能，呵呵，说不得，你得去研究“IHTMLDocument2”接口指针了。这个东西在BCB和DELPHI 的帮助里都没有详细的说明，只能查MSDN了。当然，本文不涉及这个麻烦的东西。

摘要:这篇文章示范了如何利用“CppWebBrowser”组件的“Navigate”和“Navigate2”方法进行浏览和post数据。作者是Adam Vieweger.

这两个星期以来，我几乎撕光了我的头发！我想使用“TCppWebBrowser”组件(首先包含于Borland C++Builder 5 企业版中)写一个可以浏览网页并且允许用户向网页发送post数据的程序。这可真是郁闷了我好一段时间，因为“TCppWebBrowser”的文档非常少，而且能对我起到引导作用的文章也不多。
好，那我就卷起袖子开始干活了！我希望我的发现对你来说是有用的。
用“CppWebBrowser”实现浏览功能是非常简单的.有两个方法可以提供浏览的功能:“Navigate”和“Navigate2”：

CppWebBrowser1->Navigate("http://www.inprise.com")

“Navigate2”是对“Navigate”的扩展,但是实际上，这对我们来说无所谓 -- 在这篇文章中，我们可以使用这二中的任何一个。
如果你想了解更多“WebBrowser”组件的属性，方法和事件，请参阅MSDN：http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/Objects/WebBrowser.asp

难题
Posting data非常难以破解.Microsof的组件需要数据通过一个“SAFEARRAY”结构体进行传递。问题就是所有的“Navigate2”参数都是“TVariant”类型的.我必须在“SAFEARRAY”和“TVariant”之间进行转换.

    在Borland Community（山注：这就是Borland的开发者社区）里，我看到了一篇巨牛的教程，是讲在C++BUILDER中如何使用SAFEARRAYs的。如果你想获得更详细的信息，请参阅： SAFEARRAYs made easier
（http://community.borland.com/article/0,1410,22016,00.html）
    下面的代码示范了我研究的结果。“Navigate”需要它的TVariant是VB_ARRAY类型的并且指向一个SAFEARRAY.SAFEARRAY是由VT_UT1（一种无符号整型）类型元素组成的一维数组，并且它应该包含一个元素用以纪录要发送数据的字节数。
    晕了？好吧，来看看代码，所有的概念都将会更加清晰起来：

// *方法 1*
TVariant vtEmpty;
TVariant vtPostDataArray;
char *str = "action=LogMeIn&username=MyName&password=MyPass";

SAFEARRAY FAR *psa = NULL;
SAFEARRAYBOUND sabound[48];
sabound[0].cElements = strlen(str);
sabound[0].lLbound = 0;
psa = SafeArrayCreate(VT_UI1, 1, sabound);
for(unsigned int n = 0; n < strlen(str); n++){
SafeArrayPutElement(psa, (long*)0, (void*)str[n]);
}

vtEmpty.vt = VT_EMPTY;
vtPostDataArray.vt = VT_ARRAY;
vtPostDataArray.SetSAFEARRAY(psa);
// or vtPostDataArray=psa;

TVariant vAddress = {"http://my.server/test/postresults.asp"};
CppWebBrowser1->Navigate2(&vAddress, &vtEmpty, &vtEmpty, &vtPostDataArray, &vtEmpty);
SafeArrayDestroy(psa);

// *方法 2*
TVariant vtEmpty;
char *str = "action=LogMeIn&username=MyName&password=MyPass";
TSafeArrayDim1 dim(strlen(str));
TSafeArrayUInt1 uint_array(dim);
for(unsigned int n = 0; n < strlen(str); n++){
uint_array[n]=str[n];
}

SAFEARRAY* sa = uint_array.Detach();
SafeArrayCopy(sa, &uint_array);

vtEmpty.vt = VT_EMPTY;
TVariant vAddress = {"http://my.server/test/postresults.asp"};
CppWebBrowser1->Navigate2(&vAddress, &vtEmpty, &vtEmpty, &sa, &vtEmpty);
SafeArrayDestroy(sa);

方法 1 和方法 2都是非常完美的代码,但是它们都只有一个缺点 -- 它们不能工作! 全都正确地传递了数据,但是“Navigate” 不将数据post给指定的URL。

深度挖掘
我回到MSDN再研究WebBrowser.这时我发现两篇对我非常有帮助的文章: Q167658和Q165800. 手头上有了那些信息，我终于成功了!
这个是对我的代码的改进. 这个代码演示了如何利用一个CppWebBrowser组件浏览和post“HTTP”数据.你可以进一步修改这些代码以适应你的要求。

void WebPostData(TCppWebBrowser *CppWebBrowser, String sURL, String sPostData)

{
BSTR bstrHeaders = NULL;
TVariant vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
LPSAFEARRAY psa;
LPCTSTR cszPostData = sPostData.c_str();
UINT cElems = lstrlen(cszPostData);
LPSTR pPostData;
LPVARIANT pvPostData;

bstrHeaders = SysAllocString(L"Content-Type: application/x-www-form-urlencodedrn");
if (!bstrHeaders){
Application->MessageBox("Could not allocate bstrHeaders", "Warning", MB_OK | MB_ICONWARNING);
return;
}

V_VT(&vHeaders) = VT_BSTR;
V_BSTR(&vHeaders) = bstrHeaders;

pvPostData = vPostData;

if(pvPostData){
VariantInit(pvPostData);

    psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
    if(!psa){
      return;
    }

    SafeArrayAccessData(psa, (LPVOID*)&pPostData);
    memcpy(pPostData, cszPostData, cElems);
    SafeArrayUnaccessData(psa);

V_VT(pvPostData) = VT_ARRAY | VT_UI1;
V_ARRAY(pvPostData) = psa;
}

CppWebBrowser->Navigate((TVariant)sURL, &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
}