|
Вопрос # 1 315/ вопрос решён / |
|
Здравствуйте!
Есть некая программа А (не моя), которая обрабатывает поступающую с СОМ-порта инфу и пишет ее в текстовый файл F.
Нужно написать прогу В, которая будет в реальном времени следить за обновлением упомянутого текстового файла и синхронно выводить в МЕМО вновь записанное в файл F.
Можно ли это сделать?
 |
Вопрос задал: vsorokin (статус: Посетитель)
Вопрос отправлен: 5 февраля 2008, 13:33
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, vsorokin!
Всё зависит от того, как программа А открыла файл. А она может открыть в монопольный доступ. и тут уж часто добраться к файлу можно будет только на уровне драйвера.
А так, можно попробывать открыть файл в программе В только на чтение. и время от времени проверять размер файла и подчитывать.
открыть файл на чтение можно где то так
var
fs:TFilestream;
begin
fs := TFileStream.create("имя файла", fmRead);
fs.size - размер
fs.position := 0;//спозиционировать указатель чтения на начало
fs.read(buffer, size);//читать в буфер
fs.free; //закрыть файл
end;
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 5 февраля 2008, 16:40
Оценка за ответ: 5
Комментарий к оценке: Спасибо
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 6 февраля 2008, 00:02; участников в обсуждении: 2.
|
|
vsorokin (статус: Посетитель), 5 февраля 2008, 17:28 [#1]:
Спасибо, Вадим.
При первом чтении, как я понял, нужно:
fs.position := 0;//спозиционировать указатель чтения на начало
и читаем весь файл.
Затем, не закрывая его, периодически проверяем размер.
После его изменения - считываем вновь записанное?
И т.д.?
|
|
|
Вадим К (статус: Академик), 6 февраля 2008, 00:02 [#2]:
после открытия позиционировать не надо. позиция и так будет на нулю. Это специально я привёл, что бы было понятно, как выставлять позицию.
После того, как с файла прочитано, просто сравниваем fs.position и fs.size. Если они одинаковы -читать больше не надо, выдерживаем паузу. Если разные - то просто берём и читаем.
Галочка "подтверждения прочтения" - вселенское зло.
|
24 декабря 2012, 09:42: Статус вопроса изменён на решённый (изменил модератор DNK): Оценка 5!
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
