FastScript - dem Script ein Interface hinzufügen

[geskill]

Das ist soweit ja möglich. Aber wenn man jetzt im Script ist und der Anwender schreibt so was:

Code:

ScriptVariable.Test_1;

Dann dafür müsste man ja FastScript diese Befehle übergeben:

Delphi-Quellcode:

#
  with AddClass(TApplicationImpl, 'TApplicationImpl') do 
  begin 
    AddMethod('procedure Test_1', CallMethod); 
  end; 
    
  AddObject('ScriptVariable', IProgrammVariable);

================================================== ==========
Wäre da nur diese eine Prozedur könnte ich gleich die ganze Klasse weglassen und nur die Prozedur hinzufügen. Habe hier mal das aktuelle Interface.

http://img5.imagebanana.com/img/4oqi.../Interface.jpg

So soll der User z.b. diesen Script Code benutzen können:

Code:

for(var i = 0; i < ScriptVariable.MirrorCount; i++) 
  for(var j = 0; j < ScriptVariable.Mirror[I].DirectlinksMirrorCount; j++) 
    ShowMessage(ScriptVariable.Mirror[I].DirectlinksMirror[J]);