Форум: "Основная";
Текущий архив: 2009.09.06;
Скачать: [xml.tar.bz2];
ВнизОткрыть диалог поиска текста в WebBrowser Найти похожие ветки
← →
X9 © (2008-06-21 20:36) [0]Необходимо показать стандартный диалог поиска файла ActiveX-компонента IE. Пытаюсь выполнить
ExecWB(OLECMDID_SHOWFIND, OLECMDEXECOPT_DODODEFAULT)
, но программа выдаёт ошибку "Попытка отменить конечное место переноса, которое не было зарегистрировано (Exception from HRESULT: 0x80040100 (DRAGDROP_E_NOTREGISTERED))", к тому же, в MSDN написано, что команда OLECMDID_SHOWFIND не должна использоваться. Но ведь, например, в DMClient такое окошко отображается.
Как быть?
← →
Johnmen © (2008-06-21 23:05) [1]Обратиться к авторам DMClient?
← →
Наиль © (2008-06-23 11:01) [2]В DMCliente поиск выполняет компонент TEmbeddedWB:
procedure TEmbeddedWB.Find;
var
vaIn, vaOut: Olevariant;
begin
InvokeCmd(TRUE, HTMLID_FIND, 0, vaIn, vaOut);
end;
Этот компонент можно найти на просторах интернета.
ЗЫprocedure TEmbeddedWB.InvokeCMD(InvokeIE: Boolean; Value1, Value2: Integer; var vaIn, vaOut: OleVariant);
var
CmdTarget: IOleCommandTarget;
PtrGUID: PGUID;
begin
New(PtrGUID);
if InvokeIE then PtrGUID^ := CLSID_WebBrowser else
PtrGuid := PGUID(nil);
if Document <> nil then
try
Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget <> nil then
try
CmdTarget.Exec(PtrGuid, Value1, Value2, vaIn, vaOut);
finally
CmdTarget._Release;
end;
except end;
Dispose(PtrGUID);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2009.09.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c