RemObjects Pascal Script и динамические объекты

[Shura1oplot]

При создании динамических объектов в скрипте, объект TPSExec выдает ошибку "Exception: Access violation" Пробовал в виндоус и линуксе. Программа

Код: Выделить всё

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes,
  uPSCompiler,
  uPSRuntime,
  uPSC_std,
  uPSC_classes,
  uPSR_std,
  uPSR_classes;

const
  Script = 'begin TStringList.Create; end.';

var
  Compiler: TPSPascalCompiler;
  Exec: TPSExec;
  Data: string;
  CI: TPSRuntimeClassImporter;

function ScriptOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
begin
  if Name = 'SYSTEM' then
  begin
    SIRegister_std(Sender);
    SIRegister_classes(Sender,false);
    Result := True;
  end else
    Result := False;
end;

begin
  Compiler:=TPSPascalCompiler.Create;
  Compiler.OnUses:=@ScriptOnUses;
  if not Compiler.Compile(Script) then begin
    Compiler.Free;
    Exit;
  end;
  Compiler.GetOutput(Data);
  Compiler.Free;

  CI:=TPSRuntimeClassImporter.Create;
  RIRegister_Std(CI);
  RIRegister_Classes(CI,false);

  Exec := TPSExec.Create;
  RegisterClassLibraryRuntime(Exec,CI);

  if not Exec.LoadData(Data) then begin
    Exec.Free;
    Exit;
  end;

  Exec.RunScript;
  writeLn(TIFErrorToString(Exec.ExceptionCode,Exec.ExceptionString));

  Exec.Free;
  CI.Free;
end.


Делал точь-в-точь по примерам. Аналогичная программа, скомпилированная в Delphi 2007 исполняет скрипт без ошибок. Куда стоит копать?

[GrayEddy]

> Compiler.OnUses:=@ScriptOnUses;

Попробуйте убрать "собаку" или выставьте режим {$mode delphi} ({$mode objfpc} - убрать)

[Shura1oplot]

GrayEddy
без @ с {$mode objfpc} компилятор ругается на неверное количество параметров. с {$mode delphi} не ругается. TPSExec все равно выдает ошибку

[GrayEddy]

Скорее всего, Exec = NIL.
Поставьте в коде для переменной Exec проверку на NIL после Create.
К примеру

Код: Выделить всё

Exec := TPSExec.Create;
if Assigned(Exec) then begin
..
end
else
  Writeln('Error! Exec = NIL');

[Shura1oplot]

GrayEddy
Ошибка возникает в ходе выполнения скрипта. Если не использовать динамические объекты, то скрипт выполняется без ошибок.

[GrayEddy]

Скачал RemObjects Pascal Script. Попробую с ним поиграться.
О результатах попозже.