• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Rdp и Delphi

  • Автор темы ikot
  • Дата начала
I

ikot

Как правильно организовать работу в Delphi с протоколом RDP. Саму библиотеку предварительно установил и в работе использую компонент MSRdpClient21 - ниже его имя rdp. Вот мой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
rdp.Server:=edit1.Text;
rdp.UserName:=edit2.Text;
rdp.AdvancedSettings3.ClearTextPassword:=edit3.Text; //в этой строке ошибка
rdp.DesktopHeight:= 600;
rdp.DesktopWidth:= 800;
rdp.Connect;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
rdp.Disconnect;
end;


Программа запускается, но при нажатии на кнопку Соединиться, выскакивает ошибка (см. выше)

Этот же вопрос задавал на других форумах, но так и не получил ответа. Может тут найдутся добрые люди. :ph34r:
 
?

????

а текст ошибки какой?

попробуй
rdp.AdvancedSettings2.ClearTextPassword:=edit3.Text

(не факт что заработает, но поиском нашел такой вариант)
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!