Discussion :

[sematimo]

Bonjour à tous

J'ai un process pour exécuter un batch, et j'ai un message d'erreur "Le thread n’a pas de Presse-papiers ouvert."

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  Si: STARTUPINFOA;
  Pi: PROCESS_INFORMATION;
 
begin
  zeromemory(@si, sizeof(STARTUPINFO));
  Si.dwFlags := STARTF_USESHOWWINDOW;
  Si.wShowWindow := SW_SHOWNORMAL;
  CreateProcess(nil, PChar('envoi.cmd'), nil, nil, True, 0, nil, nil, Si, Pi);
 
  WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
 CloseHandle(pi.hThread);

[jurassic pork]

hello,
que fait ton script ? et pourquoi ne pas utiliser un tprocess ?
Ami calmant, J.P

[sematimo]

bonjour

le batch utilise blat.exe pour envoyer des mails.

[jurassic pork]

hello,
voici un exemple d'utilisation de TProcess qui exécute un fichier cmd qui contient ceci :

Code :

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

1
2
echo "coucou"
blat.exe -h

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
23
24
25
26
27
28
29
 
uses process;
procedure TForm1.GoClick(Sender: TObject);const
  BUF_SIZE = 2048;
var
  MonBatch: Tprocess;
  OutputStream : TStream;
  BytesRead    : longint;
  Buffer       : array[1..BUF_SIZE] of byte;
 
 
begin
  MonBatch := TProcess.Create(nil);
  MonBatch.Executable := '.\envoi.cmd';
  //MonBatch.Parameters.Add('-h');
  MonBatch.Options := MonBatch.Options + [poUsepipes,poStderrToOutPut];
  MonBatch.ShowWindow := swoHide;
  MonBatch.Execute;
  OutputStream := TMemoryStream.Create;
  repeat
    BytesRead := MonBatch.Output.Read(Buffer, BUF_SIZE);
    OutputStream.Write(Buffer, BytesRead)
  until BytesRead = 0;
  OutputStream.Position := 0;
  Memo1.Lines.LoadFromStream(OutputStream);
  //Memo1.Lines.LoadFromStream(MonBatch.Output);
  OutputStream.Free;
  MonBatch.free;
end;

La fenêtre console est cachée pendant l'exécution et on récupère dans un Tmemo ce qui a été affiché dans la console :


Sinon si le but est d'envoyer des messages en SMTP, tu peux utiliser un paquet comme Lnet (présent dans l'OPM) qui contient un composant SMTP.
Voici une copie d'écran de l'exemple SMTP client de LNet :


Ami calmant, J.P

[sematimo]

Bonjour

j'ai remplacé mon code par le tien, mon batch est bien exécuté mais il y a un truc...
Même avec 'MonBatch.ShowWindow := swoHide;' une fenêtre DOS vide s'affiche.
Si je remplace par ' MonBatch.ShowWindow := swoShow;' même chose, la fenêtre est vide, mon code batch n'apparaît pas.

[jurassic pork]

c'est normal que tu ne vois rien dans la fenêtre. Il y a redirection des entrées sorties. Si tu veux voir ce qui se passe :

Code :

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

1
2
3
 MonBatch := TProcess.Create(nil);
  MonBatch.Executable := '.\envoi.cmd';
  MonBatch.Execute;

y a t il des paramètres à transmettre au script ?