ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
11 сообщений из 11, страница 1 из 1
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957286
Alimkulov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alimkulov
Участник
Привет всем!
Вот такая ситуация:
Есть 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, 12:21
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957372
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
AlimkulovКак это делается?
Вопрос явно не по JS...
...
Рейтинг: 0 / 0
13.05.2015, 13:00
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957377
Alimkulov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alimkulov
Участник
krvsa,
Может быть! Но даже не знаю куда и как писать эту ситуация.
...
Рейтинг: 0 / 0
13.05.2015, 13:02
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957402
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
AlimkulovНо даже не знаю куда и как писать эту ситуация.
На sql.ru есть специальный раздел по Дельфям... И вопросов там по JS просто валом!
http://www.sql.ru/forum/264278/mozhno-li-v-delphi-ispolzovat-javascript
...
Рейтинг: 0 / 0
13.05.2015, 13:12
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957443
Фотография user89
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
user89
Участник
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:30
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957486
Alimkulov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alimkulov
Участник
user89,
Отлично!
...
Рейтинг: 0 / 0
13.05.2015, 13:54
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957528
Alimkulov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alimkulov
Участник
Код: 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:12
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957544
Alimkulov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alimkulov
Участник
Я правильно задавал вопроса и правильно ответили!
...
Рейтинг: 0 / 0
13.05.2015, 14:18
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957562
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
AlimkulovЯ правильно задавал вопроса и правильно ответили!
Ошибся только разделом ты...
...
Рейтинг: 0 / 0
13.05.2015, 14:27
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957576
Фотография Владимир Лазурко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Лазурко
Участник
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:33
| Ответить | Цитировать | Написать  
Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
    #38957580
Alimkulov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alimkulov
Участник
Владимир Лазурко,
Спасибо!
...
Рейтинг: 0 / 0
13.05.2015, 14:35
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как можно вызывать функцию JavaScript'а из другого приложения, на пример из Delphi?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=22&gotonew=1&tid=1446027]:
 0ms
get settings:
 10ms
get forum list:
 24ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 177ms
get topic data:
 8ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 228ms
total:  509ms
созд. / загр.: 509ms
x
x
Закрыть


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