2

Delphi XE用のRemObjects Pascal Scriptコンポーネントを使用しています。次のコードを作成しました。

type
  ITest = interface(IInterface)
  ['{7762A355-052F-449D-8347-01B59E2D2738}']
    procedure Execute;
  end;

  TTest = class(TInterfacedObject, ITest)
  private
    procedure Execute;
  end;


procedure TForm1.Button3Click(Sender: TObject);
var T: ITest;
    o: TPSScript;
begin
  T := TTest.Create;  

  o := TPSScript.Create(nil);
  try
    o.Script.Text :=
      'begin '                                    + sLineBreak +
      '  T.Execute; '                             + sLineBreak +
      'end.';
    Execute(o);
  finally
    o.Free;
  end;
end;


私の質問は、パスカル スクリプトで T.Execute を呼び出せるように、インターフェイス変数 T (ITest のインスタンス) をパスカル スクリプトに登録する方法です。

4

2 に答える 2

2

最初に、OnCompile イベントでインターフェイス タイプを登録する必要があります。

with ps.Compiler.AddInterface(ps.Compiler.FindInterface('IUnknown'), StringToGuid('{7762A355-052F-449D-8347-01B59E2D2738}'), 'ITest') do
  RegisterMethod('procedure Execute;', cdRegister);
ps.AddRegisteredVariable('data', 'ITest');

次にOnExecuteで:

SetVariantToInterface(ps.GetVariable('data'), mydata);
于 2011-05-31T08:30:10.127 に答える
0

それは彼らのウィキ、ここの記事で説明されています。たぶん誰かがそれを要約することができます、誰がこのようなものに興味がありますか。私はちょうどグーグルを通してそれを見つけました。

于 2011-05-31T07:04:19.133 に答える