Работа с консолью в GUI приложении

[Anonymous1235]

Тема давно избитая, однако недавно столкнулся с проблемой при вводе команд. WriteFile работает нормально и даже возвращает кол-во записанных байт, однако ничего не происходит. В чём проблема?

P.S. Компилирую в Delphi XE3 под Win 7 x64.

[Anonymous1235]

Неужели никто не поможет?
Хотя бы дайте знать в какую сторону копать.

[Stilet]

Вот где-то читал что пока пайп не закрыт до адресата его содержимое не дойдет...
Вообще-то могу ошибатся...

http://delphiworld.narod.ru/base/console_in_out.html
Может поможет.

P.S.

WriteFile(Pipes[IN_WRITE], Buf, Length(stdInput), i, nil);

// Хендл записи в StdIn надо закрыть - иначе выполняемая программа
// может не прочитать или прочитать не весь StdIn.

CloseHandle(Pipes[IN_WRITE]);

Окак!

[Slym]

некоторые команды ждут CTRL+Z типа EOF
вроде #26 не помню

[Человек_Борща]

Может разрабы налажали?

[Somebody]

В ReadStrFromChild для chBuf сначала память выделяется вызовом New, а освобождается - FreeMem.
После CreateProcess надо бы закрыть хэндл потока, если не нужен.
А основная ошибка - что-то ты в WriteToChild перемудрил с PAnsiString. В таком виде в WriteFile надо передавать chBuf^[1]. А лучше вообще замени на AnsiString без указателей.

[Anonymous1235]

Somebody,
пробовал менять на AnsiChar и убирать лишние преобразования. Толку нету.
В общем решил написать всё с нуля и полностью разобраться с пайпами.
P.S. Код в архиве не мой. На форуме, где его выложили, писали что он полностью рабочий.

[Anonymous1235]

Проблема была в IDE. После переустановки заработало нормально.
UPD: Написал небольшой модуль, для работы с консолями. Может кому-нибудь понадобиться.

[aLLeXUs]

Спасибо большое за модуль, очень помог! Единственная проблема что вместо русского текста в консоль отправляются корозябины. И при работе с другими консольными приложениями консольный текст читается тоже корозябинами.

[alextrof94]

http://forum.sources.ru/index.php?showtopic=332467