我正在使用 Delphi 2006 和 psvActiveScript .
例子:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
ObjComAuto, ComObj, psvActiveScript;
type
TForm1 = class(TForm)
btnExecute: TButton;
procedure btnExecuteClick(Sender: TObject);
procedure ASWError(Sender: TObject; Line, Pos: Integer; ASrc, ADescription: String);
end;
var
Form1: TForm1;
ASW: TpsvActiveScriptWindow;
implementation
{$R *.DFM}
type
{$METHODINFO ON}
TMySriptableClass = class(TObjectDispatch)
public
constructor Create;
procedure Alert(msg: string);
// THIS OR SOMETHING SIMILAR NOT POSSIBLE? **********************
function FnWithVarNumOfArgs(const args: array of string): string;
// **************************************************************
end;
{$METHODINFO OFF}
constructor TMySriptableClass.Create;
begin inherited Create(Self, False); end;
procedure TMySriptableClass.Alert(msg: string);
begin ShowMessage(msg); end;
function TMySriptableClass.FnWithVarNumOfArgs(const args: array of string): string;
begin Result := 'OK'; end;
procedure TForm1.btnExecuteClick(Sender: TObject);
var
MyObj: TMySriptableClass;
begin
ASW := TpsvActiveScriptWindow.Create(self);
ASW.ScriptLanguage := 'JScript';
ASW.OnError := ASWError;
MyObj := TMySriptableClass.Create;
ASW.AddNamedItem('MyObj', MyObj);
try
ASW.Execute(
'MyObj.Alert("Warning: Here comes Error");'+
'MyObj.FnWithVarNumOfArgs("1","2","3")'
);
finally
ASW.Free;
end;
end;
procedure TForm1.ASWError(Sender: TObject; Line, Pos: Integer; ASrc, ADescription: String);
begin Showmessage(ADescription + ': ' + ASrc); end;
end.
最佳答案
[...]
uses
activex, objcomauto, comobj;
type
{$METHODINFO ON}
TMySriptableClass = class(TObjectDispatch)
public
[...]
function FnWithVarNumOfArgs(const args: OleVariant): string;
[...]
function TMySriptableClass.FnWithVarNumOfArgs(const args: OleVariant): string;
var
dispParams: activex.DISPPARAMS;
vtRet, Element: OleVariant;
Enum: IEnumVARIANT;
Fetched: LongWord;
begin
if TVarData(args).VType = varDispatch then begin
OleCheck(IDispatch(args).Invoke(DISPID_NEWENUM, GUID_NULL,
LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET,
dispParams, @vtRet, nil, nil));
Enum := IUnknown(vtRet) as IEnumVARIANT;
while (Enum.Next(1, Element, Fetched) = S_OK) do
ShowMessage(Element);
end;
Result := 'OK';
end;
[...]
ASW.Execute('var myArray=["myarg1", 5, true];' +
'MyObj.FnWithVarNumOfArgs(myArray);');
[...]
关于javascript - 是否可以从 IActiveScript 调用带有可变数量参数的 Delphi 方法?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5210839/