Простейший RDP клиент.

[Bengl]

Доброго времени суток.

Пишу простейший RDP клиент. Нужно элементарно законектится на удалённый рабочий стол через порт 3389.

Кнопка конекта:

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
var rdp:TmsRDPclient2;
begin
 rdp:=TmsRDPclient2.Create(self);
 rdp.Parent:=Form1;
 rdp.Connect;
end; 


Программа компилится нормально, но после нажатия на кнопку "конекта" вылазит ошибка:



Ума не приложу в чём косяк, выручайте.

Исходники (если нужно): http://soundok.info/Delphi.rar

upd: 100 WMR тому кто сделает (перенесите в фриланс).

[Gulik]

А чем стандартный не устраивает? Или вы хотите это использовать для подбора пароля?

[Баламут]

Что-то я не увидел в коде куда и кем коннектишься

 rdp.Server := 'Имя_сервера';
 rdp.ControlInterface.UserName := 'Имя_пользователя';
 rdp.AdvancedSettings2.ClearTextPassword := 'Пароль';

Имя и пас указывать не обязательно. Можно потом и ручками вколотить. Это уже дело вкуса

[Bengl]

А чем стандартный не устраивает?

Курсовая такая.

Что-то я не увидел в коде куда и кем коннектишься

дописал, но сути это не меняет. Ошибка та же.

[Баламут]

Сообщение от Bengl

дописал, но сути это не меняет. Ошибка та же.

Кода я так и не увидел. И, кстати, под какой ОС работаешь? Здесь это важно. У меня под Win7 все прекрасно работает.

[Bengl]

Кода я так и не увидел.

А какой код конкретно интересует ? На форме лежит TmsRDPclient2 и кнопка "connect" для подключения. Разве что то еще нужно ?

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
var rdp:TmsRDPclient2;
begin
 rdp:=TmsRDPclient2.Create(self);
 rdp.Parent:=Form1;
 rdp.Server:='10.10.10.10';
 rdp.Connect;
end; 


И, кстати, под какой ОС работаешь?

XP SP3 (с последними обновлениями).

У меня под Win7 все прекрасно работает.

можете скинуть проект посмотреть ? Был бы очень признателен.

[Баламут]

Скидывай. Посмотрю

[Bengl]

я хотел ваш проект посмотреть, ну да ладно...)))

вот мой: http://soundok.info/Delphi.rar

[Баламут]

В общем я так и не понял где и что у тебя не работает. Вот код, который проверялся как на Win7, так и на XP sp3. Никаких проблем замечено небыло.
Кстати, зачем кидать компонент на форму, а затем создавать еще один динамически? Это фишка? В общем слегка подправил. Здесь rdp этот тот компонент, что УЖЕ лежит на форме.

procedure TForm1.Button5Click(Sender: TObject);
begin
  with rdp do
  begin
//    UserName := ValueListeditor1.Cells[2,5];
      Server := ValueListeditor1.Cells[2,4];
//    AdvancedSettings2.ClearTextPassword := ValueListeditor1.Cells[2,6];
      Connect;
  end;
end;