Read File from HDD побайтно => скорость очень низкая.

← →
opoloXAI © (2003-08-22 15:37) [0]

Добрый день.
Подскажите, пожалуйста. Я хочу побайтно посылать на LPT-port файл. Сначала, я не понимал почему это происходит очень медленно. Думал, что это связано с портом. Но затем написал цикл:

var b: Byte;

AssignFile(f,"file.txt");
ReSet(f);
repeat
Read(f,b);
// отправляю байт на LPT-Port
until EOF(f)=true;
CloseFile(f);

Получилось, что скорость просто ОЧЕНЬ маленькая. Я предполагаю, что в этой ситуации нужно воспользоваться потоками, но не знаю как это сделать. А может есть другие, более практичные способы?
Заранее спасибо.

← →
MBo © (2003-08-22 15:40) [1]

TFileStream или другой метод чтения - главное, чтобы читался сразу блок, а не по одному байту

← →
opoloXAI © (2003-08-22 18:00) [2]

Подбросьте примерчик.

← →
MBo © (2003-08-22 18:03) [3]

хелп читай

BlockRead/BlockWrite
FileRead/FileWrite

Read File from HDD побайтно => скорость очень низкая. Найти похожие ветки