Читать поток стандартного входа как блочное устройство в FPC :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Читать поток стандартного входа как блочное устройство в FPC

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки

Alexander70

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Скрипт сайта реализует бизнес логику, но часть работы надо сделать над большим входным потоком не текстовой природы - разбор HTML-формы с enctype="multipart/form-data".

Решил написать на Паскале обработку потока. Смотрю старую книжку (Turbo) и не понимаю, а как читать байты со стандартного входа и можно ли поток читать BlockRead-ом?

Есть альтернатива - в скрипте CGI сохранить поток на диске и Паскалем открыть как блочный файл. Но хочется сэкономить одну операцию чтения.

Спасибо

Всего записей: 36 | Зарегистр. 02-01-2017 | Отправлено: 06:44 17-01-2017

landy Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Alexander70 можно попробовать THandleStream.Create(StdInputHandle)
	Всего записей: 576 \| Зарегистр. 17-01-2003 \| Отправлено: 12:11 17-01-2017

Alexander70

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Спасибо, а как это подключить и как с этим работать? Есть ссылка на описание работы с потоками?
А то я Паскаль знаю по Турбо, а там таких словей ещё не знали

Всего записей: 36 | Зарегистр. 02-01-2017 | Отправлено: 12:30 17-01-2017

landy

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

тогда так еще попробуй:

Код:

var
f:file;
buf:array[1..1024] of byte;
begin
TFileRec(f).mode := fmInOut;
TFileRec(f).RecSize := SizeOf(buf);
TFileRec(f).handle := GetStdHandle(STD_INPUT_HANDLE);
BlockRead(f, buf, 1);
end;

Всего записей: 576 | Зарегистр. 17-01-2003 | Отправлено: 16:55 17-01-2017 | Исправлено: landy, 16:56 17-01-2017

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC