TCppWebBrowser控件的一些用法

最新推荐文章于 2024-07-22 08:55:10 发布
最新推荐文章于 2024-07-22 08:55:10 发布
阅读量3.3k 收藏 1
点赞数
分类专栏： C++builder 学习 文章标签： system border image null javascript scroll
 
  1. 浏览器的表现形式丰富，适度的使用能使界面增色不少，介绍一下CB6中TCppWebBrowser控件的一些用法
  2. 分开说比较麻烦，从以前的工程里找了一个完整网页贴过来
  4. 网页：
  5. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  6. <html>
  7. <head>
  8. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  9. <title>免费送歌</title>
  10. <style type="text/css">
  11. input {border:1px solid #000000}
  12. <!--
  13. -->
  14. </style>
  15. <script language="JavaScript" type="text/JavaScript">
  16. <!--
  17. function MM_preloadImages() { //v3.0
  18.   var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  19.     var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  20.     if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
  21. }
  23. function MM_swapImgRestore() { //v3.0
  24.   var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
  25. }
  27. function MM_findObj(n, d) { //v4.01
  28.   var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
  29.     d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  30.   if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  31.   for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  32.   if(!x && d.getElementById) x=d.getElementById(n); return x;
  33. }
  35. function MM_swapImage() { //v3.0
  36.   var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  37.    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
  38. }
  39. //-->
  40. </script>
  41. <style type="text/css">
  42. <!--
  43. td {
  44.  font-family: "Arial";
  45.  font-size: 12px;
  46.  color: #990000;
  47.  cursor: default;
  48. }
  49. .jiben {
  50.  font-family: "Arial";
  51.  font-size: 12px;
  52.  font-weight: bold;
  53.  color: #990000;
  54.  cursor: default;
  55. }
  56. -->
  57. </style>
  58. </head>
  60. <body leftmargin="0" topmargin="0" onLoad="MM_preloadImages('image/K-17a.jpg','image/K-11a.jpg')">
  61. <table width="315" height="144" border="0" cellpadding="0" cellspacing="0">
  62.   <tr>
  63.     <td height="22"><table width="314" border="0" cellspacing="0" cellpadding="0">
  64.         <tr> 
  65.           <td width="6"><img src="image/F-1.jpg" width="4" height="25"></td>
  66.           <td> <div align="left">
  67.               <table width="310" border="0" align="right" cellpadding="0" cellspacing="0" background="image/14A.jpg" id="moveform">
  68.                 <tr> 
  69.                   <td valign="middle" 4>8751免费点歌登陆</td>
  70.                   <td width="195"><div align="right"> 
  71.                       <table width="64" border="0" cellspacing="0" cellpadding="0">
  72.                         <tr> 
  73.                           <td width="29%"><div align="right"><img src="image/A1.jpg" alt="最小化" name="minform" width="20" height="25" id="Image1" onMouseOver="MM_swapImage('Image1',','image/1A.jpg',1)" onMouseOut="MM_swapImgRestore()"></div></td>
  74.                           <td width="32%"><div align="right"><img src="image/A2.jpg" width="20" height="25"></div></td>
  75.                           <td width="27%"><div align="right"><img src="image/A3.jpg" alt="关闭" name="closeform" width="19" height="25" id="Image2" onMouseOver="MM_swapImage('Image2',','image/3A.jpg',1)" onMouseOut="MM_swapImgRestore()"></div></td>
  76.                           <td width="12%"><div align="right"></div></td>
  77.                         </tr>
  78.                       </table>
  79.                     </div></td>
  80.                 </tr>
  81.               </table>
  82.             </div></td>
  83.         </tr>
  84.       </table></td>
  85.   </tr>
  86.   <tr>
  87.     <td valign="top"><table width="315" border="0" cellspacing="0" cellpadding="0">
  88.         <tr>
  89.           <td width="10"><img src="image/L-1.jpg" width="4" height="198"></td>
  90.           <td width="260" valign="top"><table width="304" border="0" cellpadding="0" cellspacing="0" background="image/K-9.jpg">
  91.               <tr> 
  92.                 <td colspan="4"><table width="305" height="141" border="0" cellpadding="0" cellspacing="0">
  93.                     <tr> 
  94.                       <td height="141" valign="top"> <table width="201" height="132" border="0" align="center" cellpadding="0" cellspacing="0">
  95.                           <tr> 
  96.                             <td height="16" colspan="2"> </td>
  97.                           </tr>
  98.                           <tr> 
  99.                             <td colspan="2" ><div align="center" class="jiben">基 
  100.                                 本 信 息</div></td>
  101.                           </tr>
  102.                           <tr > 
  103.                             <td width="81">手机号码：</td>
  104.                             <td width="120"> <input name="MbNum" type="text" id="MbNum" size="15"></td>
  105.                           </tr>
  106.                           <tr > 
  107.                             <td>姓名：</td>
  108.                             <td> <input name="Name" type="text" id="Name" size="15"></td>
  109.                           </tr>
  110.                           <tr > 
  111.                             <td>8751ID：</td>
  112.                             <td> <input name="ID" type="text" id="ID" size="15"></td>
  113.                           </tr>
  114.                           <tr > 
  115.                             <td>备注信息：</td>
  116.                             <td> <input name="MemTextArea" type="text" id="MemTextArea" size="15"></td>
  117.                           </tr>
  118.                         </table></td>
  119.                     </tr>
  120.                   </table></td>
  121.               </tr>
  122.               <tr> 
  123.                 <td width="83" height="38"> </td>
  124.                 <td width="84"><a href="#"><img src="image/K-17.jpg" name="Ok" width="55" height="19" border="0" id="Ok" onMouseOver="MM_swapImage('Ok',','image/K-17a.jpg',1)" onMouseOut="MM_swapImgRestore()"></a></td>
  125.                 <td width="79"> <div align="center"><a href="#"><img src="image/K-11.jpg" name="Cancel" width="55" height="19" border="0" id="Cancel" onMouseOver="MM_swapImage('Cancel',','image/K-11a.jpg',1)" onMouseOut="MM_swapImgRestore()"></a></div></td>
  126.                 <td width="59"> <div align="left"></div></td>
  127.               </tr>
  128.               <tr> 
  129.                 <td colspan="4"> </td>
  130.               </tr>
  131.               <tr> 
  132.                 <td height="4" colspan="4"><img src="image/K-8.jpg" width="306" height="4"></td>
  133.               </tr>
  134.             </table></td>
  135.           <td width="45"><img src="image/K-7.jpg" width="4" height="198"></td>
  136.         </tr>
  137.       </table></td>
  138.   </tr>
  139. </table>
  140. <div align="right"></div>
  141. </body>
  142. </html>
  144. .h
  145. #ifndef AddFriendFormH
  146. #define AddFriendFormH
  147. //---------------------------------------------------------------------------
  148. #include <Classes.hpp>
  149. #include <Controls.hpp>
  150. #include <StdCtrls.hpp>
  151. #include <Forms.hpp>
  152. #include "SHDocVw_OCX.h"
  153. #include <OleCtrls.hpp>
  154. //---------------------------------------------------------------------------
  155. class TfrmAddFriend : public TForm
  156. {
  157. __published: // IDE-managed Components
  158.         TCppWebBrowser *CppWebBrowserAddFriend;
  159.         void __fastcall FormCreate(TObject *Sender);
  160.         void __fastcall CppWebBrowserAddFriendDocumentComplete(TObject *Sender,
  161.           LPDISPATCH pDisp, Variant *URL);
  162.         void __fastcall FormDestroy(TObject *Sender);
  163. private:
  164.         void MoveFormEvt(DISPID id, VARIANT* pVarResult);
  165.         void MoveForm(void);
  166.         void MaskEvt(DISPID id, VARIANT* pVarResult);
  167.         void SetBrowserStyle(void);
  168.         void CancelEvt(void);
  169.         void ReleaseHook(void);
  170.         void AddFriendOnClick(DISPID id, VARIANT* pVarResult);
  171.         AnsiString GetInputValue(AnsiString itemname);
  172.         void OnKeyPressEvt(DISPID id, VARIANT* pVarResult);
  173.         void SetFocusInput(AnsiString itemname);
  174.         void PutInputValue(AnsiString itemname, AnsiString value); // User declarations
  175. public:  // User declarations
  176.         AnsiString MbNum;
  177.         AnsiString FriendName;
  178.         AnsiString ID8751;
  179.         AnsiString Info;
  180.         __fastcall TfrmAddFriend(TComponent* Owner);
  181. };
  182. //---------------------------------------------------------------------------
  183. extern PACKAGE TfrmAddFriend *frmAddFriend;
  184. //---------------------------------------------------------------------------
  185. #endif
  187. .cpp
  188. //---------------------------------------------------------------------------
  190. #include <vcl.h>
  191. #pragma hdrstop
  193. #include "AddFriendForm.h"
  194. #include "GlobalFunc.h"
  195. #include "GlobalVar.h"
  196. //---------------------------------------------------------------------------
  197. #pragma package(smart_init)
  198. #pragma link "SHDocVw_OCX"
  199. #pragma resource "*.dfm"
  200. TfrmAddFriend *frmAddFriend;
  201. //---------------------------------------------------------------------------
  202. __fastcall TfrmAddFriend::TfrmAddFriend(TComponent* Owner)
  203.         : TForm(Owner)
  204. {
  205. }
  206. //---------------------------------------------------------------------------
  207. void __fastcall TfrmAddFriend::FormCreate(TObject *Sender)
  208. {
  209.         this->CppWebBrowserAddFriend->HandleNeeded();
  210.         this->CppWebBrowserAddFriend->Navigate(WideString(GetResPath("AddFriends.htm")),NULL,NULL,NULL,NULL);
  212.         CutFormRgn(Handle,316,225);
  213. }
  214. //---------------------------------------------------------------------------
  215. void TfrmAddFriend::MoveFormEvt(DISPID id, VARIANT* pVarResult) 
  216. {
  217.         //TODO: Add your source code here
  218.         _di_IDispatch disp;
  219.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  220.         System::DelphiInterface<IHTMLWindow2> htmlwnd2;
  221.         System::DelphiInterface<IHTMLEventObj> htmlevt;
  222.         System::DelphiInterface<IHTMLElement> htmlelem;
  224.         disp = this->CppWebBrowserAddFriend->Document;
  225.         if(!disp)
  226.                 return;
  228.         htmldoc2 = disp;
  229.         htmldoc2->get_parentWindow(&htmlwnd2);
  230.         htmlwnd2->get_event(&htmlevt);
  232.         htmlevt->get_srcElement(&htmlelem);
  234.         WideString _tag;
  236.         htmlelem->get_tagName(&_tag);
  238.         long btn,_x,_y;
  239.         htmlevt->get_button(&btn);
  240.         htmlevt->get_screenX(&_x);
  241.         htmlevt->get_screenY(&_y);
  243.         if(_tag == WideString("TD") && btn == 1)
  244.         {
  245.                 ::ReleaseCapture();
  246.                 ::SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,MAKELPARAM(_x,_y));
  247.         }
  248.         pVarResult->vt = VT_BOOL;
  249.         pVarResult->boolVal = FALSE;
  250. }
  252. void TfrmAddFriend::MoveForm(void)
  253. {
  254.         //TODO: Add your source code here
  255.         _di_IDispatch disp;
  256.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  257.         System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;
  258.         System::DelphiInterface<IHTMLElement> htmlelem;
  260.         disp = this->CppWebBrowserAddFriend->Document;
  261.         if(!disp)
  262.                 return;
  264.         htmldoc2 = disp;
  265.         htmldoc2->get_all(&htmlelemcoll);
  266.         htmlelemcoll->item(TVariant("moveform"),TVariant(0),&disp);
  267.         htmlelem = disp;
  269.         TVariant OnfrmMosuseDown;
  270.         OnfrmMosuseDown = CFunctionObject<TfrmAddFriend>::CreateEventFunctionObject(this,&TfrmAddFriend::MoveFormEvt,0);
  271.         htmlelem->put_onmousedown(OnfrmMosuseDown);
  272. }
  274. void TfrmAddFriend::MaskEvt(DISPID id, VARIANT* pVarResult)
  275. {
  276.         //TODO: Add your source code here
  277.         _di_IDispatch disp;
  278.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  279.         System::DelphiInterface<IHTMLWindow2> htmlwnd2;
  280.         System::DelphiInterface<IHTMLEventObj> htmlevt;
  281.         System::DelphiInterface<IHTMLElement> htmlelem;
  283.         disp = this->CppWebBrowserAddFriend->Document;
  284.         
  285.         if(!disp)
  286.                 return;
  288.         htmldoc2 = disp;
  289.         htmldoc2->get_parentWindow(&htmlwnd2);
  290.         htmlwnd2->get_event(&htmlevt);
  292.         htmlevt->get_srcElement(&htmlelem);
  294.         WideString _tag;
  296.         htmlelem->get_tagName(&_tag);
  297.         if(_tag == WideString("INPUT"))
  298.                 return;
  300.         pVarResult->vt = VT_BOOL;
  301.         pVarResult->boolVal = FALSE;
  302. }
  304. void TfrmAddFriend::CancelEvt(void)
  305. {
  306.         //TODO: Add your source code here
  307.         _di_IDispatch disp;
  308.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  309.         System::DelphiInterface<IHTMLElement> htmlelem;
  310.         System::DelphiInterface<IHTMLElement2> htmlelem2;
  312.         disp = this->CppWebBrowserAddFriend->Document;
  313.         if(!disp)
  314.                 return;
  316.         htmldoc2 = disp;
  317.         htmldoc2->get_body(&htmlelem);
  318.         htmlelem2 = htmlelem;
  320.         TVariant vt;
  321.         vt = CFunctionObject<TfrmAddFriend>::CreateEventFunctionObject(this,&TfrmAddFriend::MaskEvt,0);
  322.         htmlelem->put_onselectstart(vt);
  323.         htmlelem2->put_oncontextmenu(vt);
  324. }
  326. void TfrmAddFriend::SetBrowserStyle(void)
  327. {
  328.         //TODO: Add your source code here
  329.         _di_IDispatch disp;
  330.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  331.         System::DelphiInterface<IHTMLElement> htmlelem;
  332.         System::DelphiInterface<IHTMLBodyElement> htmlbody;
  333.         System::DelphiInterface<IHTMLStyle> htmlsty;
  335.         disp = this->CppWebBrowserAddFriend->Document;
  336.         if(!disp)
  337.                 return;
  339.         htmldoc2 = disp;
  340.         htmldoc2->get_body(&htmlelem);
  341.         htmlbody = htmlelem;
  342.         htmlbody->put_scroll(WideString("no"));
  343.         htmlelem->get_style(&htmlsty);
  344.         htmlsty->put_border(WideString("none"));
  345. }
  347. void TfrmAddFriend::ReleaseHook(void)
  348. {
  349.         //TODO: Add your source code here
  350.         _di_IDispatch disp;
  351.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  352.         System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;
  353.         System::DelphiInterface<IHTMLElement> htmlelem;
  354.         System::DelphiInterface<IHTMLElement2> htmlelem2;
  356.         disp = this->CppWebBrowserAddFriend->Document;
  357.         if(!disp)
  358.                 return;
  360.         htmldoc2 = disp;
  361.         htmldoc2->get_all(&htmlelemcoll);
  362.         htmlelemcoll->item(TVariant("moveform"),TVariant(0),&disp);
  364.         htmlelem = disp;
  366.         VARIANT varNull;
  367.         varNull.vt = VT_NULL;
  368.         htmlelem->put_onmousedown(varNull);
  370.         htmldoc2->get_body(&htmlelem);
  371.         htmlelem->put_onselectstart(varNull);
  372.         htmlelem->put_onclick(varNull);
  373.         htmlelem->put_onkeypress(varNull);
  375.         htmlelem2 = htmlelem;
  376.         htmlelem2->put_oncontextmenu(varNull);
  377. }
  379. AnsiString TfrmAddFriend::GetInputValue(AnsiString itemname)
  380. {
  381.         //TODO: Add your source code here
  382.         AnsiString rtn = "";
  384.         _di_IDispatch disp;
  385.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  386.         System::DelphiInterface<IHTMLElement> htmlelem;
  387.         System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;
  389.         disp = this->CppWebBrowserAddFriend->Document;
  390.         if(!disp)
  391.                 return rtn;
  393.         htmldoc2 = disp;
  394.         htmldoc2->get_all(&htmlelemcoll);
  395.         htmlelemcoll->item(TVariant(itemname),TVariant(0),&disp);
  396.         htmlelem = disp;
  397.         TVariant val;
  398.         htmlelem->getAttribute(WideString("value"),0,&val);
  399.         rtn = val.bstrVal;
  401.         return rtn;
  402. }
  404. void TfrmAddFriend::PutInputValue(AnsiString itemname, AnsiString value)
  405. {
  406.         //TODO: Add your source code here
  407.         _di_IDispatch disp;
  408.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  409.         System::DelphiInterface<IHTMLElement> htmlelem;
  410.         System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;
  412.         disp = this->CppWebBrowserAddFriend->Document;
  413.         if(!disp)
  414.                 return;
  416.         htmldoc2 = disp;
  418.         htmldoc2->get_all(&htmlelemcoll);
  419.         htmlelemcoll->item(TVariant(itemname),TVariant(0),&disp);
  420.         htmlelem = disp;
  421.         htmlelem->setAttribute(WideString("value"),TVariant(value),0);
  422. }
  424. void TfrmAddFriend::AddFriendOnClick(DISPID id, VARIANT* pVarResult)
  425. {
  426.         //TODO: Add your source code here
  427.         _di_IDispatch disp;
  428.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  429.         System::DelphiInterface<IHTMLWindow2> htmlwnd2;
  430.         System::DelphiInterface<IHTMLEventObj> htmlevt;
  431.         System::DelphiInterface<IHTMLElement> htmlelem;
  433.         disp = this->CppWebBrowserAddFriend->Document;
  434.         if(!disp)
  435.                 return;
  437.         htmldoc2 = disp;
  438.         htmldoc2->get_parentWindow(&htmlwnd2);
  439.         htmlwnd2->get_event(&htmlevt);
  440.         htmlevt->get_srcElement(&htmlelem);
  442.         WideString ws;
  443.         bool flag;
  444.         ws.SetLength(64);
  445.         htmlelem->get_tagName(&ws);
  446.         if(ws == WideString("IMG"))
  447.         {
  448.                 TVariant val;
  449.                 htmlelem->getAttribute(WideString("name"),0,&val);
  451.                 AnsiString str;
  452.                 str = val.bstrVal;
  453.                 if(str == WideString("closeform"))
  454.                 {
  455.                         this->Close();
  456.                 }
  457.                 else if(str == WideString("minform"))
  458.                 {
  459.                         this->WindowState = wsMinimized ;
  460.                 }
  461.                 else if(str == WideString("Ok"))
  462.                 {
  463.                         this->MbNum = this->GetInputValue("MbNum");
  464.                         this->FriendName = this->GetInputValue("Name");
  465.                         this->ID8751 = this->GetInputValue("ID");
  466.                         this->Info = this->GetInputValue("MemTextArea");
  467.                         this->ModalResult = mrOk;
  468.                         this->Close();
  469.                 }
  470.                 else if(str == WideString("Cancel"))
  471.                 {
  472.                         this->ModalResult = mrCancel;
  473.                         this->Close();
  474.                 }
  475.         }
  476.         pVarResult->vt = VT_BOOL;
  477.         pVarResult->boolVal = FALSE;
  478. }
  479. //---------------------------------------------------------------------------
  480. void __fastcall TfrmAddFriend::CppWebBrowserAddFriendDocumentComplete(
  481.       TObject *Sender, LPDISPATCH pDisp, Variant *URL)
  482. {
  483.         this->CancelEvt();
  484.         this->SetBrowserStyle();
  485.         this->MoveForm();
  487.         _di_IDispatch disp;
  488.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  489.         System::DelphiInterface<IHTMLElement> htmlelem;
  491.         disp = this->CppWebBrowserAddFriend->Document;
  492.         if(!disp)
  493.                 return;
  495.         htmldoc2 = disp;
  496.         htmldoc2->get_body(&htmlelem);
  498.         TVariant vt;
  499.         vt = CFunctionObject<TfrmAddFriend>::CreateEventFunctionObject(this,&TfrmAddFriend::AddFriendOnClick,0);
  500.         htmlelem->put_onclick(vt);
  502.         vt = CFunctionObject<TfrmAddFriend>::CreateEventFunctionObject(this,&TfrmAddFriend::OnKeyPressEvt,0);
  503.         htmlelem->put_onkeypress(vt);
  505.         this->SetFocusInput("MbNum");
  506. }
  507. //---------------------------------------------------------------------------
  508. void TfrmAddFriend::OnKeyPressEvt(DISPID id, VARIANT* pVarResult)
  509. {
  510.         //TODO: Add your source code here
  511.         _di_IDispatch disp;
  512.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  513.         System::DelphiInterface<IHTMLWindow2> htmlwnd2;
  514.         System::DelphiInterface<IHTMLEventObj> htmlevt;
  516.         disp = this->CppWebBrowserAddFriend->Document;
  517.         if(!disp)
  518.                 return;
  519.                 
  520.         htmldoc2 = disp;
  521.         htmldoc2->get_parentWindow(&htmlwnd2);
  522.         htmlwnd2->get_event(&htmlevt);
  524.         long key;
  525.         htmlevt->get_keyCode(&key);
  527.         if(int(key) == 13)
  528.         {
  529.                 this->MbNum = this->GetInputValue("MbNum");
  530.                 this->FriendName = this->GetInputValue("Name");
  531.                 this->ID8751 = this->GetInputValue("ID");
  532.                 this->Info = this->GetInputValue("MemTextArea");
  533.                 this->ModalResult = mrOk;
  534.                 this->Close();
  535.                 pVarResult->vt = VT_BOOL;
  536.                 pVarResult->boolVal = FALSE;
  537.         }
  538.         if(int(key) == 27)
  539.         {
  540.                 this->Close();
  541.                 pVarResult->vt = VT_BOOL;
  542.                 pVarResult->boolVal = FALSE;
  543.         }
  544. }
  546. void TfrmAddFriend::SetFocusInput(AnsiString itemname)
  547. {
  548.         //TODO: Add your source code here
  549.         _di_IDispatch disp;
  550.         System::DelphiInterface<IHTMLDocument2> htmldoc2;
  551.         System::DelphiInterface<IHTMLElementCollection> htmlelemcoll;
  552.         System::DelphiInterface<IHTMLElement2> htmlelem2;
  554.         disp = this->CppWebBrowserAddFriend->Document;
  555.         if(!disp)
  556.                 return;
  558.         htmldoc2 = disp;
  559.         htmldoc2->get_all(&htmlelemcoll);
  560.         htmlelemcoll->item(TVariant(itemname),TVariant(0),&disp);
  562.         if(!disp)
  563.                 return;
  565.         htmlelem2 = disp;
  566.         htmlelem2->focus();
  567. }
  570. void __fastcall TfrmAddFriend::FormDestroy(TObject *Sender)
  571. {
  572.         this->ReleaseHook();        
  573. }
