Delphi + nsoftware sshclient, как отправить команду на устройство?
Я пытаюсь отправить команду через SSH на маршрутизатор, используя nsoftware SSHClient:
procedure TForm1.Button2Click(Sender: TObject);
begin
iphSSHClient1.Connected:=true;
iphSSHClient1.OpenChannel('session');//channel id is 0
iphSSHClient1.StartService('0','shell','');
iphSSHClient1.OpenTerminal('0', 'vt100', 480, 640, false, '350000000000');
end;
При запуске кода я получил ошибку 1033: «не удалось открыть терминал vt100 для канала [0]». Затем я попытался создать два канала:
procedure TForm1.Button2Click(Sender: TObject);
begin
iphSSHClient1.Connected:=true;
iphSSHClient1.OpenChannel('session');//channel id is 0
iphSSHClient1.OpenChannel('session');//channel id is 1
iphSSHClient1.StartService('0','shell','');
iphSSHClient1.OpenTerminal('1', 'vt100', 480, 640, false, '350000000000');//here is use channelid 1
end;
Код работает, но правильно ли это? и как отправить данные команды на устройство, я попробовал:
iphSSHClient1.SendChannelData('1',TEncoding.UTF8.GetBytes('ls'#13));
В установочном пакете от nsoftware нет примера использования SSHCLient, есть ли помощь?
ВНИМАНИЕ: ваш терминал не поддерживает запросы позиции курсора (CPR). Как это решить?
Спасибо,