Выходные данные консольного приложения зашифровываются при запуске другого консольного приложения с помощью >> перенаправления канала - PullRequest
Новая
       17

Выходные данные консольного приложения зашифровываются при запуске другого консольного приложения с помощью >> перенаправления канала

0 голосов
/ 25 марта 2019

Я написал крошечное консольное приложение, которое архивирует файлы, используя их даты.Файлы с одинаковой датой отправляются в один и тот же архив.Мое приложение вызывает архиватор rar.exe для каждой группы файлов, используя метод, описанный в этой теме: Как запустить консольное приложение в моем консольном приложении Delphi?

Проблема заключается в том, чтоесли я перенаправляю вывод со стандартными символами перенаправления канала DOS '>' и '>>' в файл журнала, то текстовый вывод моей программы writelns и rar.exe смешивается друг с другом, не следуя порядку, определяемому строками кода.

Если я пропущу перенаправление канала, проблема не существует.

Следовательно, похоже, что-то связано со стратегиями записи на диск, используемыми ОС Windows 10 Pro. 

    for i:=0 to DateList.Count-1 do begin
      Writeln('                                                                                                 ');
      Writeln(DateTimeToStr(Now()) + ' - ' + 'Creating archive file ' + IntToStr(i+1) + ' of ' + IntToStr(DateList.Count) + ' = ' + DateList[i] + '.rar');
      Writeln('                                                                                                 ');
      //Sleep(1000); // does not help
      // Writelns and RAR output gets scrambled
      s:=DateList[i];
      s1:='';//DateList[i] + EOL;
      for j:=0 to FileList.Count-1 do
        if pos(DateList[i],FileList[j])>0 then s1:=s1 + GetValuePart(FileList[j]) + EOL;
      try
        //s2:=ExtractFilePath(ParamStr(0)) + {'\' +} s + '.lst';
        s2:=ExtractFilePath(ParamStr(0)) + {'\' + s +} 'list.lst';
        ListFile:=TFileStream.Create(s2,fmCreate or fmShareDenyWrite);
        if ListFile.Write(PChar(s1)^,Length(s1))<>Length(s1) then ; // report list file write error
      finally
        ListFile.Free;
      end;
      s1:=IniFile.ReadString('Settings','RARPath',ExtractFilePath(ParamStr(0))) + 'rar.exe';
      s2:=IniFile.ReadString('Settings','ArchiveMode','a') + ' -ep "' +
          IniFile.ReadString('Settings','OperatingDir','') +
          IniFile.ReadString('Settings','ArchiveDir','') +
          s + '.rar" @"' + s2 + '"';

      s := s1 + ' ' + s2;
      //s := s + ' >> logfile.log'; // gets interpreted as RAR parameter
      UniqueString(s);
      try
        try
          //writeln('begin');
          FillChar(SI, sizeof(SI), 0);
          FillChar(PI, sizeof(PI), 0);
          SI.cb := sizeof(SI);

          if not CreateProcess(nil, PChar(s), nil, nil, true, 0, nil, nil, SI, PI) then
            Writeln('Cannot start RAR archiver ' + s);
            //RaiseLastOSError;

          WaitForSingleObject(PI.hProcess, INFINITE);

          CloseHandle(PI.hProcess);
          CloseHandle(PI.hThread);

          //writeln('end');
          inc(SuccessFiles);
        except
          on E: Exception do Writeln(E.ClassName, ': ', E.Message);
        end;
      finally
        //Readln;
      end;
      s2:='';
    end;

Здесь строки, начинающиеся с меток даты / времени, являются собственными выходами программы, другие строки - выходами архиватора RAR.Вы можете видеть смешивание двух типов текста. 

2019. 03. 25. 14:03:15 - Starting file archiving operation 
2019. 03. 25. 14:03:15 - d:\Temp\testing\phx\
2019. 03. 25. 14:03:15 - 279 files found total
2019. 03. 25. 14:03:15 - 103 different dates found

2019. 03. 25. 14:03:15 - Creating archive file 1 of 103 = 2017. 04. 12..rar

RAR 4.11   Copyright (c) 1993-2012 Alexander Roshal   17 Feb 2012
Shareware version         Type RAR -? for help

Evaluation copy. Please register.

Updating archive d:\Temp\testing\phx\archived\2017. 04. 12..rar

Updating  d:\Temp\testing\phx\E00186000_PP20_0_KARAT.CSV                  23%  OK 
Updating  d:\Temp\testing\phx\E00186000_PP21_0_KARAT.CSV                 100%  OK 
Deleting d:\Temp\testing\phx\E00186000_PP21_0_KARAT.CSV    deleted
Deleting d:\Temp\testing\phx\E00186000_PP20_0_KARAT.CSV    deleted
Done

2019. 03. 25. 14:03:16 - Crea
RAR 4.11   Copyright (c) 1993-2012 Alexander Roshal   17 Feb 2012
Shareware version         Type RAR -? for help

Evaluation copy. Please register.

Updating archive d:\Temp\testing\phx\archived\2017. 05. 15..rar

Updating  d:\Temp\testing\phx\E00398000_PP64_0_KARAT.CSV                  31%  OK 
Updating  d:\Temp\testing\phx\E00398000_PP65_0_KARAT.CSV                  47%  OK 
Updating  d:\Temp\testing\phx\E00398000_PP69_0_KARAT.CSV                  73%  OK 
Updating  d:\Temp\testing\phx\E00398000_PP73_0_KARAT.CSV                  89%  OK 
Updating  d:\Temp\testing\phx\E00398000_PP83_0_KARAT.CSV                 100%  OK 
Deleting d:\Temp\testing\phx\E00398000_PP83_0_KARAT.CSV    deleted
Deleting d:\Temp\testing\phx\E00398000_PP73_0_KARAT.CSV    deleted
Deleting d:\Temp\testing\phx\E00398000_PP69_0_KARAT.CSV    deleted
Deleting d:\Temp\testing\phx\E00398000_PP65_0_KARAT.CSV    deleted
Deleting d:\Temp\testing\phx\E00398000_PP64_0_KARAT.CSV    deleted
Done
ting archive file 2 of 103 = 2017. 05. 15..rar

RAR 4.11   Copyright (c) 1993-2012 Alexander Roshal   17 Feb 2012
Shareware version         Type RAR -? for help

Evaluation copy. Please register.

Updating archive d:\Temp\testing\phx\archived\2017. 05. 16..rar

Updating  d:\Temp\testing\phx\E00398000_PP111_0_KARAT.CSV                 54%  OK 
Updating  d:\Temp\testing\phx\E00398000_PP114_0_KARAT.CSV                100%  OK 
Deleting d:\Temp\testing\phx\E00398000_PP114_0_KARAT.CSV    deleted
Deleting d:\Temp\testing\phx\E00398000_PP111_0_KARAT.CSV    deleted
Done

2019. 03. 25. 14:03:17 - Creating archive file 3 of 103 = 2017. 05. 16..rar

2019. 03. 25. 14:03:18 - Creating archive file 4 of 103 = 201
RAR 4.11   Copyright (c) 1993-2012 Alexander Roshal   17 Feb 2012
Shareware version         Type RAR -? for help

Evaluation copy. Please register.

Updating archive d:\Temp\testing\phx\archived\2017. 05. 18..rar

Updating  d:\Temp\testing\phx\E01125000_PP266_0_KARAT.CSV                 59%  OK 
Updating  d:\Temp\testing\phx\E01125000_PP275_0_KARAT.CSV                100%  OK 
Deleting d:\Temp\testing\phx\E01125000_PP275_0_KARAT.CSV    deleted
Deleting d:\Temp\testing\phx\E01125000_PP266_0_KARAT.CSV    deleted
Done
7. 05. 18..rar

Спасибо за любую помощь заранее.

Питер: -))

