VPF::TWebBrowser помогите гибну! - Форум программистов

nnova

Дата 3.11.2008, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 3.11.2008
Где: Москва

Репутация: нет
Всего: нет

Подскажите, пожалуйста, как можно программно отправить некоторый текст (вообще символ но это неважно) в загруженную страницу в TWebBrowser'a на контрол в котором фокус ввода.
В своей программе я использую

Код


 SendMessage(myHandle, WM_CHAR, VK_Return, 0);

для посыла разных символов разным TEdit'ам формы, но где взять Handle TEdit'ов загруженной страницы ???.
Уже 3-й день бьюсь, перечитал весь MSDN по WebBrowser, но там ни слова... smile

aktuba

Дата 3.11.2008, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Там нет TEdit, есть INPUT ;). Используй DOM.

--------------------

nnova

Дата 3.11.2008, 23:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 3.11.2008
Где: Москва

Репутация: нет
Всего: нет

aktuba, поподробнее, пожалуйста, как его использовать- DOM ? может пример какой, а?

ekianu

Дата 5.11.2008, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 7.11.2006

Репутация: нет
Всего: нет

Не тестировал в Delphi, но думаю так можно попробовать...

Код


procedure TForm1.Button1Click(Sender: TObject); 
var 
  ovElements: OleVariant;  
  i: Integer;  
begin 
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;  
  for i := 0 to (ovElements.Length - 1) do 
    if (ovElements.item(i).tagName = 'INPUT') and (ovElements.item(i).type = 'TEXT') and ovElements.item(i).name = 'my_input_name') then 
     ovElements.item(i).value = 'Some text';  
end;

nnova

Дата 7.11.2008, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 3.11.2008
Где: Москва

Репутация: нет
Всего: нет

2 дня искал, нашел в Borland такой код, юзаю его:

WebBrowser1.OnDocumentComplete

Код


myHandle:=GetWindow(WebBrowser1.Handle, GW_CHILD); // This was level 1
myHandle:=GetWindow(myHandle, GW_CHILD); //  this was level 2

А в Button.OnClick

Код


SendMessage(myHandle, WM_CHAR, Ord('Some_key'), 0)

Спасибо всем. Тема закрыта.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »