WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT

← →
klyg (2004-12-02 07:26) [0]

Здравствуйте Мастера.

У меня возникла такая проблема:
При помещении выделенного текста в буфер отмена в WebBrowser методом
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER) появляется следующая ошибка
"Попытка отменить конечное место переноса, которое не было зарегестрировано".
Пожалуйста, подскажите, что можно сделать.

PS: WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER) - работает

← →
easy © (2004-12-02 10:05) [1]

а ежли так -

WebBrowser1.OleObject.document.selection.createRange().execCommand("Copy");
?

← →
Gero © (2004-12-02 10:22) [2]

var
vaIn, vaOut: OleVariant;

InvokeCmd(False, OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);

← →
klyg (2004-12-03 07:59) [3]

<easy
WebBrowser1.OleObject.document.selection.createRange().execCommand("Copy");

Спасибо за совет, но выделенная часть страницы все так и не попадает в буфер. Может я делаю что-то не так. Не могли бы вы по подробнее рассказать.

← →
klyg (2004-12-03 08:02) [4]

<Gero
var
vaIn, vaOut: OleVariant;

InvokeCmd(False, OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);

Вам также большое спасибо за то что не остались равнодушными к соей проблеме, но что это за зверь InvokeCmd. В Хэлпе я про него ни чего не нашел, а проблема как была, так и осталась.

> klyg (03.12.04 08:02)

Сорри, ошибся.
procedure TForm1.WBCopy; var CmdTarget: IOleCommandTarget; PtrGUID: PGUID; vaIn, vaOut: OleVariant; begin New(PtrGUID); PtrGuid := PGUID(nil); WebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget); if CmdTarget <> nil then try CmdTarget.Exec(PtrGuid, OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut); finally CmdTarget._Release; end; Dispose(PtrGUID); end;

← →
klyg (2004-12-03 18:23) [6]

>Gero
Болльшое спасибо, все работает, спас.
Вот только на строчку

WebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget);

Ругается, мол Jbject or class type required.
Строчку убираем, ошибок нет, все работает.
Ну во всяком случае помог, спасибо.

WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER) Найти похожие ветки