[D7]TIdTelnet et exécution shells Unix
Bonjour,
J'utilise Delphi 7 avec les composants Indy 10.1.5
Ce que j'aimerai faire, c'est lancer des shells unix depuis delphi
en utilisant le composant TIdTelnet.
Le pb c'est que mon appli de test freeze sur l'appel de "SendCmd"
comme si le serveur attendait qqch.
Je précise que je ne suis pas du tout un expert ds ce domaine.
Voici le code que j'utilise:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
procedure TForm1.Button1Click(Sender: TObject);
var
ch: string;
begin
ch:= 'sh /usr/dev/test_shell.sh';
Try
TelNet:= TIdTelnet.Create(self);
TelNet.Host:= '192.168.1.6';
TelNet.Port:= 23;
Telnet.Connect;
telnet.SendCmd(ch);
telnet.Disconnect;
TelNet.Destroy;
except
on e:exception do
MessageDlg(e.Message, mtError, [mbOK], 0);
end;
end; |
Si il existe d'autres moyens pour exécuter des scripts
sur des serveurs unix, je suis preneur.
Merci d'avance :)