wesleyluo
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
完全掌握TCppWebBrowser控件
02-23
一个使用TCppWebBrowser控件做的多窗口浏览器，强烈推荐！
TreeGridView1控件的使用方法
02-13
但是今天我为大家介绍另外一款开源控件TreeGridView，这款控件的基本使用方法如下进行介绍： 使用这款控件之前需要进行一些准备，引用中添加Krypton.Toolkit.Suite.Extended.TreeGridView。 在using中添加using ...
组态王视频控件使用方法.pdf
03-31
组态王视频控件使用方法.pdf组态王视频控件使用方法.pdf组态王视频控件使用方法.pdf组态王视频控件使用方法.pdf组态王视频控件使用方法.pdf
TCPPWebBrowser中document使用
hahu的专栏
01-20 5168
http://dev.hackbase.com/hackbase10/how300178.htm看看吧void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject *Sender,      LPDISPATCH pDisp, TVariant *URL){//为了保证同步，应该把获取Document内容的代码放到OnDocume
[delphi组件] Webbrowser的使用
mrwu9902的专栏
03-04 791
delphi中Webbrowser的使用1.获得网页中变量值     htm中 var currID=123     程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID     值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个
WebBrowser的Cookie操作
weixin_30361753的博客
08-05 231
WebBrowser的Cookie操作1.在WebBrowser中获取CookieCookieContainer myCookieContainer = new CookieContainer();string cookieStr = webBrowser1.Document.Cookie;string[] cookstr = cookieStr.Split(';');foreach (strin...
TCppWebBrowser显示的网页内容不能拷贝到剪贴板
天道酬勤
04-19 1131
在FormCreate加OleInitialize(NULL); 及FormDestroy加OleUninitialize();
BCB6.0里没有TCppWebBrowser
十年磨一剑，霜刃未曾试!
05-20 2165
<br />TCppWebBrowser组件在Intelnet板上没有.可以通过以下步骤解决<br />Component-->Install Packages-->查看Design Packages列表中是否存在Borland C++Builder Internet Explorer 5 Components Package一项，如果没有，点击Add按钮-->找到$(BCB)/bin/bcbie60.bpl添加进来(如果连这个文件也找不到，可能是你的BCB安装不太完整)-->如果列表中存在这一项，请选中对
CPPWebBrowser的几个简单应用
Compile failed
05-25 7149
以下应用应该包含文件1.去除边框和滚动条一般你可以把这个函数放在CppWebBrowser的OnDocumentComplete事件中调用void __fastcall TForm1::SetBrowserStyle(){ _di_IDispatch disp = CppWebBrowser1->Document; if(disp == NULL) return; //这
MFC新控件使用方法_split_MFC新控件使用方法_
10-03
在这个主题中，我们将深入探讨"Split Button"（分隔按钮）和"Network Address Control"（网络地址控件）的使用方法。 1. Split Button（分隔按钮） Split Button是一种结合了普通按钮和下拉菜单功能的控件，它允许...
c# Timer 控件的使用方法介绍
05-21
Timer控件的使用方法介绍
使用IE控件的一些有趣方法.zip_IE控件
09-24
这个“使用IE控件的一些有趣方法.zip_IE控件”压缩包可能包含了一些关于如何创造性地利用IE控件进行开发的示例和教程。以下是围绕这个主题的详细知识点： 1. **什么是IE控件**： IE控件，也称为WebBrowser控件，是...
TCppWebBrowser如何调用navigate
X空间
12-04 1051
OleVariant TargetFrameName,PostData,Heads,Flags;   WideString URL;   TargetFrameName=AnsiString("");//指定Frame为空字符串时,则在当前Frame中打开网页    PostData = OleVariant(false);//不发送数据    Heads = AnsiSt
讓WebBrowser可以辨認Navigate Error Http 404 的錯誤(不止404)
学习笔记
07-16 4918
為了要讓WEBBROWSER能夠追到網頁的ERROR CODE查了好多資料，都沒結果，好不容易找到了MSDN，卻還是看不懂，不過MSDN的好處是稍稍理解一下，就可以直接剪程式碼來用了，我把程式碼做作CLASS，只要讓WEBBROWSER實做WEBBROWSER2即可。(也是要稍稍動點手腳啦) 在Form1.designer.cs裡面要改成 this.xwebbowser = new WebBr
C++BUILDER2010下屏蔽webbrowser脚本错误对话框
fsfans的专栏
01-03 2684
使用Webbrowser->Silent = True一刀切屏蔽脚本错误对话框（不执行有错误的脚本），但是某些页面需要执行js脚本的。 搜索互联网，很多都是MFC和.NET的，只找到一篇BCB的添加右击菜单的。经过学习改进MFC代码，尝试了很多代码，实现了继承IDocHostUIHandler、IOleCommandTarget，并实现了接口。最后几乎要放弃该方法，去使用枚举对象。但是还是不甘心
c++builder启动了怎么停止_更快！更高效！异步启动框架Alpha完全解析
weixin_31320437的博客
12-23 180
本文作者作者：积木zz链接：https://juejin.im/post/6844904201143713806本文由作者授权发布。之前推送过一篇：推荐一个更贴近 android 场景的启动框架 | Anchors文中提到 alpha，因为 alpha 是阿里开源的，想了解的同学应该更多一些，那么就开看吧。1背景‍‍‍‍启动优化，其实就是优化从点击icon到主页面展示这个过程的速度，让主...
在C++Builder的CppWebBrowser调用窗体
bobWu 的 学习日记
05-20 2886
在C++Builder的CppWebBrowser调用窗体方法
Blazor 长时间不操作导致链接time out的问题
m0_46704355的博客
01-25 505
public void Configure(IApplicationBuilder app, IWebHostEnvironment env) { app.UseEndpoints(endpoints => { endpoints.MapControllerRoute( name: "default", pattern: "{controller=Hom...
Vue 3 和 SpringBoot 实现文件分片上传示例
最新发布
exlink2012的专栏
07-22 285
实现分片上传，并使用Spring Boot在后端保存文件。前端将文件分片并逐个上传到后端，后端接收到所有分片后再进行合并，最终保存为一个完整文件。
"Ext初学控件介绍及使用方法
官方文档提供了对每个控件的详细说明和示例代码，而在线教程则能帮助我们更好地理解和掌握ExtJS的使用方法。 总之，在初学ExtJS时，我们需要重点掌握一些常用的控件，特别是弹框和表格Grid控件。这些控件在实际应用...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值