IHTMLElement3 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. 7. 21. 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. 7. 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. 7. 10. 이전 1 다음