BCB(11)
-
IID_IViewObject::Draw
void __fastcall TForm1::Button3Click(TObject *Sender) { HRESULT hr; IViewObject *ViewObject; hr=CppWebBrowser1->Document->QueryInterface(IID_IViewObject,(void **)&ViewObject); // hr=CppWebBrowser1->DefaultDispatch->QueryInterface(IID_IViewObject,(void **)&ViewObject); //Document 나 DefaultDispatch 둘다 됩니다. if (SUCCEEDED(hr)) { TRect rc=Rect(0,0,CppWebBrowser1->Width, CppWebBrowser1->Height); Image..
2008.07.21 -
ie의 스크롤 영영까지 포함해서 캡쳐하는 팁!
http://www.delphipages.com/ 에서 봤던 ie의 스크롤 영영까지 포함해서 캡쳐하는 팁이 있더군요.. 참고하세요..^^ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MSHTML, StdCtrls, ExtCtrls, OleCtrls, SHDocVw, gifimage; const IID_IHTMLElementRender: TGUID = '{3050F669-98B5-11CF-BB82-00AA00BDCE0B}'; type IHTMLElementRender = interface(IUnknown) ['{3050F669-98B5-11CF-BB82-..
2008.07.21 -
TShellWindows 인데 FindWindow로 변경했을 떄와 같이 HWND를 받을 수 있도록 찾아보자.
//--------------------------------------------------------------------------- #include #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "shdocvw_ocx" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm..
2008.07.18 -
TShellWindows
#include #include // IHTMLWindow2의 execScript을 이용한 자바호출 void ExecScript(IHTMLDocument2* doc, String script) { if (!doc) return; IHTMLWindow2* win; HRESULT hr = doc->get_parentWindow(&win); if (SUCCEEDED(hr)) { try { VARIANT v; VariantInit(&v); win->execScript( WideString(script), WideString("javascript"), &v ); VariantClear(&v); } __finally { win->Release(); } } } // 자바스크립트 호출 테스트. void __fastca..
2008.07.14 -
[BCB] HtmlElements - TTreeView
void __fastcall TForm1::Button1Click(TObject *Sender) { // AnsiString c1, c2; GetTextFile("c:\\ssr.txt", c1); Memo1->Lines->Clear(); Memo1->Lines->Add(c1); TTreeNode *node; node = TreeView1->Selected; int stPos, edPos; int cnt = 0; AnsiString tmp = c1; AnsiString tmp2, tmp3; while((stPos = tmp.AnsiPos("")) > 0) { tmp2 = tmp.SubString(stPos, edPos); TreeView1->Items->Add(node, tmp2); tmp = tmp.Su..
2008.07.10