Posso acessar a string retornada de um comando Delphi CreateProcess?

Question

Eu estou usando a função CreateProcess Win32 para realizar uma chamada para um executável externo. Os retornos executáveis ??uma string.

Existe uma maneira que eu posso capturar e interrogar a cadeia devolvida depois de chamar o executável? Falhando isso, eu poderia ter de escrever a string para um arquivo no executável e ler que no programa de chamada após a chamada ter terminado. Isso parece lame embora.

Answer 1

Jedi Code Library contém função CreateDOSProcessRedirected que corre um processo e fornece-lo com o arquivo de entrada e saída. Você pode colocar de entrada necessária (se houver) para o arquivo de entrada e saída do processo de leitura (se houver) a partir do arquivo de saída (após o processo foi concluído).

Isso é como isso é implementado no JCL :

function CreateDOSProcessRedirected(const CommandLine, InputFile, OutputFile: string): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  SecAtrrs: TSecurityAttributes;
  hInputFile, hOutputFile: THandle;
begin
  Result := False;
  hInputFile := CreateFile(PChar(InputFile), GENERIC_READ, FILE_SHARE_READ,
    CreateInheritable(SecAtrrs), OPEN_EXISTING, FILE_ATTRIBUTE_TEMPORARY, 0);
  if hInputFile <> INVALID_HANDLE_VALUE then
  begin
    hOutputFile := CreateFile(PChar(OutPutFile), GENERIC_READ or GENERIC_WRITE,
      FILE_SHARE_READ, CreateInheritable(SecAtrrs), CREATE_ALWAYS,
      FILE_ATTRIBUTE_TEMPORARY, 0);
    if hOutputFile <> INVALID_HANDLE_VALUE then
    begin
      FillChar(StartupInfo, SizeOf(StartupInfo), #0);
      StartupInfo.cb := SizeOf(StartupInfo);
      StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      StartupInfo.wShowWindow := SW_HIDE;
      StartupInfo.hStdOutput := hOutputFile;
      StartupInfo.hStdInput := hInputFile;
      Result := CreateProcess(nil, PChar(CommandLine), nil, nil, True,
        CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo,
        ProcessInfo);
      if Result then
      begin
        WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
        CloseHandle(ProcessInfo.hProcess);
        CloseHandle(ProcessInfo.hThread);
      end;
      CloseHandle(hOutputFile);
    end;
    CloseHandle(hInputFile);
  end;
end;

Answer 2

Assumindo que você deseja capturar o que o exe está escrevendo para a saída padrão, você pode iniciá-lo com

yourprog.exe > results.txt

Isto irá escrever a saída para results.txt, que você pode, em seguida, ler e avaliar.

Ou, você pode tentar o método explicado em esta discussão : Criar uma tubulação para a saída do seu processo gerado e ler a partir dele. Pós número 7 tem uma fonte de exemplo sobre como utilizar as funções WinAPI relevantes em C ++, que deve facilmente traduzir-se em Delphi.

Answer 3

Como o executável retornar uma string ? O máximo que eu sei um retorno lata executável é apenas um número, o código de saída.

Answer 4

Você pode usar memória compartilhada para a comunicação entre as duas aplicações.

Você pode usar a função Win32 CreateFileMapping, e talvez usar um mutex para chamadas sincronizar com a memória mapeados arquivo.

O código a seguir cria o arquivo.

var
  fMapping : THandle;
  pMapData : Pointer;

fMapping := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE,
             0, MAPFILESIZE, pchar('MAP NAME GOES HERE'));

PMapData := MapViewOfFile(fMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0);

o seguinte código fecha a mapfile

if PMapData <> nil then
  UnMapViewOfFile(PMapData);
if fMapping <> 0 then
  CloseHandle(fMapping);