Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

stdout? [D6, Win2k]

Alexcool © (2002-07-24 12:32:00)
Есть приложение, которое пишет в stdout некую информацию. Мне нужно написать на Delphi другое приложение, которое бы могло перехватывать эту информацию, ну и потом конечно как-то обрабатывать. Каюсь, я совершенно ничего об этом не знаю, подскажите, где почитать по stdout/stdin и как с ним работать в Дельфях, и если кто знает как решить мою проблему (перехват). Буду признателен за любые примеры и ссылки!

DiamondShark (2002-07-24 17:49:00) [1]
Читайте по 1 байту

Alexcool (2002-07-24 16:04:00) [2]
to DiamondShark
В принципе получилось, однако есть следующая проблема:
Процедуру ReadFile я вызываю в цикле, пока запущено внешнее приложение, и процедура возвращается только после того, как в буфер будут записаны 128 байт данных, которые она и читает. Читает успешно, но мне бы хотелось, чтобы процедура ReadFile возвращалась немедленно. Я вообще пока не понимаю, откуда взялось число 128 - максимальный буфер у меня 65535, ReadFile вызываю с параметром 1024 байта прочитать...

DiamondShark (2002-07-24 13:05:00) [3]
Делается это при помощи каналов (pipes).
Последовательность примерно такая:

Создается канал (CreatePipe). Получаем два хэндла (концы трубы) один для чтения, другой для записи. Один конец остается нашей программе, другой надо передать внешнему процессу.

Надо создать наследуемый хэндл (для передачи процессу). Это делается либо DuplicateHandle (все винды), либо указать SECURITY_ATTRIBUTES в CreatePipe (только NT, тогда DuplicateHandle не нужен).

Если у нас винда9х (или мы пишем универсально) у нас один конец трубы расщеплен (есть на него два хэндла). Тот хэндл который не наследуемый нам нафиг не нужен, и его можно закрыть CloseHandle. А наследуемый хэндл надо записать в STARTUPINFO перед вызовом CreateProcess

Если нужно перехватить и ввод и вывод, все вышеописанное надо повторить дважды, поменяв концы.

Подробности в SDK Help или в MSDN по теме "Pipes"

Виктор Щербаков (2002-07-24 13:00:00) [4]

> Есть приложение, которое пишет в stdout некую информацию.
> Мне нужно написать на Delphi другое приложение, которое
> бы могло перехватывать эту информацию, ну и потом конечно
> как-то обрабатывать.

Запускай приложение с помощью CreateProcess.
В структуре STARTUPINFO переопредели поле hStdOutput на нужный тебе хэндл (например на временный файл и.т.п)

> Каюсь, я совершенно ничего об этом не знаю, подскажите,
> где почитать по stdout/stdin и как с ним работать в Дельфях

С помощью API-функции GetStdHandle.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »