TMemo::Lines::Clear глючит?

04 июня 2008 года

2.9K / / 03.08.2007

Загружаю хтмл документ:

Код:

CComPtr<IWebBrowser2> spWB;

        CComPtr<IDispatch> spDisp;

        OleInitialize(NULL);

        CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER,

                       IID_IWebBrowser2, (void**)&spWB);

        if (!spWB) return;

        VARIANT vEmpty;

        BSTR bstrURL = WideString("http://" + Edit1->Text).c_bstr();

        HRESULT hr = spWB->Navigate(bstrURL, &vEmpty, &vEmpty, &vEmpty, &vEmpty);

затем (в теле этой же ф-ции) пробегаюсь по его элементам и вывожу ссылки в TMemo.
Если где нибудь в теле этой ф-ции прописать

Memo1->Lines->Clear();

то документ просто не загружается HRESULT hr = spWB->Navigate() в hr приходит код ошибки (0x80020008)

В чем дело?

Подписаться на вопросНеобходима регистрация

По порядку

Сначала полезные

Сначала решения

7 ответов

0 спам

479

04 июня 2008 года

Ухух

142 / / 05.05.2006

А просто Memo1->Clear();

А после Clear Add() не надо?

Цитировать

0 спам

246

04 июня 2008 года

GIZMO

1.8K / / 30.07.2004

Цитата: oxotnik333

...
Если где нибудь в теле этой ф-ции прописать
...
В чем дело?

Действительно для TMemo обычно вызывается "его" Clear(), а не св-ва Lines.

ЗЫ: "где-нибудь" тоже круто, ты уж приводи полный код:)

Цитировать

0 спам

04 июня 2008 года

oxotnik333

2.9K / / 03.08.2007

Цитата: Ухух

А после Clear Add() не надо?

А нахрена?

Цитировать

0 спам

04 июня 2008 года

oxotnik333

2.9K / / 03.08.2007

Цитата: GIZMO

Всегда чистил Lines и все ок было.
Дело не в этом... а в том что, вышеприведенный код сам по себе корректно работает, но как только в коде (в теле ф-ции) появляется
Memo1->Lines->Clear();
т.е. вышеуказанный пример меняем:

Код:

Memo1->Lines->Clear();

CComPtr<IWebBrowser2> spWB;

        CComPtr<IDispatch> spDisp;

        OleInitialize(NULL);

        CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER,

                       IID_IWebBrowser2, (void**)&spWB);

        if (!spWB) return;

        VARIANT vEmpty;

        BSTR bstrURL = WideString("http://" + Edit1->Text).c_bstr();

        HRESULT hr = spWB->Navigate(bstrURL, &vEmpty, &vEmpty, &vEmpty, &vEmpty);

или

Код:

CComPtr<IWebBrowser2> spWB;

        CComPtr<IDispatch> spDisp;

        OleInitialize(NULL);

        CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER,

                       IID_IWebBrowser2, (void**)&spWB);

        if (!spWB) return;

        VARIANT vEmpty;

        BSTR bstrURL = WideString("http://" + Edit1->Text).c_bstr();

        HRESULT hr = spWB->Navigate(bstrURL, &vEmpty, &vEmpty, &vEmpty, &vEmpty);

Memo1->Lines->Clear();

как IWebBrowser не хочет делать Navigate и HRESULT hr == 0x80020008
что примерно переводится как Invalid Variant Parametr

Цитировать

0 спам

05 июня 2008 года

oxotnik333

2.9K / / 03.08.2007

что интересно:
переношу Memo1->Lines->Clear(); в любую другую ф-ю, вызываю ее в том месте где глючило - и все работает...

Свернуть исходник

Код:

MyFunc(); // здесь работает

CComPtr<IWebBrowser2> spWB;

        CComPtr<IDispatch> spDisp;

        OleInitialize(NULL);

        CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER,

                       IID_IWebBrowser2, (void**)&spWB);

        if (!spWB) return;

        VARIANT vEmpty;

        BSTR bstrURL = WideString("http://" + Edit1->Text).c_bstr();

        HRESULT hr = spWB->Navigate(bstrURL, &vEmpty, &vEmpty, &vEmpty, &vEmpty);

MyFunc(); // и здесь работает

//------------------------------------------------

void MyFunc (void)

{

Form1->Memo1->Lines->Clear(); 

}