VPF::[Turbo Pascal] Перенаправление потока в Crt

iff

Дата 2.5.2012, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: нет
Всего: 16

При подключении модуля Crt проподает возможность перенаправить поток ввода (поток вывода мне не нужно перенаправлять).
Допустим есть код:

Код


Var S : String;
Begin
    ReadLn(S);
    WriteLn('S = ', S);
    ReadLn;
End.

Если его откомпилировать, получим программу readstr.exe.
Текстовой файл s.txt допустим содержит:

Код


qwerty

При вводе в командную строку:

Код


readstr < s.txt

Программа выводит:

Код


S = qwerty

Всё нормально. Но если добавить в программу "Uses Crt;", то поток ввода не перенаправляется, программа ожидает ввода с клавиатуры. Вероятно, crt работает не через прерывания DOS, а через прерывания BIOS, а то и вовсе напрямую с буфером клавиатуры.
Установка DirectVideo равным False не помогает.

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

ФедосеевПавел

Дата 3.5.2012, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Я долго чухался, но может ещё не поздно.

У тебя два пути:
1. Отключить в самом начале программы CRT быстрый ввод ( Assign(input, ''); Reset(input); ).
2. Определить перенаправление ввода. А потом отключать CRT-ввод указанным способом.
Примеры обнаружения перенаправления я встречал в RSWAG'ах. Online исходники примеров здесь. Помню, когда экспериментировал с ними, не все определяли перенаправление, или давали инверсный результат.

Код


Uses CRT;
Var S : String;
Begin
    if Redirected(Input) then
      WriteLn('Input from file')
      Assign(Input, '');
      Reset(Input);
    else
      WriteLn('Input from console');

    ReadLn(S);
    WriteLn('S = ', S);

    ReadLn;
End.

Это сообщение отредактировал(а) ФедосеевПавел - 3.5.2012, 19:51

iff

Дата 3.5.2012, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: нет
Всего: 16

Спасибо

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »