La commande système s'exécute mais est immédiatement mise en arrière-plan

Question

Je tente d'utiliser l'unité TProcess pour exécuter ssh afin de me connecter à l'un de mes serveurs et de me fournir le shell. C'est une réécriture de celle que j'avais dans Ruby car le temps d'exécution de Ruby est très lent. Quand je lance ma fonction Process.Execute, je suis présenté avec le shell mais il est immédiatement décoré. Running pgrep ssh révèle qu'il est en cours d'exécution, mais je n'ai aucun accès à ce que ce soit, en utilisant fg ne le ramène pas. Le code est le suivant pour ce segment:

if HasOption('c', 'connect') then begin 
    TempFile:= GetRecord(GetOptionValue('c', 'connect')); 
    AProcess:= TProcess.Create(nil); 
    AProcess.Executable:= '/usr/bin/ssh'; 
    AProcess.Parameters.Add('-p'); 
    AProcess.Parameters.Add(TempFile.Port); 
    AProcess.Parameters.Add('-ntt'); 
    AProcess.Parameters.Add(TempFile.Username + '@' + TempFile.Address); 
    AProcess.Options:= []; 
    AProcess.ShowWindow:= swoShow; 
    AProcess.InheritHandles:= False; 
    AProcess.Execute; 
    AProcess.Free; 
    Terminate; 
    Exit; 
    end; 

TempFile est une variable de type TProfile, qui est un document contenant des renseignements concernant le serveur. Le système de catalogage et de récupération fonctionne bien, mais en tirant la coque ne fonctionne pas.

Answer 1

... 
AProcess.ShowWindow:= swoShow; 
AProcess.InheritHandles:= False; 
AProcess.Execute; 
AProcess.Free; 
... 

Vous démarrez le processus sans attendre sa sortie. Ceci est de the documentation on Execute:

Exécuter exécute en fait le programme tel que spécifié dans LigneCommande, en appliquant autant que des options spécifiées en appui sur la plate-forme actuelle.

Si l'option poWaitOnExit est spécifiée dans Options, l'appel ne sera renvoyé qu'une fois l'exécution du programme terminée (ou si une erreur s'est produite). Si cette option n'est pas donnée, l'appel renvoie immédiatement [sic], mais l'appel WaitOnExit peut être utilisé pour attendre sa fermeture ou l'appel en cours peut être utilisé pour vérifier s'il est toujours en cours d'exécution.

Vous devez définir l'option poWaitOnExit dans les options avant d'appeler Execute, de sorte que Execute bloquera jusqu'à ce que le processus se termine. Ou appelez AProcess.WaitOnExit pour attendre explicitement que le processus se termine.