Текущий архив: 2004.07.11;
Скачать: CL | DM;
Вниз
Поиск текста в окне IE Найти похожие ветки
← →
Yegorchic © (2004-06-27 03:57) [0]Здрасте... Не подскажите как узнать существует ли определённый текст в открывшимся окне IE?
← →
Ihor Osov'yak © (2004-06-27 13:02) [1]Задачу следует разбить на две подзадачи.
1. Получение интерфейса IHtmlDocument2 от документа в IE/
2. Имея IHtmlDocument2 задачу можно решить несколькими способами. Один из них - получить IHtmlElement от тега body и воспользоваться методом get_InnerText.
как ввод в тему по п2. delphi.vitpc.com\mastering\tweb.htm
по п1. - в ИЕ ищем окно с именем класса Internet Explorer_Server,
далее примерно так -type
TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM:
wParam; out pObject): HRESULT; stdcall;
const
MSG: Integer = 0;
hInstLib: HWND = 0;
ObjectFromLresult: TObjectFromLresult = nil;
function GetIDocFromHWND(WHandle: HWND; var iDoc: IHtmlDocument2): HRESULT;
var
lRes: Cardinal;
begin
Result := S_FALSE;
if hInstLib = 0 then
hInstLib := LoadLibrary("Oleacc.dll");
if not assigned(ObjectFromLresult) then
@ObjectFromLresult := GetProcAddress(hInstLib, "ObjectFromLresult");
if @ObjectFromLresult <> nil then
begin
try
if MSG = 0 then
MSG := RegisterWindowMessage("WM_HTML_GETOBJECT");
SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, iDoc);
finally
//FreeLibrary(hInst);
//hInst := 0;
end;
end;
end;
← →
ЮрийК © (2004-06-27 17:02) [2]Есть следующая задача - найти слово (фразу - во фразе слова не обязательно разделяются одним пробелом, где-то может быть и два пробела например) в вебброузере, далее селектировать найденное.
Какой можете предложить алгоритм для реализации?
Страницы: 1 вся ветка
Текущий архив: 2004.07.11;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.039 c
