FAQ C++ BuilderConsultez toutes les FAQ

// Interface d'OCX par défaut TCOMIWebBrowser m_OCXIntf;

1
2
// Interface d'OCX par défaut 
TCOMIWebBrowser m_OCXIntf;

// Interface d'OCX par défaut IWebBrowser2Disp m_OCXIntf;

1
2
// Interface d'OCX par défaut 
IWebBrowser2Disp m_OCXIntf;

1
2
3
4
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
  CppWebBrowser1->Navigate((WideString)"c:\\mes documents\\index.htm"); 
}

1
2
WideString Url = fichierHTML; 
CppWebBrowser1->Navigate(Url);

1
2
3
4
5
void TForm1::Button1Click(TObject *Sender) 
{ 
  WideString source = "about:" + Memo1->Lines->Text; 
  CppWebBrowser1->Navigate(source, 0, 0, 0, 0); 
}

1
2
3
4
5
void __fastcall TForm1::BrowserNewWindow2(TObject *Sender, 
      LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel) 
{ 
   *Cancel = TRUE; 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Variant vDocument = Browser->ControlInterface->Document; 
if (((IDispatch *)vDocument) != NULL) 
{ 
   Variant vBody = vDocument.OlePropertyGet("Body"); 
   Variant vStyle = vBody.OlePropertyGet("Style"); 
  
   // Pour cacher les barres de défilement 
   vStyle.OlePropertySet("OverflowX","hidden"); 
   vStyle.OlePropertySet("OverflowY","hidden"); 
  
   // Pour ne montrer que les barres de défilements nécessaires 
   vStyle.OlePropertySet("OverflowX","auto"); 
   vStyle.OlePropertySet("OverflowY","auto"); 
  
   // Pour remettre la valeur par défaut 
   // Les deux barres de défilement sont visibles et éventuellement grisées si non nécessaires 
   vStyle.OlePropertySet("OverflowX",""); 
   vStyle.OlePropertySet("OverflowY",""); 
}

Browser->ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER);

1
2
3
4
5
6
7
8
// Sélectionner tout 
Browser->ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT); 
  
// Copier la sélection dans le presse-papier 
Browser->ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT); 
  
// Désélectionner tout 
Browser->ExecWB(OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DODEFAULT);

Browser->ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT);

Browser->ExecWB(OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT);

Browser->ExecWB(OLECMDID_SAVEAS , OLECMDEXECOPT_DODEFAULT);

1
2
3
Variant pIn; 
pIn = "nom_page.html"; 
Browser->ExecWB(OLECMDID_SAVEAS , OLECMDEXECOPT_PROMPTUSER, pIn);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Variant vDocument = Browser->ControlInterface->Document; 
if (((IDispatch *)vDocument) != NULL) 
{ 
   Variant vFrames = vDocument.OlePropertyGet("Frames"); 
   Variant vFramesCount = vFrames.OlePropertyGet("Length"); 
   for (int i = 0 ; i < vFramesCount ; i++) 
   { 
      Variant vFrame = vFrames.OleFunction("Item",i); 
      Variant vFrameDocument = vFrame.OlePropertyGet("Document"); 
      if (((IDispatch *)vFrameDocument) != NULL) 
      { 
         ListBox1->Items->Add(vFrameDocument.OlePropertyGet("URL")); 
      } 
   } 
}

