Delphi將字串引數傳遞給IDispatch.Invoke-有解無憂

使用 Delphi 11.1，我想使用 IActiveScript 向我的應用程式添加腳本。我創建了一個小的 VBScript 來測驗從 Delphi 到腳本的引數傳遞：

function test2(n)
  MsgBox n
  test2 = n
end function

VBScript 代碼加載正常，傳遞一個整數作為引數作業正常，但是當傳遞一個字串引數時，我發現只有字串的前半部分進入腳本。德爾福代碼：

procedure TForm1.Button4Click(Sender: TObject);
var
  Disp: IDispatch;
  Res: OleVariant;
  DispParams: TDispParams;
  s: string;
  n: Integer;
  v: Variant;
  Arg: array of TVariantArg;
begin
  OleCheck(FScript.GetScriptDispatch(nil, Disp));

  s := 'test2';

  OleCheck(Disp.GetIDsOfNames(GUID_NULL, @s, 1, 1033, @n));

  v := VarArrayOf(['1234567890']);

  SetLength(Arg, VarArrayHighBound(v, 1) - VarArrayLowBound(v, 1)   1);

  arg[0].vt := VT_BSTR;
  arg[0].bstrVal := PWideChar(VarToStr(v[0])); //passes first half of string only
//  arg[0].bstrVal := SysAllocString(PWideChar(VarToStr(v[0]))); //passes complete (copy of) string
  end;

  DispParams.rgvarg := @Arg[0];
  DispParams.rgdispidNamedArgs := nil;
  DispParams.cArgs := 1;
  DispParams.cNamedArgs := 0;
//at this point, debugger shows no difference, bstrVal holds full string
  OleCheck(Disp.Invoke(n, GUID_NULL, 1033, DISPATCH_METHOD, DispParams, @res, nil, nil));
end;

MsgBox 顯示 12345。嘗試了其他字串，也嘗試了其他字串長度，總是僅前半部分。

誰能對此有所啟發？

uj5u.com熱心網友回復：

與 COM 互動時，您需要使用(COM字串WideString的包裝器) 而不是(aka )，例如：BSTRstringUnicodeString

procedure TForm1.Button4Click(Sender: TObject);
var
  Disp: IDispatch;
  Res: OleVariant;
  DispParams: TDispParams;
  s: WideString;
  n: Integer;
  v: Variant;
  Arg: array of TVariantArg;
begin
  OleCheck(FScript.GetScriptDispatch(nil, Disp));

  s := 'test2';
  OleCheck(Disp.GetIDsOfNames(GUID_NULL, @s, 1, 1033, @n));

  v := VarArrayOf(['1234567890']);

  SetLength(Arg, VarArrayHighBound(v, 1) - VarArrayLowBound(v, 1)   1);

  s := VarToWideStr(v[0]);
  arg[0].vt := VT_BSTR;
  arg[0].bstrVal := PWideChar(s);
  //arg[0].bstrVal := SysAllocString(PWideChar(s));

  DispParams.rgvarg := @Arg[0];
  DispParams.rgdispidNamedArgs := nil;
  DispParams.cArgs := 1;
  DispParams.cNamedArgs := 0;

  OleCheck(Disp.Invoke(n, GUID_NULL, 1033, DISPATCH_METHOD, DispParams, @res, nil, nil));

  //SysFreeString(arg[0].bstrVal);
end;

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/484334.html

標籤：德尔福变体互动脚本

上一篇：我應該怎么做才能使頁腳始終位于頁面底部？[復制]

下一篇：在FMX中將TRect轉換為TRectF