Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.09.2015, 17:43   #1
_ZixeL_
Форумчанин
 
Регистрация: 04.11.2012
Сообщений: 151
По умолчанию TChromium

Приветствую. Ребят, возникла проблема, нужна ваша помощь.
Задача: авторизоваться на Яндексе - перейти на страницу (напр. https://market.yandex.ua/shop/22697/reviews/add ) и программно поставить 5 звёзд+возможность выбора "способа покупки" ( чекбоксы).

С авторизацией более-менее понятно:
Код:
procedure TForm1.Auth;
var CodeStr : string;
begin
if Assigned(Chromium1.Browser) and Assigned(Chromium1.Browser.Mainframe) then
 begin
  CodeStr := 'document.forms[0].login.value="***@yandex.ru";';
  Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
  CodeStr := 'document.forms[0].passwd.value="****";';
  Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
  CodeStr := 'document.forms[0].submit();';
  Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
 end;
end;
Дальше попал в тупик. Никак не могу понять, как поставить "5 звёзд"

Код HTML:
<div class="review-form__rating js-review-post-wizard__form-model-view" data-form-view-name="rating-line"><div class="rating-stars rating-stars_size_xl js-review-post-wizard-item-1__rating-data js-review-post-wizard-item-1__item-required i-bem rating-stars_variable_yes rating-stars_js_inited" data-rate="5" onclick="return&nbsp;{&quot;rating-stars&quot;:{&quot;variable&quot;:&quot;yes&quot;,&quot;label&quot;:&quot;yes&quot;}}"><i class="rating-stars__star" data-rate-name="Ужасный магазин"></i><i class="rating-stars__star" data-rate-name="Плохой магазин"></i><i class="rating-stars__star" data-rate-name="Обычный магазин"></i><i class="rating-stars__star" data-rate-name="Хороший магазин"></i><i class="rating-stars__star" data-rate-name="Отличный магазин"></i><input name="gr_0" class="rating-stars__value" value="2" type="hidden"><div class="rating-stars__label">Отличный магазин</div></div></div>
И как выбрать в чекбоксе способ покупки:

Код HTML:
<span class="radio-button radio-button_size_s radio-button_theme_normal js-review-post-wizard-item-1__expofuse i-bem js-review-post-wizard__form-model-view radio-button_js_inited" data-form-view-name="usage_time" onclick="return {'radio-button':{}}"><label for="uniq14007755082361" class="radio-button__radio radio-button__radio_side_left" data-form-view-value="0"><input class="radio-button__control" name="delivery" value="0" id="uniq14007755082361" checked="" type="radio"><span class="radio-button__text">доставка</span></label><label data-form-view-value="0" for="uniq14007755082362" class="radio-button__radio radio-button__radio_pressed_yes radio-button__radio_checked_yes"><input value="0" class="radio-button__control" name="delivery" id="uniq14007755082362" type="radio"><span class="radio-button__text">самовывоз</span></label><label for="uniq14007755082363" class="radio-button__radio radio-button__radio_side_right radio-button__radio_next-for-pressed_yes" data-form-view-value="2"><input class="radio-button__control" name="delivery" value="2" id="uniq14007755082363" type="radio"><span class="radio-button__text">в магазине</span></label></span>
Заранее прошу прощение, с TChromium только познакомился, в инете мало мануалов по нему.
Буду благодарен всем, кто откликнется.
Спасибо.
_ZixeL_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Компонент [Tchromium] WeezyWayne Компоненты Delphi 3 10.05.2014 21:18
TChromium - onLoadEnd peha84 Компоненты Delphi 9 04.02.2014 14:38
TChromium Cruzel Работа с сетью в Delphi 8 20.11.2013 15:02
TChromium docc Общие вопросы Delphi 0 16.08.2013 23:13
Tchromium не работает DmitryVisuals Компоненты Delphi 0 08.06.2013 20:03