1
2
3
4
5
6
7
8
9
10
Variant vDocument = Browser->ControlInterface->Document; 
if (((IDispatch *)vDocument) != NULL) 
{ 
   Variant vLinks = vDocument.OlePropertyGet("Links"); 
   Variant vLinksCount = vLinks.OlePropertyGet("Length"); 
   for (int i = 0 ; i < vLinksCount ; i++) 
   { 
      ListBox1->Items->Add(vLinks.OleFunction("Item",i)); 
   } 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Variant vDocument = Browser->ControlInterface->Document; 
if (((IDispatch *)vDocument) != NULL) 
{ 
   Variant vImages = vDocument.OlePropertyGet("Images"); 
   Variant vImagesCount = vImages.OlePropertyGet("Length"); 
   for (int i = 0 ; i < vImagesCount ; i++) 
   { 
      Variant vImage = vImages.OleFunction("Item",i); 
      Variant vImageURL = vImage.OlePropertyGet("Src"); 
      Variant vImageWidth = vImage.OlePropertyGet("Width"); 
      Variant vImageHeight = vImage.OlePropertyGet("Height"); 
      Variant vImageWeight = vImage.OlePropertyGet("FileSize"); 
      Variant vImageAlt = vImage.OlePropertyGet("Alt"); 
  
      AnsiString aInfoImage = Format("%s : %d x %d Pixels; %d octets; %s", 
         ARRAYOFCONST((vImageURL,(int)vImageWidth,(int)vImageHeight,(int)vImageWeight,vImageAlt))); 
      ListBox1->Items->Add(aInfoImage); 
   } 
}

1
2
3
4
5
6
7
8
9
10
11
AnsiString aContenuText = ""; 
AnsiString aContenuHTML = ""; 
Variant vDocument = Browser->ControlInterface->Document; 
if (((IDispatch *)vDocument) != NULL) 
{ 
   Variant vBody = vDocument.OlePropertyGet("Body"); 
   Variant vContenuText = vBody.OlePropertyGet("InnerText"); 
   Variant vContenuHTML = vBody.OlePropertyGet("InnerHTML"); 
   aContenuText = vContenuText; 
   aContenuHTML = vContenuHTML; 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#include <mshtml.h> 
... 
AnsiString __fastcall GetSource (TCppWebBrowser * browser) 
{ 
   IHTMLDocument3 *html = NULL; 
   IHTMLElement *element = NULL; 
   BSTR string = L""; 
  
   try 
   { 
      if (browser->Document != NULL) 
      { 
         OleCheck(browser->Document->QueryInterface(IID_IHTMLDocument3,(LPVOID*)&html)); 
         OleCheck(html->get_documentElement(&element)); 
         OleCheck(element->get_outerHTML(&string)); 
      } 
   } 
   catch (EOleSysError &eOSE) 
   { 
      if (element != NULL) 
      { 
         element->Release(); 
      } 
      if (html != NULL) 
      { 
         html->Release(); 
      } 
      throw eOSE; 
   } 
   return (AnsiString) string; 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#include <mshtml.h> 
... 
AnsiString __fastcall GetSource (TCppWebBrowser * browser) 
{ 
   AnsiString Source = ""; 
   IHTMLDocument2 *html = NULL; 
   IPersistStreamInit *spPsi = NULL; 
   IStream *spStream = NULL; 
   try 
   { 
      if (browser->Document != NULL) 
      { 
         OleCheck(browser->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&html)); 
         IPersistStreamInit *spPsi = NULL; 
         OleCheck(html->QueryInterface(IID_IPersistStreamInit, (LPVOID*)&spPsi)); 
         if (spPsi != NULL) 
         { 
            OleCheck(CreateStreamOnHGlobal(NULL, true, &spStream)); 
            if(spStream != NULL) 
            { 
               __int64 nSize = 0; 
               STATSTG ss; 
               LARGE_INTEGER nMove; 
  
               nMove.QuadPart = 0; 
               OleCheck(spPsi->Save(spStream, true)); 
               OleCheck(spStream->Seek(nMove, STREAM_SEEK_SET, (ULARGE_INTEGER*)&nSize)); 
               OleCheck(spStream->Stat(&ss, STATFLAG_NONAME)); 
  
               nSize = ss.cbSize.QuadPart; 
               Source.SetLength(nSize); 
               OleCheck(spStream->Read((void *)Source.data(), nSize, (ULONG*)&nSize)); 
  
               spStream->Release(); 
               spStream = NULL; 
            } 
            spPsi->Release(); 
            spPsi = NULL; 
         } 
         html->Release(); 
         html = NULL; 
      } 
   } 
   catch (EOleSysError &eOSE) 
   { 
      if (spStream != NULL) 
      { 
         spStream->Release(); 
      } 
      if (spPsi != NULL) 
      { 
         spPsi->Release(); 
      } 
      if (html != NULL) 
      { 
         html->Release(); 
      } 
      throw eOSE; 
   } 
   return Source; 
}

1
2
3
4
5
6
7
8
9
10
11
12
Variant vDocument = brwInt->ControlInterface->Document; 
if (((IDispatch *)vDocument) != NULL) 
{ 
   Variant vForms = vDocument.OlePropertyGet("Forms"); 
   Variant vForm = vForms.OleFunction("NamedItem","connection"); 
   Variant vContent = vForm.OlePropertyGet("All"); 
   Variant vLoginField = vContent.OleFunction("NamedItem","login"); 
   Variant vPassField = vContent.OleFunction("NamedItem","password"); 
   vLoginField.OlePropertySet("Value","UnLogin"); 
   vPassField.OlePropertySet("Value","UnMotDePasse"); 
   vForm.OleProcedure("Submit"); 
}

1
2
private: 
   void WebPostData(TCppWebBrowser *CppWebBrowser, String sURL, String sPostData);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
void TForm1::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-urlencoded\r\n"); 
   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); 
}

WebPostData(CppWebBrowser1,"http://www.site.com/page.html","pseudo=monpseudo&pass=monpass&submit=ok");