Как передать в скрипт переменные и объект

Ronaldo · October 2005

Документацию читал, сразу говорю. Но она у Вас слишком коротко написана. Уважаемые, без обид, но не все профи как Вы, тем более вы разработчики.
Я только только начинаю с этим разбираться и вопросов много, Думаю скажу от лица всех пользователей, что примеров маловато, жедательно добавить, причём посложнее, например тоже передача переменных в скрипт, массивов, объектов, новых типов...

Извините за лирическое отступление. Теперь вопрос.

переделал Ваш скрипт:
void OK(string s)
{
ShowMessage(s);
}

{
ar = IntToStr(iTest);

s = "";
s += ar;
OK(s);
}

И из вашего примера С++Demoы хочу в этот скрипт передать переменную.
В обработчике нажатия кнопки Run пишу так

int iTest = 10;
fsScript1->AddVariable("iTest", "Integer", &iTest);

при выполнении скрипта выдаёт ошибку, что переменная iTest не определена.

Как тогда её туда передать.

Вопрос ламерский, знаю, не ругайтесь, Please.
Большое спасибо.
Если можете (не жалко) киньте на мыло примерчики.

-=Den=- · October 2005

Попробуйте так:
int iTest = 10;
fsScript1->AddVariable("iTest", "Integer", iTest);

Ronaldo · October 2005

В параметрах функции AddVariable передача переменной по ссылке. ТАк что не поможет.

-=Den=- · October 2005

Sorry!
Показалось что DELPHI а не BORLAND.

-=Den=- · October 2005

Вы используете скрипт C++ тогда переменную надо обьявить как int:
int iTest = 10;
fsScript1->AddVariable("iTest", "int", &iTest);

Ronaldo · October 2005

А нифига...
У тебя примерчик какой-нить есть? Прислать можешь?

Ronaldo · October 2005

Вот я ещё пример написал
Подскажите что я не так делаю
Написано в Builder 6.

char mas[10];
strcpy(mas, "Test");
Script->Clear();
Script->Parent = fsGlobalUnit();
Script->AddVariable("Test", "Char", mas);
Script->Lines->Text = "{ ShowMessage(mas); }";

Script->SyntaxType = "C++Script";
if(Script->Compile())
Script->Execute();
else
MessageBox(NULL, Script->ErrorMsg.c_str(), "Îøèáêà", MB_OK);

-=Den=- · October 2005

написал:

В параметрах функции AddVariable передача переменной по ссылке. ТАк что не поможет.

Вот именно, что по ссылке зачем ей передовать адрес (& - операция взятия адреса). Обращение происходит как к переменной.
Для примера:

void fn(int &ch)
{
ch*=ch;
}
....
....
int ch=10;
fn(ch);//работает
//fn(&ch) //неработает попытка передать адресс

Конечно с Variant дело обстоит иначе.
Я уже думал что схожу с ума(совсем меня запутали)

P.S.
Говоря о примерах их можете взять Здесь.

Ronaldo · October 2005

Хорошо, ну а что тогда неправильно в примере выше???

-=Den=- · October 2005

А что вы делаете в срипте?
Можете прислать примерчик?
P.S.
У вас мои примеры работают?

Ronaldo · October 2005

char mas[10];
strcpy(mas, "Test");
Script->Clear();
Script->Parent = fsGlobalUnit();
Script->AddVariable("Test", "Char", mas);
Script->Lines->Text = "{ ShowMessage(mas); }";

Script->SyntaxType = "C++Script";
if(Script->Compile())
Script->Execute();
else
MessageBox(NULL, Script->ErrorMsg.c_str(), "Îøèáêà", MB_OK);

Просто пытаюсь передать в скрипт массив и вывести его на экран. Дурь конечно... но это отработка передачи в скрипт переменных. Твои примеры сейчас посмоторю

-=Den=- · October 2005

В примере вы обьявили указатель на массив символов, а в скрипте переменную типа char (char - в скрипте должен начинатся с маленькой буквы т.к в скриптах сохраняется весь синтаксис c++).
Если хотите передать массив то попробуйте так
Script->AddVariable("Test[10]", "сhar", mas);

Ronaldo · October 2005

Всё с передачей в скрип переменной разобрался, теперь более сложная задачка - передать объект...
И ещё вопрос а передать объект своего класса можно?

-=Den=- · October 2005

написал:

Всё с передачей в скрип переменной разобрался, теперь более сложная задачка - передать объект

Пока передачу обьектов пробовал только в DELPHI, как только испробую в Buildere сразу выложу пример.

написал:

И ещё вопрос а передать объект своего класса можно?

Если ваш класс зарегистрирован в скрипте.

Ronaldo · October 2005

А пробывал зарегить его.
Нефига не получается.ю ТАма походу дела можно только производные от TOblect! Или я ошибаюсь????
Можно примеры и на делфи. Выкладывай

-=Den=- · October 2005

Ок.
Завтра выложу

.

Ronaldo · October 2005

Спасибки

Так что на счёт моего предположения относительно обязательности быть производным от TObject

-=Serg=- · October 2005

Интресно, как вы объявляете клас НЕ наследником TObject?

Ronaldo · October 2005

Интресно, как вы объявляете клас НЕ наследником TObject?

?????

class MyClass
{
....
}

А что здесь такого. Я Вас что-то не понял.
Но только как объект такого класса передать в скрипт?!

-=Serg=- · October 2005

Любой класс - наследник TObject. Даже если явно не указанно.

Ronaldo · October 2005

ну тогда простенький примерчик можешь дать?

-=Den=- · October 2005

Самый простой можно взять здесь.
P.S.
Ещё рекомендую просмотреть вот этот топик:
AddClass и AddObject, Проблемы при добавлении своего класса

Ronaldo · October 2005

ЛАдно,практический вопрос - как передать в скрмпт объект TForm

Script->AddObject("Form1", Form1);

ТАк нефига не получается.

-=Den=- · October 2005

Попробуйте так:

Script->AddClass(_classid(TForm1),"TForm");//добавляем класс наследник TForm в скрипт (TForm1 - по умол. класс главного окна).
Script->AddObject("Form1", Form1);//передаём обект класса TForm1 и работаем с формой в скрипте.

-=Den=- · October 2005

Прошу прощения перед __classid два знака подчёркивания

Ronaldo · October 2005

Уже заметил...
Тоьлко всё равно ничего не получилось... Определил я в TForm1 в public переменную но в скрипте она всё равно не доступна...

-=Den=- · October 2005

Дать пример?

Ronaldo · October 2005

И ещё такой вопрос, а можно ли завернуть FastScript в DLL и юзать другим приложением?

-=Den=- · October 2005

Пример здесь.

написал:

И ещё такой вопрос, а можно ли завернуть FastScript в DLL и юзать другим приложением?

Что вы имеете ввиду(завернуть сам компонент FS или код скрипта) ?

Ronaldo · October 2005

Именно сам компонент

-=Den=- · October 2005

А для чего вам это нужно

?

Как передать в скрипт переменные и объект

Комментарии

Оставить комментарий