AbtProgramStarter synchronous process

[skock]

Hi,

I need to call an external program from a VAST 7.0.2 application and wait until it is terminated, unfortunately AbtProgramStarter works asynchronously. In an old redbook
http://www.redbooks.ibm.com/redbooks/pdfs/sg242219.pdf
there is a recommendation of subclassing AbtProgramStarter, but no details are presented.

Also, I played around a bit with
OSCall>>#createProcess:lpszCommandLine:lpsaProcess:lpsaThread:fInheritHandles:fdwCreate:lpvEnvironment:lpszCurDir:lpsiStartInfo:lppiProcInfo:
, but I didn't get a clue

Any advice or suggestion will be appreciated,

thanks in advance, Stefan

[marten]

One way could be to download the application MSKPlatformExtension from vastgoodies.com and then you may look at MSKProgramStarter and there is a method startProgramAndWaitForEnd (working only under Windows). The method simply polls the status of the running process.

[marten]

One way could be to download the application MSKPlatformExtension from vastgoodies.com and then you may look at MSKProgramStarter and there is a method startProgramAndWaitForEnd (working only under Windows). The method simply polls the status of the running process.

As an alternative to "startProgramAndWaitForEnd" you may use:

Code: Select all

startProgramAndWaitForEnd2
   "<Integer | AbtError> I start a program and wait for the end of that process and return either an integer, holding   the returnc code, or myself
   
  | aStarter |

  aStarter := MSKProgramStarter new.
  (aStarter
    programPath: 'E:\programmierung\es2005-1\ExeProjects\WaitForPrognoseCrawlCreator\WaitForPrognoseCrawlCreator\bin\Debug\WaitForPrognoseCrawlCreator.exe' ;
    parameters: '' ;
    startProgramAndWaitForEnd) = 1.
  (aStarter
    programPath: 'e:\programme\tools\basename' ;
    parameters: '--help' ;
    startProgramAndWaitForEnd2) = 0.

  "
  | returnInformation bool lpExitCode rc shellExecuteInfo |

  returnInformation := self primitiveStartProgram.
  (returnInformation at: 5) notNil
     ifTrue:[ rc := AbtError errorText: (returnInformation at: 5)]
     ifFalse:[
       shellExecuteInfo := returnInformation at: 1.
       lpExitCode := OSInt32 calloc: 1.
       rc := shellExecuteInfo hProcess waitForSingleObject: PlatformConstants::Infinite.   
       (shellExecuteInfo hProcess getExitCodeProcess: lpExitCode)
          ifTrue:[ rc := lpExitCode int32At: 0 ]
          ifFalse:[
            | errorText |
            errorText := MSKOperatingServices GetLastErrorMessageOrNil.
            rc := AbtError errorText: errorText.               
          ].
        lpExitCode free.         
      1 to: 4 do: [ :eachIndex |
        (returnInformation at: eachIndex) notNil ifTrue:[  (returnInformation at: eachIndex)  free ]
      ].
      ^rc   


[marten]

I added a similar method to MSKPlatformExtension and update the versin of MSKPlatformExtension to 1.12 ...

[skock]

Hello Marten,

thank you very much, works great.

Stefan