|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.03.2012, 18:11 | #1 |
Новичок
Джуниор
Регистрация: 29.03.2012
Сообщений: 1
|
Plugin для IE
Доброго времени суток! Столкнулся с проблемой, пишу плагин, который должен сохранять исходный код страницы в файл. Не могу понять что делаю неправильно
STDMETHODIMP IMyIEExtention::Exec(const GUID *pCmdGroup, DWORD nCmdID, DWORD nCmdExecOpt, VARIANTARG *pvaIn, VARIANTARG *pvaOut) { FILE *destFile=NULL; HRESULT hRes=S_OK; HWND hBrowser=NULL; BSTR g; long lBrowser; hRes=m_pWebBrowser2->get_HWND(&lBrowser); CHECK_COM_RESULT(hRes) hBrowser=(HWND)lBrowser; IDispatchPtr pTmpDisp; hRes=m_pWebBrowser2->get_Document(&pTmpDisp); m_pWebBrowser2->get_LocationURL(&g); CHECK_COM_RESULT(hRes) IHTMLDocument2Ptr pHTMLDoc2(pTmpDisp); IHTMLElementCollectionPtr pHTMLColl; hRes=pHTMLDoc2->get_all(&pHTMLColl); CHECK_COM_RESULT(hRes) hRes=pHTMLColl->tags(variant_t(_T("html")), &pTmpDisp); CHECK_COM_RESULT(hRes) IHTMLElementCollectionPtr pHTMLAColl=pTmpDisp; long numOfItems; hRes=pHTMLAColl->get_length(&numOfItems); CHECK_COM_RESULT(hRes) char *dd=new char; destFile=_tfopen(_T("page.txt"), _T("wt")); if (!destFile) throw _com_error(ERROR_TOO_MANY_OPEN_FILE S); long currItem=0; hRes=pHTMLAColl->item(_variant_t(currItem), variant_t(currItem), &pTmpDisp); IHTMLElementPtr pHTMLElement(pTmpDisp); pHTMLElement->get_innerHTML(&g); _fputts(g, destFile); fclose(destFile); AfxMessageBox(hBrowser, IDS_SAVE_OK, MB_OK | MB_ICONINFORMATION); return S_OK; } может кто сталкивался с подобным |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переделать jquery-globus-plugin | RomanovRA2 | Фриланс | 1 | 15.07.2011 14:31 |
QIP Plugin | W0LF | Общие вопросы Delphi | 3 | 24.04.2011 11:28 |
Development today plugin for WM 5 | SunKnight | Свободное общение | 0 | 10.02.2010 00:01 |
Разработка PlugIn | BOBAH13 | Общие вопросы Delphi | 12 | 09.02.2008 17:37 |