Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi? / 11 сообщений из 11, страница 1 из 1
13.05.2015, 12:21
    #38957286
Alimkulov
Alimkulov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
Привет всем!
Вот такая ситуация:
Есть HTML
Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
<html>
...
  <script>
     function SomeFunc()
     {
      ...
     }
</script>
<body>
...
<body>


И Delhpi код
Код: pascal
1.
2.
3.
4.
5.
6.
procedure TForm3.Button1Click(Sender: TObject);
var HDoc : IHTMLDocument;     
begin
   HDoc := WebBrowser1.Document as IHTMLDocument;
   // Вот здесь надо вызывать SomeFunc       
end;


Как это делается?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 13:00
    #38957372
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
AlimkulovКак это делается?
Вопрос явно не по JS...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 13:02
    #38957377
Alimkulov
Alimkulov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
krvsa,
Может быть! Но даже не знаю куда и как писать эту ситуация.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 13:12
    #38957402
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
AlimkulovНо даже не знаю куда и как писать эту ситуация.
На sql.ru есть специальный раздел по Дельфям... И вопросов там по JS просто валом!
http://www.sql.ru/forum/264278/mozhno-li-v-delphi-ispolzovat-javascript
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 13:30
    #38957443
user89
user89
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
Alimkulov,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
uses MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
  HTMLWindow: IHTMLWindow2;
  jStr: string;
begin
  WebBrowser1.Document.QueryInterface(IHTMLDocument2, Doc);
  HTMLWindow := Doc.parentWindow;
  if not Assigned(HTMLWindow) then Exit;

  jStr := 'var k=0; var btns=document.getElementsByTagName("button"); for (i=0; i<btns.length; i++) ' +
  '{if (btns[i].className=="mybtnclass") {k++; if (k==1) {btns[i].click();}}}';
  HTMLWindow.execScript(jStr, 'JavaScript');
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 13:54
    #38957486
Alimkulov
Alimkulov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
user89,
Отлично!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 14:12
    #38957528
Alimkulov
Alimkulov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TForm3.btn1Click(Sender: TObject);
var Doc : IHTMLDocument2;
    HTMLWindow: IHTMLWindow2;
begin
  wb1.Document.QueryInterface(IHTMLDocument2, Doc);
  HTMLWindow := Doc.parentWindow;
  if not Assigned(HTMLWindow) then Exit;
  ScriptControl1 := TScriptControl.Create(Self);
  ScriptControl1.Language := 'JScript';
  ScriptControl1.AddObject('HTMLWindow', HTMLWindow, False);
  ScriptControl1.ExecuteStatement('HTMLWindow.alert("Hello world")');
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 14:18
    #38957544
Alimkulov
Alimkulov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
Я правильно задавал вопроса и правильно ответили!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 14:27
    #38957562
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
AlimkulovЯ правильно задавал вопроса и правильно ответили!
Ошибся только разделом ты...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 14:33
    #38957576
Владимир Лазурко
Владимир Лазурко
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
Alimkulovна пример из Delphi"например" в данном случае пишется пишется слитно.
Второе. Напрмер, в 1С это делается так:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
// синус
function sin(value,sc=0)
  try 
    if sc=0 then
      sc=createObject("MSScriptControl.ScriptControl");
    endif;
    sc.language="VBscript";
  except
    return getEmptyValue();
  endtry;
  return sc.eval("sin("+value+")");
endFunction
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2015, 14:35
    #38957580
Alimkulov
Alimkulov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
Владимир Лазурко,
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi? / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 439ms
Закрыть
start [/forum/topic.php?fid=22&tablet=1&tid=1446027]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 135ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 209ms
total:  439ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]