Отслеживание изменений в файле и его вывод в мэмо

[lich100]

Всем привет. Нужна помощь с программой. Она уже работает, но нужно ее немного подкрутить, но я пока не могу понять как это сделать.
Программа создана для запуска, администрирования и управления серверами игры Urban Terror. Нужна помощь доделать одну из ее функций, а именно перехват данных из консоли игры. В общем она по нажатию кнопки копирует лог файл чужой программы, ассоциирует его, открывает на чтение, в цикле считывает его и выводит в мэмо. Выводит она его естесственно каждый раз заново, а мне нужно чтобы выводились только изменения в файле. То есть проверка на изменение прошла и только тогда изменение выводится в мэмо. Как можно это реализовать? OC Windows Seven, но вообще будет кросс платформенная, использую правильные компоненты вроде.
Вот мой нынешний код для этой кнопки:

Код: Выделить всё

procedure TForm1.Button18Click(Sender: TObject);
var
  log: string;
begin
  log:= ' ';
  Form1.Memo1.Clear;
  if FileExists(APath + 'qconsole.log') then DeleteFile(Pchar(APath + 'qconsole.log'));
  CopyFile(Pchar(UrtCatalogCFG + 'qconsole.log'), Pchar(APath + 'qconsole.log'), true);
  AssignFile(urbanlog, APath + 'qconsole.log');
  if not FileExists(APath + 'qconsole.log')
      then
        begin
        Form1.Memo2.Font.Color:=clRed;
        Form1.Memo2.Lines.Add('Ошибка: Лог файл не найден, невозможно прочитать вывод сервера');
        end
      else
      begin
  Reset(urbanlog);
  while not Eof(urbanlog) do
    begin
      readln(urbanlog, log);
      Form1.Memo1.Lines.Add(log);
    end;
      CloseFile(urbanlog);
      end;
end;

Заранее благодарен за вашу помощь.

[Mr.Smart]

Какая OC?

[Padre_Mortius]

Грузите файл в какой-нить TStringList или поток TStream. Запоминайте или номер последней строки или размер файла и начинайте чтение с этого момента

[coyot.rush]

Как можно это реализовать

Если это лог то он имеет свойство увеличиваться, т.е.
1) нужно запомнить размер "старого" файла;
2) получть значение "нового";
3) затем считать "разницу" от конца файла.

[lich100]

ОС Windows Seven.

[Mr.Smart]

Как вариант для Windows NT можно использовать это http://msdn.microsoft.com/en-us/library/aa365465(VS.85).aspx

[Odyssey]

Если решать кроссплатформенно и в лоб, не заморачиваясь поначалу на быстродействие, я бы делал через TFileStream. Что-то типа:

Код: Выделить всё

var
  UrbanLog: TFileStream;
  LastLogSize: Int64;
  LogLine: String;
begin
  LastLogSize := 0;
//...
try
  UrbanLog := TFileStream.Create(APath + 'qconsole.log', fmOpenRead);
except
  on EFOpenError do ShowMessage('Ошибка: Не удалось открыть файл лога');
end;
if UrbanLog.Size > LastLogSize then
begin
  UrbanLog.Seek(LastLogSize);
  while (UrbanLog.Position < UrbanLog.Size) do
  begin
    LogLine := StreamReadLn(UrbanLog);
    Form1.Memo1.Lines.Add(LogLine);
  end;
  LastLogSize := UrbanLog.Size;
end;
FreeAndNil(UrbanLog);


Функция StreamReadLn - своя:

Код: Выделить всё

function StreamReadLn(AStream: TStream): string;
const
  CR = #13;
  LF = #10;
  cStrChunkSize = 255;
var
  buf: string;
  count: Integer;
  ch_prev, ch: char;
begin
  count   := 0;
  ch      := #0;
  ch_prev := #0;
  SetLength(buf, cStrChunkSize);
  while (AStream.Position < AStream.Size) do
  begin
    AStream.ReadBuffer(ch, SizeOf(ch));
    if (ch_prev = CR) then
    begin
      Dec(count);
      if (ch <> LF) then
        AStream.Seek(-1, soFromCurrent);
      Break;
    end else
    if (ch = LF) then
      Break
    else
    begin
      Inc(count);
      if Length(buf) < count then
        SetLength(AString, count + cStrChunkSize);
      buf[count] := ch;
      ch_prev := ch;
    end;
  end;
  SetLength(buf, count);
  Result := buf;
end;

Код писал сразу в браузер и не проверял. Поэтому за его работоспособность, скорость и качество не отвечаю.