Delphi ActiveX MSTSCLib

Question

我正在尝试使用一些用于 MS-RDP (mstscax.dll) 的 Delphi ActiveX 库，因此我将库导入到我的项目中，并开始在网络上寻找一些代码 sn-ps。乍一看，这很明显，但缺乏示例使它有点复杂。

首先库在 Delphi Seattle 上给出了一个错误，在这一行：

property ConnectWithEndpoint: POleVariant1 write Set_ConnectWithEndpoint;

好的，我注释掉了这条线（我知道这不是最好的解决方案），但它已编译。后来我尝试仅将 POleVariant1 更改为 OleVariant，并且仍在编译。 好的，编译后，我尝试了这段代码：

var
  Form1: TForm1;
  RDP: TMsRdpClient8NotSafeForScripting;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  RDP:= TMsRdpClient8NotSafeForScripting.Create(Nil);
  RDP.Server:= 'xxxx';
  RDP.AdvancedSettings8.RDPPort:= 3389;
  RDP.UserName:= 'terminal';
  RDP.AdvancedSettings8.ClearTextPassword:= '123456';
  RDP.Connect;
  if RDP.Connected.ToBoolean = true then
    ShowMessage('connected')
  else
    ShowMessage('error');

end;

我为 var RDP 尝试了一些不同的类型，例如仅 TMsRdpClient8，但仍然是同样的问题： 它甚至不尝试连接！在查看嗅探器时，没有建立 tcp 连接，什么也没发生，并且出现“错误”消息。知道如何与这个人合作吗？

Answer 1

这个问题让我很感兴趣，所以我尝试导入那个 ActiveX 控件并自己尝试。它似乎对我有用，所以我会解释我做了什么。

我导入了 mstscax.dll ActiveX 控件，然后将其添加到新包中，以便将组件安装到工具面板上。我立即遇到了您对 ConnectWithEndpoint 属性所做的错误。我将声明中的类型更改为 OleVariant，因为 Set_ConnectWithEnpoint 属性设置器函数采用 OleVariant。很明显，我们的 ActiveX 导入器代码被类型信息弄糊涂了。无论哪种方式，该更改都使文件能够编译和安装组件包。现在有一堆 TMsRdpClientXXXX 组件。

创建了一个新的 VCL Forms 项目，然后将 TMsRdpClient9 组件放入表单中。添加了一个 TButton，然后将此代码添加到按钮的 OnClick 处理程序中：

  MsRdpClient91.Server := '<some remote server>';
  MsRdpClient91.Domain := 'embarcadero.com';
  MsRdpClient91.UserName := 'abauer';
  MsRdpClient91.Connect;

一旦我运行应用程序并按下按钮，它就会连接，ActiveX 控件的内容显示远程服务器登录屏幕就好了。

我正在运行 Windows 10，内部版本 10565。

这是我在我写的小应用程序上看到的内容：