Ответы [ 2 ]

1 голос
/ 28 марта 2019

Следующий код решил проблему. 

    unit uDOSOutput;

    interface

    uses Windows;
    function ExecuteCommand(CommandLine:string):string;

    var
      mCommand: string;
      mOutputs: string;

    implementation

    function ExecuteCommand(CommandLine:string):string;
    var
      PROC:       TProcessInformation;
      Ret:        LongBool;
      START:      TStartupInfo;
      SA:         TSecurityAttributes;
      hReadPipe:  THandle;
      hWritePipe: THandle;
      dBytesRead: DWORD;
      sBuff:      array[0..255] of Char;
    begin
      if Length(CommandLine) > 0 then
        mCommand := CommandLine;
      if Length(mCommand) = 0 then
      begin
        MessageBox(0, PChar('Command Line empty.'), PChar('Error'), MB_ICONEXCLAMATION);
        Exit;
      end;
      SA.nLength := SizeOf(TSecurityAttributes);
      SA.bInheritHandle := TRUE;
      SA.lpSecurityDescriptor := nil;
      Ret := CreatePipe(hReadPipe, hWritePipe, @SA, 0);
      if not Ret then
      begin
        MessageBox(0, PChar('CreatePipe() failed.'), PChar('Error'), MB_ICONEXCLAMATION);
        Exit;
      end;
      FillChar(START ,Sizeof(TStartupInfo), #0);
      START.cb := SizeOf(TStartupInfo);
      START.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
      START.hStdOutput := hWritePipe;
      START.hStdError := hWritePipe;
      Ret := CreateProcess(nil, PChar(mCommand), @SA, @SA, TRUE, NORMAL_PRIORITY_CLASS, nil, nil, START, PROC);
      if Ret <> TRUE then
      begin
        MessageBox(0, PChar('File or command not found.'), PChar('Error'), MB_ICONEXCLAMATION);
        Exit;
      end;
      Ret := CloseHandle(hWritePipe);
      mOutputs := '';
      repeat
        Ret := ReadFile(hReadPipe, sBuff, 255, dBytesRead, nil);
        mOutputs := mOutputs + Copy(sBuff, 1, dBytesRead);
      until Ret = FALSE;
      Ret := CloseHandle(PROC.hProcess);
      Ret := CloseHandle(PROC.hThread);
      Ret := CloseHandle(hReadPipe);
      ExecuteCommand := mOutputs
    end;

    end.

Происхождение: http://www.delphibasics.info/home/delphibasicssnippets/capturetheoutputofadosapplication

0 голосов
/ 25 марта 2019

Из вашего вопроса мне не ясно, действительно ли вы хотите, чтобы вывод RAR.EXE был включен в ваш файл журнала или нет.Если вам это не нужно в журнале, я бы предложил вызвать RAR.EXE следующим образом:

C: \ windows \ system32 \ cmd.exe / c "[путь] \ rar.exe"" [параметры rar.exe] "

Это должно открыть RAR.EXE во втором независимом окне консоли.

...