IHTMLDocument2 *HTMLDocument = NULL;
IPersistFile *PersistFile = NULL;
LONG ilFramesCount = 0;
AnsiString slTmpFileExtension = ".html";
// Falls eine Seite geladen:
if(!Form1->CppWebBrowser1->Busy && Form1->CppWebBrowser1->Document &&
AnsiString(Form1->CppWebBrowser1->LocationURL) != "about:blank" &&
SUCCEEDED(Form1->CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&HTMLDocument)))
{
// HTML-Code des Hauptdokuments speichern:
if(SUCCEEDED(HTMLDocument->QueryInterface(IID_IPersistFile,(LPVOID*)&PersistFile)))
{
// HTML-Code des Hauptdokuments speichern:
PersistFile->Save(WideString(String(ExtractFilePath(ParamStr(0))+"0"+slTmpFileExtension)), false);
PersistFile->Release();
// ggf. auch Frames-Code extrahieren:
IHTMLFramesCollection2 *pFrames = NULL;
if(SUCCEEDED(HTMLDocument->get_frames(&pFrames)))
{
// Anzahl der Frames bestimmen:
pFrames->get_length(&ilFramesCount);
if(ilFramesCount < 2) ilFramesCount= 0;
VARIANT vFrame;
VARIANT ret;
vFrame.vt = VT_UINT;
// f?r jedes Frame:
for(LONG ilFrameIndex = 0; ilFrameIndex < ilFramesCount; ilFrameIndex++)
{
vFrame.lVal = ilFrameIndex;
if(SUCCEEDED(pFrames->item(&vFrame, &ret)))
{
// Zeiger auf IHTMLWindow2 des Frames besorgen:
IHTMLWindow2 *pWindow = NULL;
if(SUCCEEDED(ret.pdispVal->QueryInterface(IID_IHTMLWindow2,
(LPVOID*)&pWindow)))
{
// Zeiger auf IHTMLDocument2 des Frames besorgen:
IHTMLDocument2 *pDoc = NULL;
if(SUCCEEDED(pWindow->get_document(&pDoc)))
{
// Frame in der Datei "Framenummer.html" speichern:
IPersistFile *PersistFile = NULL;
if(SUCCEEDED(pDoc->QueryInterface(IID_IPersistFile,
(LPVOID*)&PersistFile)))
{
PersistFile->Save(WideString(String(ExtractFilePath(ParamStr(0))+
IntToStr(ilFrameIndex+1) + slTmpFileExtension)), false);
PersistFile->Release();
}
pDoc->Release();
}
pWindow->Release();
}
}
}
pFrames->Release();
}
}
HTMLDocument->Release();
TStringList* pFileStrings = new TStringList;
if(pFileStrings)
{
// Die gepufferten Dateien mit dem HTML-Code der
// Seite in die RichEdit einlesen und die Dateien l?schen:
if(FileExists(ExtractFilePath(ParamStr(0))+"0"+slTmpFileExtension))
{
Form1->Memo1->Lines->LoadFromFile(ExtractFilePath(
ParamStr(0))+"0"+slTmpFileExtension);
DeleteFile(ExtractFilePath(ParamStr(0))+"0"+slTmpFileExtension);
}
if(ilFramesCount > 0)
{
for(LONG ilFrameIndex = 0; ilFrameIndex < ilFramesCount; ilFrameIndex++)
{
if(FileExists(ExtractFilePath(ParamStr(0))+IntToStr(
ilFrameIndex+1) + slTmpFileExtension))
{
pFileStrings->LoadFromFile(ExtractFilePath(ParamStr(0))+
IntToStr(ilFrameIndex+1) + slTmpFileExtension);
Form1->Memo1->Lines->Add("\n- - - Frame " +
IntToStr(ilFrameIndex+1) + " - - -");
Form1->Memo1->Lines->Add(pFileStrings->Text);
DeleteFile(ExtractFilePath(ParamStr(0))+IntToStr(
ilFrameIndex+1) + slTmpFileExtension);
}
}
}
delete pFileStrings;
}
}
else Form1->Memo1->Lines->Clear();


