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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.07.2016, 15:45   #11
Yuran
Форумчанин
 
Регистрация: 18.02.2008
Сообщений: 198
По умолчанию

Цитата:
Chromium1.Browser.MainFrame.Execute JavaScript('document.GetElementById ("justclickme").style.color="red";' , 'about:blank', 0);

цвет меняется.
И тут тоже GetElement a ne getElement..
Так что это не важно
Yuran вне форума Ответить с цитированием
Старый 21.07.2016, 15:56   #12
Yuran
Форумчанин
 
Регистрация: 18.02.2008
Сообщений: 198
По умолчанию

Цитата:
хотя
Код:

Chromium1.Browser.MainFrame.Execute JavaScript('document.GetElementById ("justclickme").style.color="red";' , 'about:blank', 0);

цвет меняется.
Так что Get... или get... не важно. все равно не работает.
Yuran вне форума Ответить с цитированием
Старый 21.07.2016, 16:01   #13
Yuran
Форумчанин
 
Регистрация: 18.02.2008
Сообщений: 198
По умолчанию

Хотя это уже другая пестня вообще.

Вопрос был как определить координаты.
вот ответ.
Код:
      CodeStr:=CodeStr+'d=document.querySelector("тут селекторы").getBoundingClientRect();';
      CodeStr:=CodeStr+'console.log("X1X2Y1Y2 Y1:"+d.top+", X1:"+d.left+", X2:"+d.right+", Y2:"+d.bottom+", ");';

      Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
затем

Код:
procedure TForm1.Chromium1ConsoleMessage(Sender: TObject;
  const browser: ICefBrowser; const message, source: ustring; line: Integer;
  out Result: Boolean);
var s:string;
begin
//c:=c+'console.log("X1X2Y1Y2 Y1:"+d.top+", X1:"+d.left+", X2:"+d.right+", Y2:"+d.bottom+", ");';

if pos('X1X2Y1Y2',message)>0 then
  begin
  s:=message;
  delete(s,1,pos('X1:',s)+2);
  delete(s,pos(',',s),length(s));
  if pos('.',s)>0 then delete(s,pos('.',s),length(s));
  if pos(',',s)>0 then delete(s,pos(',',s),length(s));
  x1:=round(strtofloat(s));

  s:=message;
  delete(s,1,pos('X2:',s)+2);
  delete(s,pos(',',s),length(s));
  if pos('.',s)>0 then delete(s,pos('.',s),length(s));
  if pos(',',s)>0 then delete(s,pos(',',s),length(s));
  x2:=round(strtofloat(s));

  s:=message;
  delete(s,1,pos('Y1:',s)+2);
  delete(s,pos(',',s),length(s));
  if pos('.',s)>0 then delete(s,pos('.',s),length(s));
  if pos(',',s)>0 then delete(s,pos(',',s),length(s));
  y1:=round(strtofloat(s));

  s:=message;
  delete(s,1,pos('Y2:',s)+2);
  delete(s,pos(',',s),length(s));
  if pos('.',s)>0 then delete(s,pos('.',s),length(s));
  if pos(',',s)>0 then delete(s,pos(',',s),length(s));
  y2:=round(strtofloat(s));

  lb1.Items.Add('x1='+inttostr(x1)+' y1='+inttostr(y1)+' x2='+inttostr(x2)+' y2='+inttostr(y2))
  end;
//showmessage(message);
end;
]

x1,x2,y1,y2 - глобальные

Тему можно закрывать спасибо
Yuran вне форума Ответить с цитированием
Старый 21.07.2016, 16:23   #14
come-on
Участник клуба
 
Регистрация: 21.10.2015
Сообщений: 1,361
По умолчанию

document.getElementById => getElementById() { [native code] }
document.GetElementById => undefined

ну естественно "не важно", а важно гланды через зад ампутировать
come-on вне форума Ответить с цитированием
Старый 21.07.2016, 17:13   #15
Yuran
Форумчанин
 
Регистрация: 18.02.2008
Сообщений: 198
По умолчанию

Вы пожалуйста не умничайте а попробуйте сперва.

Я Вам говорю что ТУТ ошибся при написании. А для себя вернулся в делфи и проверил.
Код:
document.GetElementById ("justclickme").style.color="red";
Красит элемент в красный цвет.
значит Get... как и get... так же срабатывает.

Вот только диалог
Код:
<input type="file" id="myid">
при
Код:
Chromium1.Browser.MainFrame.Execute JavaScript('document.getElementById ("myid").click();' , 'about:blank', 0);
не открывается.

А если у пациента рот не открывается тогда и через зад можно!

Приведите мне хоть один рабочий код программного вызова подобного диалога. Тогда возьму свои слова обратно.
Yuran вне форума Ответить с цитированием
Ответ


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

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск элемента в Chromium -Jack- Общие вопросы Delphi 1 12.11.2014 21:28
XML DOM Поиск элемента по значению Spot Общие вопросы Delphi 3 21.02.2013 09:50
Как определить координаты окна и завязать с DubleClick xelby Общие вопросы Delphi 6 19.10.2012 16:24
как определить координаты курсора snaem Общие вопросы .NET 0 23.04.2008 22:27
как определить координаты ячейки с найденным текстом Тимониссимо Безопасность, Шифрование 2 30.05.2007 15:23