• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

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

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

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