VPF::RSH или Remote Shell - Форум программистов

crazynetwork

Дата 4.6.2011, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 16.10.2009

Репутация: нет
Всего: нет

Кто то знает как можно работать с протоколом RSH в делфи? В Indy есть компонента IdRSH1, но описалова нигде нету.

Snowy

Дата 6.6.2011, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Как нет? В справке ясно написано:

Цитата

To use this component:
- Set Host to the IP Address or host name for the remote machine.
- Set ClientUserName to the user's local User ID.
- Set HostUserName to the user's remote User ID.
- Use the Execute method with a command to be run on the remote machine.

crazynetwork

Дата 7.6.2011, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 16.10.2009

Репутация: нет
Всего: нет

Дело в том что беру пример ихний. Там есть такое:

Код


procedure TfrmMainForm.BitBtn1Click(Sender: TObject);
begin
  IdRSH1.UseStdError := chkStdErr.Checked;
  IdRSH1.Host := edtHost.Text;
  IdRSH1.HostUsername := edtUserID.Text;
  IdRSH1.ClientUserName := LocalUserName;
  mmoResults.Lines.Text := IdRSH1.Execute(edtCommand.Text);
  mmoError.Lines.Text := IdRSH1.ErrorMessage;
end;

Дальше вылазит такая ошибка:

[DCC Error] rshmain.pas(88): E2362 Cannot access protected symbol TIdTCPClientCustom.Host

На самом деле свойства Host у компонента IdRSH1 нету вообще! Как такое может быть?

Добавлено через 3 минуты и 9 секунд
Хотя в справке написано

To use this component:

Set the TIdRSH.Host to the I.P. Address or name of the remote machine.

Snowy

Дата 7.6.2011, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Код

procedure TfrmMainForm.BitBtn1Click(Sender: TObject);
begin
  IdRSH1.UseStdError := chkStdErr.Checked;
  IdRSH1.HostUsername := edtUserID.Text;
  IdRSH1.ClientUserName := LocalUserName;
  try
    IdRSH1.Connect(edtHost.Text); // устанавливаем подключение к хосту
    mmoResults.Lines.Text := IdRSH1.Execute(edtCommand.Text);
  except
    mmoError.Lines.Text := IdRSH1.ErrorMessage;
  end;
end;

crazynetwork

Дата 8.6.2011, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 16.10.2009

Репутация: нет
Всего: нет

Да, работает. Спасибо. А где же это можно было прочитать?

Snowy

Дата 9.6.2011, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

В справке методы класса.
Но раз в ней написано что нужно присвоить хост, то справка не точна.
Я просто посмотрел исходный код класса. А там хост протектед и назначается только через Connect.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »