fsScript1.Clear

Комментарии

• -=Serg=-

  March 2005 отредактировано 04:56

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

  March 2005 отредактировано 04:56

  При создании формы следующие действия:
  
  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=-

  March 2005 отредактировано 04:56

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

  March 2005 отредактировано 04:56

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

  March 2005 отредактировано 04:56

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

  March 2005 отредактировано 04:56

  Ну я иначе рашил , сделал глобальный объект
  
  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}