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 : Sélectionner tout - Visualiser dans une fenêtre à part
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