Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.03.2020, 21:25
Gareth Gareth вне форума
Начинающий
 
Регистрация: 21.03.2013
Адрес: Приднестровье
Сообщения: 164
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию webbrowser, вставить текст в поле воода

Доброе время суток. На сайте есть возможность обмениваться лиными сообщениями... Там 3 поля, все их нужно программно заполнить текстом.


Это вроде делается как то типа так:
Код:
var
  input_text, textareas: OleVariant;

  input_text := sWebBrowser1.OleObject.document.all.tags('input');
  textareas := sWebBrowser1.OleObject.document.all.tags('text');
  input_text.item(1).value := 'qweqweqwe'; 
Но не знаю что конкретно мне нужно искать, какие таги?
input?
Пробовал по разному, результата нет. Меняя значение в input_text.item(1), удалось написать текст в поле поиска по сайту)) но это не то поле)

прилагаю кусок html, получил его путем пкм по поле ввода, "просмотреть код элемента"
поле Получатели
Код:
 <textarea class="primary full textbox popupctrl" id="pmrecips_ctrl" name="recipients" rows="2" cols="50" tabindex="1" autocomplete="off"></textarea> 
поле Заголовок
Код:
 <input type="text" class="primary full textbox" id="title" name="title" value="" maxlength="85" tabindex="1"> 
поле самого редактора текста
Код:
 <textarea dir="ltr" tabindex="-1" role="textbox" aria-label="Rich text editor, vB_Editor_001_editor, press ALT 0 for help." class="cke_source cke_enable_context_menu" 
style="width: 100%; 
height: 100%; min-width: 100%; max-width: 100%; resize: none; outline: none; text-align: left;"></textarea> 

Пожалуйста, помогите.
Ответить с цитированием
  #2  
Старый 12.03.2020, 23:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,560
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

ну ты же указал примеры текстовых полей. из можно фильтровать по атрибуту name или id. Это с простыми полями. А вот для TextArea я ничего такого не вижу, можно попробовать найти его по атрибуту class.

PS. Полученные тобой переменные являются списками контролов указанного типа (массивами), так что просто перебирай их все и проверяй значение соотв. атрибутов.
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
Gareth (12.03.2020)
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:01.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2020

ВКонтакте   Facebook   Twitter