RE: スクリプト内の関数をアプリケーション側から呼ぶ (2005-08-16 19:57 by shobohn #15831)
こんな感じでしょうか
function TTestObj.call(Param: TJValueList): TJValue;
var
v: TJValue;
prm: TJValueList;
begin
EmptyValue(Result);
if IsParam1(Param) then
begin
v := Param[0];
if IsFunction(@v) and Assined(FEngine) then
begin
prm := TJValueList.Create;
try
prm.Add('関数に渡す引数1');
prm.Add('関数に渡す引数2');
Result := TJEngine(FEngine).CallExpr(v.vFunction,prm,Self);
finally
prm.Free;
end;
end;
end;
end;