Запуск консольных приложений и перехват потока ввода/вывода в Delphi XE3

Bellic написал:

Bellic — Sat, 01 Jul 2017 19:26:13 +0300

Alex, большое спасибо!!! Пока ждал ответа - практически полностью написал программу... Использовал CreateProcess и выводил сообщения из консоли в Мемо через поток в памяти... За основу взял код от сюда: http://www.sql.ru/forum/830777/vvod-i-vyvod-dannyh-iz-konsolnogo-prilozheniya

Alex написал:

Alex — Sat, 01 Jul 2017 18:42:02 +0300

Компонент TPipeConsole нужен для перехвата потока вывода от консольного приложения. Если вы хотите просто запустить приложение и поток вывода вам не нужен, то и этот компонент вам тоже не нужен. Достаточно просто запустить процесс с помощью функции CreateProcess. Параметры, которые вы перечислили выше, можно использовать в обоих случаях.

Alex написал:

Alex — Sat, 01 Jul 2017 18:32:33 +0300

Не совсем понял - где ссылка на Компонент с этой правкой? Вот это Он? http://www.proghouse.ru/component/jdownloads/finish/4-razrabotki/35-pipes-pas-win32-i-win64?Itemid=0 Да.

Bellic написал:

Bellic — Sat, 01 Jul 2017 14:49:01 +0300

...Или же все команды можно обработать не применяя Компоненту? (пардон - я еще мало опыта имею...)

Bellic написал:

Bellic — Sat, 01 Jul 2017 14:22:15 +0300

Вообще хочу прикрутить Окошки к известной lrelease из известного пакета QT. Вот ее параметры командной строки: http://s019.radikal.ru/i603/1707/38/cadec60cb823.jpg Получится ли все это обработать с помощью Вашей компоненты? Спасибо!

Bellic написал:

Bellic — Sat, 01 Jul 2017 14:08:37 +0300

Alex написал:

Alex — Fri, 28 Apr 2017 16:50:58 +0300

Я уже поменял код в тот же день на другой. Скачайте ещё раз.

iMic написал:

iMic — Fri, 28 Apr 2017 11:57:51 +0300

Что-то Execute совсем перeстал работать, Код SetLength(CommandLine, MAX_PATH) - портит строку параметров, что логично т.к.: SetLength() - Existing characters in the string or elements in the array are preserved, but the content of newly allocated space is undefined.

Alex написал:

Alex — Thu, 27 Apr 2017 13:18:20 +0300

Поправил и для TPipeConsole.Start. Если в параметре CommandLine вы передадите только '--help', то консольная программа так CommandLine и прочитает. А, поскольку вначале CommandLine обычно стоит имя файла программы, то она этот параметр может просто не заметить. Вы можете написать простое консольное приложение и оконное, которое его вызывает, и посмотреть, что вы будете получать в консольном приложении в разных ситуациях. Для остальных версий такая склейка тоже нужна.

iMic написал:

iMic — Thu, 27 Apr 2017 11:33:46 +0300

Соответствие MSDN это может и хорошо, но не являлось ли целью создания этого класса сокрытие сложности WinAPI (кроме того Вы внесли правки только для синхронного запуска)? Можете ли Вы привести пример программы, которая, работает, если ей передавать параметры не вместе с именем, т.е., вроде того: Ведь согласно MSDN склейка имени программы и аргументов в один параметр нужна только для Win16 программ?!

Alex написал:

Alex — Wed, 26 Apr 2017 23:01:55 +0300

Пометку сделал. Я поправил код, но так, чтобы можно было использовать и первый и второй параметр. И так, чтобы избежать ошибки access violation. Т.е. в соответствии с описанием функции CreateProcess в MSDN: https://msdn.microsoft.com/ru-ru/ms682425. Теперь если вы ставите пустую строку первым или вторым параметром, то в CreateProcess будет передан nil. Сейчас функцию Execute можно вызвать так: pipeConsole.Execute( '', 'C:\test\html2xhtml.exe --help', outputStream, errorStream, processExitCode, processId, nil);

iMic написал:

iMic — Wed, 26 Apr 2017 11:45:15 +0300

Пробовал, а также пытался дописывать '\0' в конец строки, чтобы эмитировать стиль Си-строк - не помогло. Полагаю, дело в том, что html2xhtml не поддерживает интерактивный режим (если я правильно выражаюсь), т.е. тот же код нормально работает, например с nslookup.exe, в то же время, если в отдельном окне cmd.exe передать вывод по цепочке, то всё работает: https://www.dropbox.com/s/pjl4s1p1ixwkuox/cmdPipeLine.png?dl=0

