Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 1
Регистрация: 23.04.2013
Сообщений: 210
1

Delphi и javascript

31.10.2014, 13:46. Показов 1441. Ответов 1
Метки нет (Все метки)

В общем, мне надо получить значение bgresponse
Вот сама js функция
Javascript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(function(){
  var signinInput = document.getElementById('signIn');
  gaia_onLoginSubmit = function() {
  try {
  document.bg.invoke(function(response) {
  document.getElementById('bgresponse').value = response;
  });
  } catch (err) {
  document.getElementById('bgresponse').value = '';
  }
  return true;
  }
  document.getElementById('gaia_loginform').onsubmit = gaia_onLoginSubmit;
  var signinButton = document.getElementById('signIn');
  gaia_attachEvent(window, 'load', function(){
  gaia_scrollToElement(signinButton);
  });
  })();
как ее выполнить в делфи?

Добавлено через 15 часов 48 минут
подниму
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2014, 13:46
Ответы с готовыми решениями:

delphi и javascript
Добрый день, столкнулся с проблемой делая постилку в блог (http://planeta.rambler.ru) там чтобы...

Delphi TWebBrowser JavaScript
У меня на форме в delphi лежит компонент TWebBrowser туда загружается html код прогрммано, в...

Перевести из Javascript в Delphi
Помогите перевести код из Javascript в Delphi Сам скрипт и пример здесь:...

Delphi. WebBrowser + Javascript
Доброго времени суток! Мне нужен код который будет нажимать на кнопку запрограммированной на...

1
13070 / 5856 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
02.11.2014, 18:16 2
Лучший ответ Сообщение было отмечено Dima-nk как решение

Решение

Delphi
1
2
3
4
5
6
var
  S : String;
begin
  S := WebBrowser1.OleObject.document.getElementById('bgresponse').value;
  ShowMessage('value = "' + S + '".');
end;
С проверками:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//Обработка HTML документа.
procedure TForm1.Button2Click(Sender: TObject);
var
  Doc, Elem : OleVariant;
begin
  //Ссылка на интерфейс документа.
  Doc := WebBrowser1.OleObject.document;
  if VarIsClear(Doc) then
  begin
    MessageBox(Handle, 'Объект документа не создан. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
  
  //Попытка найти элемент по ID и получить ссылку на интерфейс этого элемента.
  Elem := Doc.getElementById('bgresponse');
  if VarIsClear(Elem) then
  begin
    MessageBox(Handle, 'Элемент с id="bgresponse" не найден!',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
  
  S := Elem.value;
  ShowMessage('value = "' + S + '".');
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2014, 18:16

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Какие отличия Delphi 5, Delphi 6 и Delphi 7
Кто-нибудь юзал Delphi 6? Если да, то напишите, плиз, его отличия от 5-ой версии (плюсы и минусы)...

Связь Delphi и JavaScript, либо JavaScript и .txt
Есть программа, которая заносит в memo две координаты, нужно передать их в javascript(js). Как...

JavaScript на Delphi
Как мне выполнить JavaScript на delphi ? Убидительная просьба не советовать TWebBrowser ! В нете...

Из javascript в delphi
Всем привет. Помогите переписать функцию из js в delphi. var temp="",c=0,out="";var...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.