Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C++ Builder > Невозможно из CppWebBrowser скопировать тект


Автор: SerK 3.2.2009, 14:15
Почему при попытке копирования текста в CppWebBrowser при выполнении программы, копирования не происходит (текст не помещается в буфер обмена)?

Автор: Dmi3ev 3.2.2009, 15:11
SerK, не думай, что если есть компонент, то это значить, что его кинул на форму и всего делов... Надо и самому что-то делать...
Так бы у всех в мире были бы свои браузеры  smile 
http://www.bytesandmore.de/rad/index.htm?http://www.bytesandmore.de/rad/cpp/snipp/sc08017.php
Вот тут ответ...
Не ожидал такого?

Автор: Dmi3ev 3.2.2009, 18:16
Проверил, немного изменил, все заработало, код на кнопку написал:
Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TClipboard *Clipboard = new TClipboard();
IHTMLDocument2 * document;

(void *)document=CppWebBrowser1->Document;
bool blHtml;

IHTMLDocument2 *HTMLDocument = NULL;
LONG ilFramesCount = 0;
wchar_t* wcpSelectedText;
if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(
IID_IHTMLDocument2, (LPVOID*)&HTMLDocument)))
{
IHTMLFramesCollection2 *pFrames = NULL;
if(SUCCEEDED(HTMLDocument->get_frames(&pFrames)))
{
pFrames->get_length(&ilFramesCount);
if(ilFramesCount == 0)
{
IHTMLSelectionObject* pSelection;
if(SUCCEEDED(HTMLDocument->get_selection(&pSelection)))
{
IHTMLTxtRange* pRange;
if(SUCCEEDED(pSelection->createRange((LPDISPATCH*)&(pRange))))
{
if(blHtml)
{
if(SUCCEEDED(pRange->get_htmlText(&wcpSelectedText)))
Clipboard->SetTextBuf(AnsiString(wcpSelectedText).c_str());
}
else if(SUCCEEDED(pRange->get_text(&wcpSelectedText)))
Clipboard->SetTextBuf(AnsiString(wcpSelectedText).c_str());
pRange->Release();
}
pSelection->Release();
}
}
else
{
VARIANT vFrame;
VARIANT ret;
vFrame.vt = VT_UINT;
for(LONG ilFrameIndex = 0; ilFrameIndex < ilFramesCount; ilFrameIndex++)
{
vFrame.lVal = ilFrameIndex;
if(SUCCEEDED(pFrames->item(&vFrame, &ret)))
{
IHTMLWindow2 *pWindow = NULL;
if(SUCCEEDED(ret.pdispVal->QueryInterface(IID_IHTMLWindow2,
(LPVOID*)&pWindow)))
{
IHTMLDocument2 *pDoc = NULL;
if(SUCCEEDED(pWindow->get_document(&pDoc)))
{
IHTMLSelectionObject* pSelection;
if(SUCCEEDED(pDoc->get_selection(&pSelection)))
{
IHTMLTxtRange* pRange;
if(SUCCEEDED(pSelection->createRange((LPDISPATCH*)&(pRange))))
{
if(blHtml)
{
if(SUCCEEDED(pRange->get_htmlText(&wcpSelectedText)) &&
AnsiString(wcpSelectedText).Trim() != EmptyStr)
Clipboard->SetTextBuf(AnsiString(wcpSelectedText).c_str());
}
else if(SUCCEEDED(pRange->get_text(&wcpSelectedText)) &&
AnsiString(wcpSelectedText).Trim() != EmptyStr)
Clipboard->SetTextBuf(AnsiString(wcpSelectedText).c_str());
pRange->Release();
}
pSelection->Release();
}
pDoc->Release();
}
pWindow->Release();
}
}
}
}
pFrames->Release();
}
HTMLDocument->Release();
}
}

форматировать в ломак было, как скопировал, так и правил)))
ты просто делай PopupMenu для CppWebBrowser, ну и на пункт копировать делай вот этот код...
не забудь подключить.
Код

#include <mshtml.h>
#include <clipbrd.hpp>

а то будешь...
единственное, когда копируешь, ничего не выделяя, ошибочка вылазит, тоже надо учесть (try, catch можно, можно еще как-нибудь)...
  smile 
Цитата

Невозможно из CppWebBrowser скопировать тект

Невозможное-возможно. adidas  smile 

Автор: SerK 11.2.2009, 05:00
Dmi3ev
Спасибо за помощь, все получилось.
Но к сожалению, теряется ПопурМеню родное, а там ведь много других возможностей заложено:
печать, просмотр, копирование кода и рисунков и много другое и все из-за одного - копирование
текста. 
Кстати, текст копируется, но только тогда, когда ВебБраузер становится невидимым, т.е
при нажатии клавиш копирования. Странно, когда видимый - не копируется текст, когда нет - копируется, идет задержка дествия.
У меня есть две вкладки, на одной ВебБраузер, а на другой - ричедит. Выделяю текст в ВебБраузере, нажимаю кнопки Ctrl+C- копирования не происходит, перехожу на вкладку с ричедитом, опять нажимаю кнопки Ctrl+C, текст копируется. Почему, не пойму.

Автор: Pavlery 16.5.2009, 07:27
случаем не это надо?

Код

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
    ::OleInitialize(NULL);
    ::OleUninitialize;
}

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)