MsRdpClient - не могу понять что к чему

[lollollollol]

Делфи7.
Установил компонент из ActiveX MsRdpClient.

Начну с того, что там появилась целая куча компонентов, от
MsRdpClient2, до MsRdpClient7, чем отличаются - непонятно.


А дальше нужно как-то установить связь с RDP сервером. делаю так:

  rdpClient.Server := 'IP';
  rdpClient.UserName := 'àäìèíèñòðàòîð';
  rdpClient.Show;
  rdpClient.Visible:=True;
    rdpClient.AdvancedSettings2.Set_ClearTextPassword('1');
    rdpClient.AdvancedSettings2.maxEventCount:=5;
    rdpClient.AdvancedSettings2.RDPPort:=3389;
  rdpClient.ColorDepth := 16; // int value can be 8, 15, 16, or 24
  rdpClient.DesktopWidth := 1024; // int value
  rdpClient.DesktopHeight := 768; // int value
  rdpClient.FullScreen := true; // boolean value that can be True or False
  rdpClient.Connect();

Вот попытка любой работы с rdpClient.AdvancedSettings2 вызывает access violation ошибку.

Плюнул я на это, убрал из кода все обращения к AdvancedSettings2, но тогда этаже ошибка при вызове Connect



Я вторые сутки не могу разобраться.



Кто работал, помогите достичь просветления в данном тёмном вопросе?


Спасибо

[Stilet]

http://www.programmersforum.ru/showthread.php?t=231721

[Человек_Борща]

MsRdpClient2, до MsRdpClient7, чем отличаются - непонятно.

Каждый компонент - обертка над опред. версией интерфейса, 7я версия наследует все предыдущие + что-то новое.

Плюнул я на это, убрал из кода все обращения к AdvancedSettings2, но тогда этаже ошибка при вызове Connect

Интерфейс AdvancedSettings2 надо запросить у ядра, предварительно проверив его на nil.

[lollollollol]

MsRdpClient71: TMsRdpClient7;
MsRdpClient7NotSafeForScripting1: TMsRdpClient7NotSafeForScripting;

В чём у них отличия? Что означает NotSafeForScripting?



Вот сделал как в примере выше, вылетает на строке указания пароля

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MSTSCLib_TLB, OleCtrls;

type
  TForm1 = class(TForm)
    RDP: TMsRdpClient7;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    RDP:=TMsRDPClient7.Create(Self);
    RDP.Parent:=self;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    RDP.Server:='IP сервака';
    RDP.UserName:='þçåð';
    RDP.AdvancedSettings2.Set_ClearTextPassword('ïàðîëü');
    RDP.Left:=0;
    RDP.Top:=0;
    RDP.Width:=Width;
    RDP.Height:=Height;
    RDP.Connect;
end;

end.

Интерфейс AdvancedSettings2 надо запросить у ядра, предварительно проверив его на nil.

Как это сделать?
В теме на которую указал Stilet, не вижу запроса интерфейса

[lollollollol]

помоги плз кто знает, мне просто понять как начать работать с компонентом.


Как запросить интерфейс?

[Stilet]

Зачем тебе интерфейс? Компонента что-ли не подходит?

[lollollollol]

Вот попытка любой работы с rdpClient.AdvancedSettings2 вызывает access violation ошибку.

[lollollollol]

У тебя рабочий исходный код есть, где как минимум можно выполнить connect?
Я был бы очень благодарен за примерчик.

Не могу понять что я делаю не правильно.

[Stilet]

А то что я давал выше не работает?

[lollollollol]

Блин, да прочти ты уже что я пишу.
Твой код НЕ работает. Ошибка на строке где задаётся пароль, вылетает с access violation, т..е при обращении к AdvancedSettings2