Цитата(Vit @ 20.9.2003, 00:18)

Halt, Exit не пробовал?

Vit не совсем так ... про эти команды я знаю .... вот код:

Код

...... JvInterpreterProgram.Pas.LoadFromFile('c:\unit1.pas'); JvInterpreterProgram.Run; ..... //А теперь по какой-то причине надо завершить работу скрипта //JvInterpreterProgram.Exit - нет такого :( //JvInterpreterProgram.Stop - нет такого :( //JvInterpreterProgram.Close - нет такого :( //JvInterpreterProgram.Terminate - нет такого :(

JvInterpreterProgram.Free - не красиво получается, выскакивает окно с ошибкой ......... и больше как незнаю

....... получается JvInterpreterProgram.Run - это машина без тормозов

Это сообщение отредактировал(а) Monty - 20.9.2003, 03:34

Понял, не знаю, надо в исходники лезть... Попробуй просто текст скрипта убить, может поможет...

У меня еще ряд вопросов
Ну ни как не получется создать свой как бы виртуальный модуль, допустим я копирую модуль JvInterpreter_System.pas под другим названием JvInterpreter_MyFunctions.pas, убираю от туда все, но оставляю подходящии функции по количесту аргументов, например,
было:

Код

procedure JvInterpreter_Random(var Value: Variant; Args: TArgs); begin  Value := Random(Integer(Args.Values[0])); end;

стало:

Код

procedure JvInterpreter_Sleep(var Value: Variant; Args: TArgs); begin  Sleep(Integer(Args.Values[0]);  Value := Null; //можно и не ставить ............... end;

потом пишу:

Код

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: TJvInterpreterAdapter); begin  with JvInterpreterAdapter do  begin    AddFun('MyFunctions', 'Sleep', JvInterpreter_Sleep, 1, [varInteger], varEmpty); end; end; { RegisterJvInterpreterAdapter }

Но результата нет .......... я точно что-то не так сделал!

Добавленно:
И ни чего не получается ... и класс добавить не могу .......... и у себя в проектe прописываю JvInterpreter_MyFunctions .... и в том коде что выполняется интерпритатором

Это сообщение отредактировал(а) Monty - 22.9.2003, 19:26

Посмотри что они там пишут в секции Initialization модулей, может там собака порылась, вообще возьми их функцию и тщательно по всему их коду поищи её название, может оно где фигурирует и объявление функции недостаточно

Цитата(Vit @ 23.9.2003, 05:17)

Посмотри что они там пишут в секции Initialization модулей, может там собака порылась, вообще возьми их функцию и тщательно по всему их коду поищи её название, может оно где фигурирует и объявление функции недостаточно

Vit .......... я забыл поставить

Код

JvInterpreter_MyFunctions.RegisterJvInterpreterAdapter(GlobalJvInterpreterAdapter);

Я же видел это, а свой модуль не прописал

Теперь все работает ...... спасибо

Это сообщение отредактировал(а) Monty - 23.9.2003, 19:40

Привет!

Я тоже заинтересовался интерпретатором

Код

JvInterpreterProgram1.Pas := Memo1.Lines; JvInterpreterProgram1.Run;

Memo1 содержит:

Цитата

unit dm9dm9dm9; procedure main; begin    showmessage ('Hello, World!!!'); end; end.

Выдаётся: function 'main' undefined



То же самое:

Код

procedure TForm1.Button1Click(Sender: TObject); var   X : Integer; begin   JvInterpreterProgram1.Pas := Memo1.Lines;   X := JvInterpreterProgram1.CallFunction ('MyPlus', nil, [10, 20]);   ShowMessage (IntToStr (X)); end;

Memo1:

Цитата

unit JvInterpreterFunctionCall; function MyPlus(A, B: Integer): Integer; begin   Result := A + B; end; end.

Теперь: Undeclarate identifer 'MyPlus'...

Что я делаю не так?

Это сообщение отредактировал(а) dm9 - 25.9.2003, 16:53

Я такое же получил когда скачал JEDI VCL 2.10 ......... там интерпритатор у меня не работает и выдает странные ошибки !!! ........... НО JEDI VCL 2 BETA работает отлично не смотря на то что она бэта

........ у тебя все верно ..... и это из демо ......... прикольно, когда ихняя же демо не работает

PS я сначло думал что это я криво поставил ....... оказывается нет

PPS а кто может им написать насчет этого бага? я энглиш не знаю ..... да и не хорошо как то, ведь эта версия не бэта, еслиб была бэта было бы понятно ...... к тому же я посмотрел, они в новой версии просто переименовали класс TArg в TJvcInterpreter_Arg .... как то так, но все равно он не функционирует ;(

Это сообщение отредактировал(а) Monty - 25.9.2003, 23:55

Спасибо, скачаю 2.0 beta.

Теперь ещё вопрос: а нету ли справочки по компоненту? По этому интерпретатору и по некоторым другим компонентам ни в одном hlp я ничего не нашёл... Что, только по демкам изучать?

Цитата(dm9 @ 25.9.2003, 22:59)

Спасибо, скачаю 2.0 beta. Теперь ещё вопрос: а нету ли справочки по компоненту? По этому интерпретатору и по некоторым другим компонентам ни в одном hlp я ничего не нашёл... Что, только по демкам изучать?

Ага ... по демкам и методом тыка ............. лично я смотрю дэмки, полазил по файлу JvInterpreter_Classes.pas и т.д. .... так там всё ясно ....... и загляни в файл JvInterpreter_all.pas ........ вот я понял в чем ошибка когда его просмотрел

Вроде, работает

У меня появился новый вопрос: как (если это возможно) использовать внутри скрипта подпрограммы, написанные в этом же скрипте?

Так не работает:

Код

unit dm9dm9dm9; procedure DDD; begin   ShowMessage ('Hello, World!!!'); end; procedure Main; begin   DDD; end; end.

А так вообще ошибку выдаёт :

Код

unit dm9dm9dm9; procedure Main; procedure DDD; begin   ShowMessage ('Hello, World!!!'); end; begin   DDD; end; end.

Это сообщение отредактировал(а) dm9 - 28.9.2003, 02:52

dm9, а твой код у меня работает

Код

unit dm9dm9dm9; procedure DDD; begin  ShowMessage ('Hello, World!!!'); end; procedure Main; begin  DDD; end; end.

Посмотри Дэмос, а именно проект ".....\JeDi\JVCL\examples\RALib\RaInterpreter\JvInterpreterTest.dpr"

PS Удивление прошло, но восхищение осталось

Мне нужна помощь, как предоставить набор готовых функции пользователям для написания собственных скриптов и причем самых необходимых, затем по нажатию кнопочки этот скрипт запустить? ну например написать скрипт заливки прошивки в микроконтроллер через COM-порт, есть функция отправки по протоколу XModem xmodem_send(), ожидания символа по таймауту wait () и run() для запуска прошивки, вот так получится скрипт

wait(RedBoot); // ждем строку RedBoot
XModem_send(software.bin); // отправка файла
sleep(1000); //пауза

Как это все можно сделать с помошью JvInterpreterProgram?