как осуществить поиск в компоненте WebBrowser1 в delphi 7 - Работа с сетью в Delphi

SonClan · 07.06.2007, 17:27

Подскажите, пожалуйста, как осуществить поиск в компоненте WebBrowser1 в delphi 7

SonClan · 08.06.2007, 12:15

Поиск внутри страницы Аналогичный тому котырый появляется в браузере при нажатии CTRL+F

Rouse_ · 09.06.2007, 12:21

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  ID_FIND_ACCELERATOR = $43;
var
  IEServerHandle: DWORD;
begin
  IEServerHandle :=
    GetWindow(GetWindow(WebBrowser1.Handle, GW_CHILD), GW_CHILD);
  SendMessage(IEServerHandle, WM_COMMAND, ID_FIND_ACCELERATOR, 0);
end;

SonClan · 09.06.2007, 15:52

Большое спосибо!

Rouse_ · 09.06.2007, 16:17

Спасибо - это ты рано. Я проверил только под шестым и седьмым эксплорерами. Проверь на более ранних версиях, там ID акселератора (горячей клавиши) мог быть и другим. Если это так, то отследи значение идентификатора через Spi++

Yurek · 20.11.2007, 12:43

Доброго здоровья.
Віполняю
procedure TForm1.Button1Click(Sender: TObject);
const
ID_FIND_ACCELERATOR = $43;
var
IEServerHandle: DWORD;
begin
IEServerHandle :=
GetWindow(GetWindow(WebBrowser1.Han dle, GW_CHILD), GW_CHILD);
SendMessage(IEServerHandle, WM_COMMAND, ID_FIND_ACCELERATOR, 0);
end;
Получаю:
[Error] Unit1.pas(68): Statement expected but 'CONST' found
[Error] Unit1.pas(74): Undeclared identifier: 'WebBrowser1'
Подскажите?
Explorer 6 на машине.
отследи значение идентификатора через Spi++ ?????

07.06.2007, 17:27	#1
SonClan Регистрация: 07.06.2007 Сообщений: 8	как осуществить поиск в компоненте WebBrowser1 в delphi 7 Подскажите, пожалуйста, как осуществить поиск в компоненте WebBrowser1 в delphi 7

09.06.2007, 16:17	#5
Rouse_ Пользователь Регистрация: 31.05.2007 Сообщений: 56	Спасибо - это ты рано. Я проверил только под шестым и седьмым эксплорерами. Проверь на более ранних версиях, там ID акселератора (горячей клавиши) мог быть и другим. Если это так, то отследи значение идентификатора через Spi++ Vae Victis (Горе побежденным (лат.)) Демки с открытым кодом: http://rouse.drkb.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
access 07 + delphi как подключать базы и осуществить поиск в них?	frizz	Microsoft Office Access	5	30.11.2009 07:10
[Делфи] Как осуществить поиск в StringGrid...	zotox	Помощь студентам	3	13.07.2009 10:42
Как осуществить поиск файла *.rtf	Karinka	Общие вопросы Delphi	4	18.03.2009 15:35
Как осуществить поиск сначала по всей БД, а затем из найденных таблиц найти по полю Date нужные записи?	kayman	БД в Delphi	1	21.09.2007 15:56

08.06.2007, 12:15	#2
SonClan Регистрация: 07.06.2007 Сообщений: 8	Поиск внутри страницы Аналогичный тому котырый появляется в браузере при нажатии CTRL+F

09.06.2007, 15:52	#4
SonClan Регистрация: 07.06.2007 Сообщений: 8	Большое спосибо!

20.11.2007, 12:43	#6
Yurek Пользователь Регистрация: 27.08.2007 Сообщений: 24	Доброго здоровья. Віполняю procedure TForm1.Button1Click(Sender: TObject); const ID_FIND_ACCELERATOR = $43; var IEServerHandle: DWORD; begin IEServerHandle := GetWindow(GetWindow(WebBrowser1.Han dle, GW_CHILD), GW_CHILD); SendMessage(IEServerHandle, WM_COMMAND, ID_FIND_ACCELERATOR, 0); end; Получаю: [Error] Unit1.pas(68): Statement expected but 'CONST' found [Error] Unit1.pas(74): Undeclared identifier: 'WebBrowser1' Подскажите? Explorer 6 на машине. отследи значение идентификатора через Spi++ ?????