전체 글(91)
-
DoCapture(IHTMLElement *ele, IViewObject2 *vObj, int width, int height, int cwidth, int cheight, int wd, int hd)
void __fastcall TForm1::Button1Click(TObject *Sender) { CppWebBrowser1->Navigate(WideString(Edit1->Text)); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { IViewObject2 *vObj; IHTMLElement2 *ele2; IHTMLElement2 *ele_5; IHTMLDocument2 *doc2; IHTMLElement *ele; IHTMLElement *ele_4; IHTMLDocument3 *doc3; long bHe..
2008.08.19 -
TShellWindows
void __fastcall TForm1::Button1Click(TObject *Sender) { TShellWindows *Sh = new TShellWindows(NULL); try { for(int i = 0; i Count; i++) { if(Sh->Item(i) == NULL) continue; Draw(Sh->Item(i)); break; } } __finally { delete Sh; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Draw(IDispatch *Idisp) { IWebBrowser2 *IE = (IWebBrowser2 *)N..
2008.08.19 -
TInternetExplorer
ie = new TInternetExplorer(NULL); ie->OnStatusTextChange = IEStatusTextChange; ie->Visible = true; ie->Navigate(WideString("http://www.sonystyle.co.kr")); ie->Free();
2008.08.14 -
WebBrowser-Capture
IViewObject2 *vObj ; TRect rect = Rect(0, 0, CppWebBrowser1->Width, CppWebBrowser1->Height); Graphics::TBitmap *bmp = new Graphics::TBitmap(); bmp->Width = CppWebBrowser1->Width; bmp->Height = CppWebBrowser1->Height; if(FAILED(CppWebBrowser1->Document->QueryInterface(IID_IViewObject2, (void **)&vObj))) return; OleCheck(vObj->Draw(DVASPECT_CONTENT, 1, NULL, NULL, this->Handle, bmp->Canvas->Handle..
2008.08.14 -
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