Databases
StackOverflow2013
Postsdbo
POHow to send command to console application from GUI application
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POHow to send command to console application from GUI application
    primarykey
    data
    text
    <p>I have a console application that I launch from a GUI applicaiton. The console application takes parameters for filenames to parse and process. Currently I am able to capture its output and display it in the GUI application but I would like to be able to send commands to it so as to control or even halt its execution. </p> <p>How can I send a command or string or anything to the console application, preferably using the pipes that I opened in order to read its output?</p> <pre><code>const CReadBuffer = 2400; var saSecurity: TSecurityAttributes; hRead: THandle; hWrite: THandle; suiStartup: TStartupInfo; piProcess: TProcessInformation; pBuffer: array[0..CReadBuffer] of AnsiChar; dRead: DWord; dRunning: DWord; dWritten: DWord; Command: String; BytesLeft: Integer; BytesAvail: Integer; begin saSecurity.nLength := SizeOf(TSecurityAttributes); saSecurity.bInheritHandle := True; saSecurity.lpSecurityDescriptor := nil; if CreatePipe(hRead, hWrite, @saSecurity, 0) then begin FillChar(suiStartup, SizeOf(TStartupInfo), #0); suiStartup.cb := SizeOf(TStartupInfo); suiStartup.hStdInput := hRead; suiStartup.hStdOutput := hWrite; suiStartup.hStdError := hWrite; suiStartup.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; suiStartup.wShowWindow := SW_HIDE; Command := 'messageparser.exe c:\messagefile.msg'; UniqueString(Command); if CreateProcess(nil, PChar(Command), @saSecurity, @saSecurity, True, NORMAL_PRIORITY_CLASS, nil, nil, suiStartup, piProcess) then begin repeat dRunning := WaitForSingleObject(piProcess.hProcess, 100); Application.ProcessMessages; repeat dRead := 0; if not PeekNamedPipe(hread, @pbuffer, CReadBuffer, @dRead, @BytesAvail, @BytesLeft) then RaiseLastOSError; if dRead &lt;&gt; 0 then begin ReadFile(hRead, pBuffer[0], CReadBuffer, dRead, nil); pBuffer[dRead] := #0; OemToCharA(pBuffer, pBuffer); // do something with the data // if a condition is present then do the following: // WriteFile(hWrite, some_command, size_of_buffer, DWritten, nil); end; until (dRead &lt; CReadBuffer); until (dRunning &lt;&gt; WAIT_TIMEOUT); CloseHandle(piProcess.hProcess); CloseHandle(piProcess.hThread); end; CloseHandle(hRead); CloseHandle(hWrite); end; </code></pre> <p>Then on the console side, there is a thread waiting for the input. Here is the execute method:</p> <pre><code> while not Terminated do begin ReadLn(Command); // process command Sleep(10); end; </code></pre> <p>This is new to me so if there are tips on how do it right, I welcome them :). However whenever I send a Command, it comes over as whatever I read in the pBuffer from the ReadPipe and not what the command is. </p> <p>Hope this helps.</p> <p>--</p> <p>Found a solution based on the tip by Nat.</p> <p><a href="http://www.felix-colibri.com/papers/colibri_helpers/stdin_stdout/stdin_stdout.html" rel="noreferrer">Bi-directional communication between gui and console</a></p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USyozey
    1. USyozey
    plurals
    1. This table or related slice is empty.
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTLinked
    3. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    3. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POHow to send command to console application from GUI application
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POHow to send command to console application from GUI application
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POHow to send command to console application from GUI application
      1. This table or related slice is empty.
      1. VTUpMod
    1. COSo you have the source code for both applications? Are they both written in Delphi?
      singulars
      1. POHow to send command to console application from GUI application
      1. USfupsduck
    2. COI added the source code.
      singulars
      1. POHow to send command to console application from GUI application
      1. USyozey
    3. CO+1 for posting the source code - makes all the difference in trying to help.
      singulars
      1. POHow to send command to console application from GUI application
      1. USfupsduck
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload