Discussion :

[cat1982]

Bonjour,

Tout d'abord merci neibjr pour m'avoir infomer sur le JCVC (http://www.developpez.net/forums/sho...d.php?t=144724)

J'ai donc regarder les diverses fonctions et essayer de les utilser.
Mais étant débutant , je percute sur un pb

Voici mon code

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
 
 
procedure TFormSW.BitBtn1Click(Sender: TObject);
var Reponse : String;
JvCreateProcess1 : TJvCreateProcess;
begin
  try
      JvCreateProcess1.ApplicationName := 'plink.exe';
      JvCreateProcess1.CurrentDirectory := ExtractFileDir(Application.GetNamePath);
      JvCreateProcess1.CommandLine := '-ssh ldapsup@AUBSUP29';
      JvCreateProcess1.Run;
       sleep(500);
       except
       end;
end;

Et lorsque j'éxécute la fonction il me renvoie une erreur
'Debugger exception notification dialog box.' j'ai regardé dans l'aide mais ...

[Reisubar]

Code :

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

1
2
3
4
JvCreateProcess1 : TJvCreateProcess;
begin
  try
      JvCreateProcess1.ApplicationName := 'plink.exe';

TJvCreateProcess est un objet, c'est à dire que ce n'est qu'un pointeur vers une structure qui doit être allouée automatiquement... Il manque donc la construction et la destruction de l'objet :

Code :

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

1
2
3
4
5
6
JvCreateProcess1 := TJvCreateProcess.Create();
try
  //ton code
finally
   JvCreateProcess1.Free;
end;

Si tu débutes en Delphi, je te conseille vivement de consulter nos tutoriaux pour débutants avant d'attaquer la construction d'application complexes.