|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Получить данные из TWebBrowser
Добрый день. Есть следующая ситуация:
- форма на форме ТВебБраузер - в Твебраузер загружается страница поисковика (Яндекс например) - в поисковике вводится поисковый запрос и нажимается кнопка "Найти" (это все веб-страница, элементы ХТМЛ-кода типа ФОРМ, ввводится и нажимается все вручную) - поисковик выдает ответ, все как обычно Необходимо: при нажатии кнопки "Найти" на веб-странице данные из окна ввода на веб-странице перенести в строковую переменную (чтоб не потерялись) конечно можно сделать все наоборот: в ЕДИТ на форме программы ввести текст запроса, нажать на кнопку на форме программы и передать данные в Твебраузер, но исходя из эргономики это нецелесообразно, снижает удобство работы с программой Вопрос: - подскажите в какую сторону искать, информация в инете в основном как передать данные или управление в браузер а не наоборот |
#2
|
||||
|
||||
Искать в сторону работы с DOM-моделью и событиям TWebBrowser.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
|||
|
|||
попробовал использовать BeforeNavigate2 и сразу полезли исключения на код ( ИДЕ = ХЕ3)
E2171 Variable 'I' inaccessible here due to optimization E2171 Variable 'Src' inaccessible here due to optimization E2171 Variable 'Temp' inaccessible here due to optimization (недоступные здесь за счет оптимизации) - это в модуле ComObj procedure GetIDsOfNames сам код Код:
procedure TMain.Wbbr_SMBeforeNavigate2(ASender: TObject; const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); var I,J:integer; begin (*действия перед перезагрузкой страницы*) if Wbbr_SM.OleObject.Document.all.tags('FORM').Length = 0 then begin Exit; end; end; |