在C++Builder中如何用“TCppWebBrowser”POST数据

在C++Builder中如何用“TCppWebBrowser”POST数据

山注：我先介绍一下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);
}

    我没有理由相信这段代码是完美的.但是对于我先前的努力，它只有一个优点:它可以工作！
    我希望能帮助你掌握在C++Builder中使用WebBrowser.