fsScript1.Clear

lvi

fsScript1.Clear; // надо очищать компонент, если он используется для запуска нескольких скриптов

Вот что написано в документации , а то что при этом удаляются обьекты , их надо постоянно переописывать ???

-=Serg=-

Подробнее можно?

lvi

При создании формы следующие действия:

fsScript.Parent := fsGlobalUnit;
fsScript.AddForm(Self);

Существует два неких события:
1 - Вызов на исполнение
2 - Вызов оболочки в которой производиться написание и компиляция скрипта

Поэтому добавление объектов происходит один раз.

При вызове на исполнение - код:

procedure aExecuteExecute(Sender: TObject);
var
FileStream: TFileStream;
begin
inherited;
fsScript.Clear;
FileStream:= TFileStream.Create('c:\1.pfe', fmOpenRead);
if not fsScript.SetILCode(FileStream) then
ShowMessage(fsScript.ErrorMsg);
FileStream.Free;
fsScript.Execute;
end;

При вызове метода Clear убиваются и все объекты описанные при создании,
очищать как то только то , что было загруженно можно ?

-=Serg=-

Clear очищает скрипт полность. Советую написать функцию, например InitMyScript, в которой будете инициализировать нужные объеты и вызывать её после Clear.

lvi

Это понятно , я решил сделать через второй объект, т.е. в инициализации учавствет FsScript а в момент исполнения используется FsScriptRun
Вопрос , как много пямяти съедает TfsScipt один объект ?

Lobanovv

Действительно существует такая проблема и не хочется каждый раз добавлять объекты. Я поступил следующим образом: после добавления объектов запоминаю объщее колво объектов до выполнения objCount:= fsScript.Items.Count;
А перед каждым выполнением скрипта удаляю все объекты начиная с конца до
objCount = fsScript.Items.Count. Это порой быстрее чем добавлять свои элементы заново.

lvi

Ну я иначе рашил , сделал глобальный объект

initialization
FsCustomScript := TfsScript.Create(nil);

finalization
FsCustomScript.Free;

потом у себя держу свой объект со своими новыми параметрами и обьектами и вызываю так

procedure aExecuteExecute(Sender: TObject);
var
FileStream: TFileStream;
begin
inherited;
AppDisable;
try
FsCustomScript.Clear;
FileStream:= TFileStream.Create(ExtractFilePath(ParamStr(0)) +
'\ExDoc.pfe', fmOpenRead);
FsCustomScript.Parent := fsScript;
if not FsCustomScript.SetILCode(FileStream) then
ShowMessage(FsCustomScript.ErrorMsg);
FileStream.Free;
FsCustomScript.Execute;
finally
AppEnable;
end;
end; {End aExecuteExecute}