Проблема в следующем… Текст извлекаю из известного сайта vkontakte.ru. Предположим, захожу в поиск людей.. мне выводится несколько страниц, к примеру по 10 человек. Копирую текст для первых 10 – всё Ок. А вот если хочу скопировать текст для следущих 10 найденных, то копируется текст снова для первых 10 В код копирования страницы не вникал ибо не особо в этих приёмах разбираюсь, а если начну разбираться то уйдёт на это много времени…
Вопрос в следующем: можно как-нибудь подправить этот код или может, кто в работе с html страницами хорошо разбирается, предложит свой вариант для решения проблемы?

AnsiString GetAllTextFromWebPage(TCppWebBrowser *wb)
{
AnsiString s = wb->OleObject.OlePropertyGet("Document").OlePropertyGet("Body").OlePropertyGet("InnerText");
return s;
}
Сам на днях перерыл много инфы, ни чего толком не нашел, но пришел к такому изяществу, через COM-объект получаешь весь текст на странице
Если нужен HTML код странице, меняешь только значение переменной, кажется так, пробуй:
AnsiString GetHTMLTextFromWebPage(TCppWebBrowser *wb)
{
AnsiString s = wb->OleObject.OlePropertyGet("Document").OlePropertyGet("Body").OlePropertyGet("InnerHtml");
return s;
}

Проблема в том, что в цикле браузер не успевает загрузить содержимое страницы и на этом этапе возникает ошибка доступа. Все решиться если знать как дождаться определенного события = загрузки страницы, и только после этого запускать остальные фунциии цикла, стоит вопрос, как это сделать?

Проблема решается следущим образом, в теле цикла где происходит обработка страницы пишем сразу после того как браузер получает адрес страницы CppWebBrowser->Navigate2(URL)

while (CppWebBrowser->ReadyState != 4)
{
Application->ProcessMessages();;
}

Похожая статья:
Особенности копирования текста страницы в CppWebBrowser на C++ Builder

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• языки программирования скачать
• язык программирования assembler
• программирование на pascal

Я вместо button использовал компонент panel (это моя задумка – во время наведения курсора панелька будет подсвечена, как это реализовать я напишу в самом конце). Под навигацией у меня располагается Edit для ввода адреса, под ним компонент CppWebBrowser, так же нам понадобиться компонент OpenDialod – для просмотра страничек с жесткого диска. Итак, впервую очередь мы распишем событие, совершаемое при нажатии enter в edit (с учетом того, что пользователь указал адрес сайта, событие называется – OnKeyPress). Вот код:

if (Key == VK_RETURN){ // нажат ЕНТЕР
wchar_t URL[100];
Edit1->Text.WideChar(URL,100); //Edit1 принял адрес сайта
CppWebBrowser->Navigate(URL,0,NULL,NULL,NULL); //Адрес направлен на cppwebbrowser, пошла загрузка
}

Далее напишем код для кнопки открыть:

OpenDialog1->Execute(); //Открываем окно выбора файлов
wchar_t URL[100];
Edit1->Text=(OpenDialog1->FileName); //Присваемаем Edit название выбраного файла
Edit1->Text.WideChar(URL,100);
CppWebBrowser->Navigate(URL,0,NULL,NULL,NULL);

Кнопка назад:

CppWebBrowser->GoBack();

Кнопка вперед:

CppWebBrowser->GoForward();

Кнопка стоп:

[block]2[/block]->Stop();

Кнопка Обновить:

[block]3[/block]->Refresh();

Все готово =) Браузер будет спокойно бороздить просторы инета, под вашим чутким контролем. Теперь я распишу то, как менять цвет панелек при наведении. Итак, для начала обговорим, что стандартным цветом наших panel будет – clBtnFace. Теперь ставим на OnMouseMove, следующий код:

Panel1->Color=clSkyBlue; //я выбрал цвет - небесно синий

В результате чего, при наведии панель поменяет цвет, теперь заставим вернуть ее преждний цвет (если пользователь убрал мышь). Сперва, мы должны выбрать событие OnMouseMove для Form1 и теперь пишем код:

Panel1->Color=clBtnFace; //результат панель приняла стандартный цвет

Мой блог о программировании находят по следующим фразам

• Все о программировании
• языки программирования скачать
• язык PHP
• php программирование
• языки программирования скачать
• язык программирования assembler
• программирование на pascal