[D7]TIdTelnet et exécution shells Unix

**super_boulet** · 14/12/2006, 17h24

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

**LadyWasky** · 14/12/2006, 17h31

Houla... j'entrevoie le problème :

Déplace ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
TelNet:= TIdTelnet.Create(self);
      TelNet.Host:= '192.168.1.6';
      TelNet.Port:= 23;

Dans le OnCreate de ta fiche

ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

telnet.Disconnect;

Dans le OnDestroy de ta fiche

si tu as déposé le composant sur ta fiche, enlèves ceci (il sera automatiquement détruit)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TelNet.Destroy;

Sinon déplaces le aussi dans le OnDestroy de la fiche (celà signifie que tu l'as crée dans le OnCreate de ta fiche)

**LadyWasky** · 14/12/2006, 17h37

Pour explication :
- tant que tu as besoin d'envoyer des commandes à ton serveur, il faut que ton programme garde la connection.

- Sinon, si comme tu le fais tu détruit ton objet (Telnet.destroy). La fois suivante où tu cliques sur le bouton, ton Telnet n'existant plus, tu aura une "access violation".

ET puis il va falloir que tu t'habitue à utiliser
.Free à la place de .Destroy quand tu détruit tes objets... en Delphi, c'est plus propre (comme ça, Delphi notifie la destruction aux parents du composant, etc....)