-
Похоже я обрадовался преждевременно. Захожу значит через полчаса и уже в плане цены не 11 элементов, а уже 13 (видать вебстраница слегка изменилась) и соответственно цена уже идет не по индексу 6, а по индексу 8. А если бы это произошло во время торговли? Последствия могли бы быть печальными. Как же быть, чтобы искать не по конкретным цифрам по индексу, а как-то более надежно?
-
Да, привязываться к индексу плохая идея. Да и обращаться к List.item(23) не проверив что их там есть столько - тоже. Может List вообще пустой. :3
А чего если?:
List:=Doc.querySelectorAll('#chart > div > svg > g > g.cutoffG > text'); ну или?:
List:=Doc.querySelectorAll('#chart > div');
JavaScript меняет текст. Мало ли как и откуда он его берёт и по каким внутренним событиям/таймерам срабатывает. Проще - тоже таймером. А чего, запоминать где-то последнее значение и сравнивать с только что полученным. Изменилось - значит изменилось, тогда что-то делаем.
-
А на случай если веб-страницу изменят авторы - параметры для querySelectorAll() можно вынести во внешний файл. Типа файл с настройками. Что-то вроде *.ini / *.json / *.xml.
-
Спасибо еще раз. Работает. Проверил вариант: List:=Doc.querySelectorAll('#chart > div > svg > g > g.cutoffG > text');
Второй вариант не стал проверять. А что если #chart > div > svg > g > g.cutoffG > text тоже сменится неожиданно, в процессе работы программы?
По поводу таймера: убедили :)
-
Тогда видимо querySelectorAll() ничего не найдёт и вернёт пустой List.
If (List.length=0) Then {Error};
-
Да, отличная идея с проверкой длины. А вот если Doc, List, Node - вынести за рамки, то есть сделать их глобальными, чтобы определить их в самом начале при старте всего приложения, а потом лишь вызывать Node.innerHTML для чтения цены или Node.click для кнопок, будет ли в этом случае работать, то есть продолжит ли работу, в случае изменения вебстраницы? Или: Doc:=WebBrowser1.Document; List:=Doc.querySelectorAll('#chart > div > svg > g > g.cutoffG > text'); надо повторять при каждом такте таймера?
-
Зависит от того что именно там мутит JavaScript. Но в общем случае полагаю надёжность может понизится... Если скрипт пересоздаст элементы - глазами можно не заметить, а элемент уже по факте новый другой. Как определить что "ссылка" на элемент уже не валидна? гм... Хотя она же "интерфейсная"... Может оно вообще останется валидным и продолжит существовать как бы все DOM. Но нам такая тем более не подойдёт. Можно понатыкать Try/Except, но от неактуальности не спасёт. Зависит от сайта короче. Не уверен как надёжно проверять актуальность содержимого переменной. На полную пустоту проверять примерно этим (нужен модуль System.Variants):Function CheckVariant(Variable: OleVariant): BooLean; Begin Result:=Not (VarIsNull(Variable) Or VarIsEmpty(Variable)); End;
Только не глобальными, а в поля формы:
Type TForm1 = Class(TForm) ... Private NodePrice, ButtonUp, ButtonDown, ... : OleVariant; Public End; А переменные Doc, List, Node лучше оставить локальными и использовать только для поиска/навигации.
-
Досадные опечатки...
> по факту
> как бы вне
-
Ну вот «"потыкал" я "палочкой"» элементы/узлы документа - после удаления они остаются вполне действующими. Придётся всё же как-то проверять перед работой (и если что - обновлять). Например:Procedure TForm1.UpdateNodePrice(Doc: OleVariant); Begin ... // Алгоритм поиска для NodePrice (в переданном Doc) NodePrice:= ... ; End;
Procedure TForm1.UpdateButtonUp(Doc: OleVariant); Begin ... // Алгоритм поиска для ButtonUp (в переданном Doc) ButtonUp:= ... ; End;
Procedure TForm1.UpdateButtonDown(Doc: OleVariant); Begin ... // Алгоритм поиска для ButtonDown (в переданном Doc) ButtonDown:= ... ; End;
... // Остальные переменные по аналогии
Procedure TForm1.CheckAll(WB: TWebBrowser); Var Doc: OleVariant; Begin Doc:=WB.Document; If CheckNode(NodePrice) Then UpdateNodePrice(Doc); If CheckNode(UpdateButtonUp) Then UpdateButtonUp(Doc); If CheckNode(UpdateButtonDown) Then UpdateButtonDown(Doc); ... // Остальные переменные по аналогии End;
Procedure TForm1.Timer1Timer(Sender: TObject); Begin // Найдём (или проверим актуальность) все элементы: CheckAll(WebBrowser1); ... // Пользуемся ими - получаем innerHTML или click или ещё что там надо End; Осталось придумать как сделать функцию проверки CheckNode()... Возможно получится проверять у целевого Node - а задан ли parentNode (или parentElement). Если нету, то возможно его удалили из DOM...
-
Спасибо большое, Redmond. Без этих подсказок я бы так и не решил проблему - где бы в инете не лазил - везде одна и та же скудная инфа. А как Вы (не знаю как лучше на Вы или на ты :) ) изучили эту тему с DOM? Посоветуете что почитать, с примерами, чтобы я сам начал разбираться в этом вопросе?
Решил поначалу сделать первый вариант, где будет каждый раз пр новом такте заново присваиваться Doc, List, Node и с проверкой на равенство List.length нулю, а уже потом буду параллельно делать второй вариант как в примере постом выше этого, если конечно придумаю как сделать CheckNode().
Тут еще мысля опосля пришла - нужно же как-то проверять периодически соединение с сайтом. Это можно сделать в самом WebBrowser или лучше пытаться парсить сайт (в нем есть мигающий зеленый кружок и надпись "online")?
-
Еще один вопрос появился. При загрузке страницы в WebBrowser она отображается излишне крупно. Можно как-то масштаб уменьшить программно, чтобы больше влазило в видимую область?
-
В смысле есть ли интернет и доступен ли сайт? хм...Ну тут уже возможно удобнее на TIdHTTP свалить работу... Чёткие корректные термины это совершенно не моё. С: WB.Document это что-то типа "ссылка на интерфейс ActiveX компонента Internet Explorer'а, реализующий модель DOM" - https://www.w3schools.com/JSREF/dom_obj_document.aspС терминами наверняка накосячил, поправьте кто-то... :3 гм... Масштабирование бывает у самого браузера (не задумывался даже как там может быть реализовано) - зажимаем Ctrl и колесом мышки. А бывает и у элементов (появилось в CSS3). Возможно первое и реализовано как-то через второе, тут я без понятия. Сделать через CSS3 - просто и не потребует вытрясания Души из Гугла - надо просто добавить к стилям html стиль transform с масштабированием: Doc.documentElement.style.transform:='scale(0.6)'; Doc.documentElement.style.transformOrigin:='top'; Но при рассмотрении это чем-то всё же отличается от Ctrl+колесо... А вот как программно вызывать аналог Ctrl+колесо Гугл мне что-то и под пытками не сознался...
-
Привет. Думал уж что почти все проблемы решил. Перекинул значит я прогу на VPS (выделенный персональный сервер) для круглосуточной работы. А WebBrowser в ней не работает - пишет: "Проводятся технические работы.
Пожалуйста, подождите несколько минут и повторите попытку"
Причем браузер InternetExplorer выдает тоже самое, а в Яндекс-браузере загрузка страницы происходит нормально.
Скорее всего надо в настройках IE где-то покопаться, галочки куда надо проставить, только ума не приложу где именно
-
Главное другие сайты загружаются в TWebBrowser и ИЕ на ВПСе нормально, а страница торговой платформы Олимптрейда не хочет включаться там. Первоначальная старница Олимптрейда до авторизации тоже загружается нормально. Дома вообще все без проблем, а вот на ВПСе беда. Из дома запускать конечно можно - но после работы немного времени, а если круглосуточно то жалко железо, эл. энергию, да и вообще больший риск пожароопасности без присмотра. Специально взял ВПС, а на нем не работает (((
-
Можешь хромиум попробовать. Возможно будет стабильнее по разным компам.
гуглить: delphi chromium click button delphi chromium get html
ну и остальное что нужно.
-
На Хромиуме скорее всего запустится, но в этом случае опять приду к тому с чего начал, без подсказок опытных программистов не обойтись, так как в инете одна и та же скудная инфа, повторяющаяся на множестве сайтов.
-
Установил на Delphi компонент Хромиум, пока не разобрался как его использовать под свои задачи. Решил попробовать купить другой VPS - в нем уже открывается окно плаформы в Internet Explorer, НО НЕ ХОТЯТ выполняться сценарии, которые привязаны к кнопкам "ВЫШЕ" и "НИЖЕ". Облазил и перетыкал большинство настройки бразуера но так и не работает. Причем дома все ОК, а на ВПСах такая беда. не могу понять в чем дело? Может что установить дополнительно надо?
-
> Причем браузер InternetExplorer выдает тоже самое
TWebBrowser это фактически и есть Internet Explorer. Они и должны одинаково работать. Как вариант обратиться в техподдержку сайта который не открывается. Мол - "Вот, не работает!" (с)
> НО НЕ ХОТЯТ выполняться сценарии, которые
Молча? Что показывают проверки? На каком этапе и что не находится? Сообщения об ошибках ловятся?
> Второй момент - надо бы на всякий случай поправить FEATURE_BROWSER_EMULATION, Гугл знает что это.
Это делаете? Это кстати если что надо делать ещё до "инициализации" TWebBrowser.
-
Нет, не молча. Я бы скрин показал, если бы тут можно было добавить, а если по тексту то особо ничего не написано, то что ошибка сценария, веб-адрес и все. а последующие попытки вообще без ругани - просто молча
-
|