Откомпилированный скрипт

Степан

У меня есть такая задача:
1. Я имею откомпилированный FastScript код, содержащий функцию function MyFunction(a:string):string
2. Но не имею исходных кодов этой функции

Вопрос:
Могу ли я написать скрипт, в котором я бы использовал функцию MyFunction?
Как это сделать?

-=Serg=-

Смотрите в сторону методов SetILCode и CallFunction

-=Den=-

Сохранить код можно так:

var 
Stream:TMemoryStream;
begin
Stream := TMemoryStream.Create();
fsScript1.Parent := fsGlobalUnit;
fsScript1.Compile;
fsScript1.GetILCode(Stream);
Stream.SaveToFile('Script.fs');
end;

а загрузить так:

Stream:TMemoryStream;
begin
Stream := TMemoryStream.Create();
Stream.LoadFromFile('script.fs');
Stream.Position := 0;
fsScript1.Parent := fsGlobalUnit;
fsScript1.SetILCode(Stream);
fsScript1.CallFunction('MYFUNC',VarArrayOf(['hello']));
end;

Степан

написал:

Сохранить код можно так:
....
а загрузить так:
....

Вопрос не в этом.

Пример:

У меня есть файлы:
LibScript.fs - содержит функцию MyFunction
MyScript.pas - содержит Uses LibScript и содержит вызов функции MyFunction и еще не откомпилирован.

Как мне корректно откомпилировать MyScript.pas не имея исходных текстов LibScript , а имея только его откомпилированный код?

-=Den=-

Через uses никак .

Степан

написал:

Через uses никак .

Ну тогда может не через uses. Каким-то образом я могу использовать уже откомпилированную библиотеку в новых скриптах?

-=Den=-

Да, способ есть
Передаем(регистрируем) в скрипт класс(или объект) Tfsscript, если передаем класс то, добавляем методы loadCompilefromFile(эту функцию определите в ручную) и callfunction.

Степан

написал:

Да, способ есть
Передаем(регистрируем) в скрипт класс(или объект) Tfsscript, если передаем класс то, добавляем методы loadCompilefromFile(эту функцию определите в ручную) и callfunction.

Да ушшш. Неужели нет способа поэстетичнее?

-=Den=-

Нет.
У вас немного странная просьба зачем хранить подключаемый модуль в виде откомпилированного скрипта?

Степан

написал:

Нет.
У вас немного странная просьба зачем хранить подключаемый модуль в виде откомпилированного скрипта?

Смысл этой просьбы достаточно стандартный: разграничение уровня доступа к скриптам. Приложение (которое использует ядром FastScript) поставляется клиенту со скриптами, которые написал поставщик приложения и только он их может менять. Клиент может только писать свои скрипты, которые могут использовать библиотеки поставщика приложения. Поставщик, понятное дело, хочет обновлять свои библиотеки отдельно от exe-файла приложения. Фактически, если вы знакомы с Navision, то это нужно чтобы организовать аналогичное разграничение доступа к библиоткам: слой поставщика решения, поставщика адаптации для клиента, слой клиента.

-=Den=-

Сделайте одну функцию(как uses) которая будет подключать скрипт, реализовать такую функцию не сложно.

-=Den=-

Завтра могу выложить пример.

Степан

написал:

Завтра могу выложить пример.

Буду страшно благодарен