Дождаться завершения работы командной строки

[ivt22]

Можно ли так сделать, вот смотрите есть код в нем вызывается командная строка, в ней создаются поочередно 6 файлов .PNM далее надо, как-то дождаться создания последнего PNM файла, чтобы по очереди их все распознать, я вставил функцию If Fileexist() then это не помогло, программа не дожидается создания файла, в результате, все текстовики создаются пустыми, только после второго нажатия на кнопку они заполняются. Попробовал вставить функцию sleep(100) после нее примерно 50% текстовых файлов заполняются, но это очень не желательная для меня функция, нужно чтобы времени по-минимуму затрачивалось

var
i,z: integer;
a,b: ansistring;
s: string;
F: textfile;
players: array[1..6] of integer;

Label met, met1;//метка

begin
  z:=1;
  i:=1;

  WinExec(PAnsiChar('cmd /c cd C:\GOCR\'), SW_HIDE); //переходим в директорию C:\GOCR

  // Переводим все в PNM
  while i <> 7 do begin
    b:='cmd /c png2pnm C:\GOCR\bot\'+ IntToStr(i) +'.png C:\GOCR\'+IntToStr(i)+'.pnm';
    WinExec(PAnsiChar(b), SW_HIDE);
   i:=i+1;
  end;
  //

  //Ждем создание последнего файла и распознаем
  met:
    if  fileexists ('C:\GOCR\6.png') = false then goto met
  else begin

    sleep(100);

    while z<>7 do begin
      a:='cmd /c gocr -i C:\GOCR\bot\'+IntToStr(z)+'.PNM -c >C:\GOCR\'+IntToStr(z)+'.txt';
      WinExec(PAnsiChar(a), SW_HIDE);
      z:=z+1;
    end;
  end;
  //

  met1:
    if  fileexists ('C:\GOCR\bot\6.txt') = false then goto met1
  else
  //
  for i := 1 to 6 do begin

   memo1.Lines.LoadFromFile('C:\GOCR\bot\'+IntToStr(i)+'.txt');
   s := Memo1.Lines.Strings[0];
   players[i] := RedStek(s);
   RichEdit1.Lines.Strings[i] := IntToStr(players[i]);
   memo1.Clear;

  end;     
  //

  for i := 1 to 6 do begin
    //DeleteFile ('C:\GOCR\'+IntToStr(i)+'.png');
    DeleteFile ('C:\GOCR\'+IntToStr(i)+'.pnm');
    DeleteFile ('C:\GOCR\'+IntToStr(i)+'.txt');
  end;

end;

[FaTaL]

Много раз обсуждалось. Гуглом лень пользоваться? Вот например Запуск внешнего приложения и ожидание его завершения

[ivt22]

там вот такой код но он не компилируется ему не нравится cb := SizeOf(SUInfo); а именно SUInfo он не может найти:

function ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word): boolean; export; 
var 
  StartInfo: TStartupInfo; 
  ProcInfo: TProcessInformation; 
  CmdLine: ShortString; 
begin 
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x } 
  CmdLine := '"' + Filename + '" ' + Params; 
  FillChar(StartInfo, SizeOf(StartInfo), #0); 
  with StartInfo do 
  begin 
    cb := SizeOf(SUInfo); 
    dwFlags := STARTF_USESHOWWINDOW; 
    wShowWindow := WinState; 
  end; 
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false, 
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, 
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo); 
  { Ожидаем завершения приложения } 
  if Result then 
  begin 
    WaitForSingleObject(ProcInfo.hProcess, INFINITE); 
    { Free the Handles } 
    CloseHandle(ProcInfo.hProcess); 
    CloseHandle(ProcInfo.hThread); 
  end; 
end;

[Аватар]

Там должно быть по идее

cb := SizeOf(TStartupInfo);

[ivt22]

Понял, спасибо. но все равно не рабочая функция. даже ExecAndWait( 'C:\windows\calc.exe', '', SW_SHOWNORMAL) даже здесь никакого калькулятора не запускается, а мне нужно cmd /c -gocr -i... и т.д. пойду искать другой способ

[Stilet]

даже здесь никакого калькулятора не запускается

Так нужно проверять что возвращает CreateProcess.
Опиши проверку и вывод на экран ошибки используя RaiseLastOSError() в else твоего IF, что проверяет результат и почитай ошибку.

[Аватар]

Все работает, только немного мозги нужно подключать

ExecAndWait('C:\windows\system32\calc.exe','',SW_SHOWNORMAL);

И функцию чуть изменить, как Виталий подсказывает, для возврата кода ошибки в случае неудачи

[ivt22]

Сообщение от Аватар

Все работает, только немного мозги нужно подключать

ExecAndWait('C:\windows\system32\calc.exe','',SW_SHOWNORMAL);

И функцию чуть изменить, как Виталий подсказывает, для возврата кода ошибки в случае неудачи

ок понял еще раз спасибо, а как быть вот с такой строчкой?
'cmd /c png2pnm C:\GOCR\1.png C:\GOCR\1.pnm' для командной строки?

[Serge_Bliznykov]

у вас в папке C:\GOCR\ лежит файл с именем png2pnm.
Какое расширение у этого файла? (что это - командный файл, exe-шник или что-то другое?)

[ivt22]

Сообщение от Serge_Bliznykov

у вас в папке C:\GOCR\ лежит файл с именем png2pnm.
Какое расширение у этого файла? (что это - командный файл, exe-шник или что-то другое?)

вообще там написано png2pnm.exe Но я его всегда этой командой запускаю,
по другому просто нельзя, нужно ему параметры передавать. Я вот так делаю

    b:='cmd /c png2pnm C:\GOCR\bot\1.png C:\GOCR\1.pnm';
    WinExec(PAnsiChar(b), SW_HIDE);

дальше мне необходимо отловить событие, когда файл 1.pnm полностью создастся, для этого и нужно ожидание