Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> CreateOLEObject('ScriptControl') возврат значений 
:(
    Опции темы
teacher032
Дата 27.3.2016, 13:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 5.3.2014

Репутация: нет
Всего: нет



Подскажите - надо, чтобы скрипт вернул несколько значений, чтобы потом их как-то использовать. 
Вот так вот получаю одно, что последнее присваивалось последний раз чему-то. 
Что именно возвращается, почему это? Как получить несколько значений?

Код

procedure TForm1.Button1Click(Sender: TObject);
var js: OleVariant;
begin
  try
    js := CreateOLEObject('ScriptControl');
    js.TimeOut  := -1;
    js.AllowUI  := True;
    js.Language := 'JScript';
    try
      js.AddCode(Memo1.Text);
      Label1.Caption := js.Eval(Memo1.Text);
    except
      ShowMessage('Script text error!');
    end;
  except
    ShowMessage('ScriptControl is not installed!');
  end;
  js := Unassigned;
end;


Код

a = 15;
b = 20;
for (i = 0; i < 3; i++) {
   a = a + i ;
   b = b + 1;
}


Получаю: 23
т.е. результат последней b = b + 1;
а почему так?
а как получить а?
PM MAIL   Вверх
Sajtran
Дата 28.3.2016, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 15.10.2008
Где: Мегион

Репутация: нет
Всего: 2



например, функцию вызывать из скрипта

js.Func1(...)

а лучше просто COM-объект сделать через WS

Этот ответ добавлен с нового Винграда - http://vingrad.com
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




[ Время генерации скрипта: 0.0998 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.