Discussion :

[genteur slayer]

bonjour, je cherche à faire l'interface homme-machine d'un code de calcul en delphi. pas trop de problème de ce coté là, j'arrive bien à lancer mon application, detecter si elle est active, avoir son process ID, son utilisation CPU et men, etc...

mon soucis: le code de calcul écrit dans la console dos, j'aimerai dérivé ce flux qui va à la console, pour l'afficher dans ma fenêtre delphi sans ouvrir de fenêtre de console (dans un Tmemo par exemple) cependant, je n'arrive pas à trouver comment faire. (je rappele que je connais le PID de mon code... avec la propriété de lancement SW_HIDE je cache la console, mais impossible d'avoir l'affichage en temps réél de ce qui sort sur la console....
j'ai essayer de passer par un fichier intermédiare mais c'est aps très concluant... (au passage je dispose du code source du code de calcul qui est en fortran)

si quelqu'un a une solution, voir un composant qui fait déjà tout (même le café) je suis prenneur (en gratuit si possible )

[ero-sennin]

Salut,

Regarde cette discussion, je pense qu'elle te sera utile

A+

[0x44-0x43-0x53-0x43]

Voici un code qui redirige les flux console en un result de type String

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
//Aphex
function RunDosInCap(DosApp:String):String;
const
  ReadBuffer = 24000;
var
  Security: TSecurityAttributes;
  ReadPipe,WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: Pchar;
  BytesRead, Apprunning: DWord;
begin
  With Security do
  begin
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor := nil;
  end;
  if Createpipe (ReadPipe, WritePipe, @Security, 0) then
  begin
    Buffer  := AllocMem(ReadBuffer + 1);
    FillChar(Start,Sizeof(Start),#0);
    start.cb := SizeOf(start);
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
    start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
    start.wShowWindow := SW_HIDE;
  if CreateProcess(nil,PChar(DosApp),@Security,@Security,true,NORMAL_PRIORITY_CLASS,nil,nil,start,ProcessInfo) then
  begin
    repeat
      Apprunning := WaitForSingleObject (ProcessInfo.hProcess,100);
    until (Apprunning <> WAIT_TIMEOUT);
    Repeat
      BytesRead := 0;
      ReadFile(ReadPipe,Buffer[0],ReadBuffer,BytesRead,nil);
      Buffer[BytesRead]:= #0;
      OemToAnsi(Buffer,Buffer);
      Result := Result + String(Buffer);
    until (BytesRead < ReadBuffer);
  end;
    FreeMem(Buffer);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ReadPipe);
    CloseHandle(WritePipe);
  end;
end;