iMic написал:

iMic — Wed, 26 Apr 2017 11:34:33 +0300

Так, во-первых, похоже сначала я скачал старую версию Pipes.pas, который не был помечен как Win64, полагая, что мне нужен он, т.к. у меня x86 и Delphi 2007. Предлагаю добавить пометки в статью о том, что это более старая версия модуля, сейчас это не очевидно. Во-вторых, предлагаю следующую правку, чтобы не передавать имя программы в обоих параметрах метода Execute(), а также защитить путь к программе от пробелов:

Alex написал:

Alex — Sun, 23 Apr 2017 13:21:16 +0300

Если смотреть реализацию, то в функцию CreateProcess нужо передавать 0 в первый или второй параметр если соответствующие параметры-строки пустые, но там это не сделано, поэтому приходится путь к программе писать 2 раза. С помощью функции PipeConsole.Write(); нужно передавать строки завершённые символами перевода каретки #13#10. Программа html2xhtml.exe наверняка ждёт их. Может быть вы забыли передать эти символы?

iMic написал:

iMic — Sun, 23 Apr 2017 11:44:31 +0300

Подозреваю, что так. В ходе отладки понял, что по всей видимости CreateProcess() внутри Pipes.pas корректно передаёт параметры командной строки только, если имя программы вместе с командной строкой передать во втором параметре (как в вашем примере). Но теперь те же проблемы при асинхронном запуске. html2xhtml.exe никак не реагирует на запись данных в её поток через PipeConsole.Write(); Хотя nslookup.exe работает нормально.

Alex написал:

Alex — Sat, 22 Apr 2017 17:58:31 +0300

Что-то я не то ответил в предыдущем комментарии. Функция Execute как раз для работы в синхронном режиме. Вот мой пример, который работает в Берлине: procedure TForm1.FormCreate(Sender: TObject); var outputStream, errorStream: TMemoryStream; processExitCode, processId, lastError: DWORD; criticalSection: TRTLCriticalSection; begin pipeConsole := TPipeConsole.Create(self); outputStream := TMemoryStream.Create; try errorStream := TMemoryStream.Create; try lastError := pipeConsole.Execute( 'C:\test\html2xhtml.exe', 'C:\test\html2xhtml.exe --help', outputStream, errorStream, processExitCode, processId, nil); if lastError <> 0 then RaiseLastOSError; Memo1.Lines.Add(TEncoding.ASCII.GetString(outputSt ream.Memory)); Memo1.Lines.Add(TEncoding.ASCII.GetString(errorStr eam.Memory)); finally errorStream.Free; end; finally outputStream.Free; end; end; Может быть у вас программа зависает, потому, что ждёт ввода?

iMic написал:

iMic — Fri, 21 Apr 2017 11:16:41 +0300

В синхронном режиме никак. Чтобы синхронно работать с консольным приложением вам нужно работать без компонента TPipeConsole. Т.е. напрямую использовать функции PeekNamedPipe, WriteFile, ReadFile и т.п. Ясно, ещё такой момент, пытаюсь запустить программу html2xhml.exe (http://www.it.uc3m.es/jaf/html2xhtml/), в настольном приложении Delphi 2007 и почему-то устойчиво получаю Timeout при вызове PipeConsole.Execute(), ну или зависание при timeout = infinite. При этом если просто открываю командную строку и вбиваю в неё те же самые параметры (копирую из отладчика Delphi), то всё работает, как такое может быть?!

Alex написал:

Alex — Mon, 17 Apr 2017 13:15:34 +0300

iMic написал:

iMic — Fri, 14 Apr 2017 14:48:23 +0300

Не совсем понятно, как пользоваться классом TPipeConsole в синхронном режиме, в частности, как ему передать входной поток?

iMic написал:

iMic — Fri, 14 Apr 2017 14:30:39 +0300

Не совсем понятно, как пользоваться классом TPipeConsole в синхронном режиме, т.е. как в этом случае отправить в него строку?

Alex написал:

Alex — Fri, 15 Jan 2016 07:21:04 +0300

Добавил в статью ссылку на последнюю версию Pipes.pas с поддержкой Win64. Пробуйте её. Она должна поддерживать все версии Delphi.

Chuxlo написал:

Chuxlo — Thu, 14 Jan 2016 18:18:34 +0300

Не возможно скомпилировать в Delphi 7 Undeclared identifier: 'SIZE_T'