Парсер логов

[CrazyTetra]

Есть программа (игра) которая пишет логи с достаточно большой скоростью. Файл открыт ей постоянно (поток). Как можно из открытого файла брать последнюю строку? Надо в последней добавленной строке найти соответствие, но это уже второстепенно. Умеет ли дельфи открывать файлы которые уже открыты?
Вот пример нашел, повесил на таймер, но при запуске игры пишет что файл занят (

function GetLastRow(fromfile: string): string;
 var
  LenToRead : WORD;
  FS : TFileStream;
  SL : TStringList;
 begin
  result:='';
  FS := TFileStream.Create(fromfile,fmOpenRead);
  try
   if FS.Size = 0 then Exit ;
   LenToRead := FS.Size ;
   if LenToRead > 100 then LenToRead := 100;
   FS.Seek(FS.Size-100,soBeginning);
   SL:=TStringList.Create;
   SL.LoadFromStream(FS);
   if SL.Count>0 then result:=SL[SL.count-1];
   Form1.Memo1.Lines.Add(result);
  finally
    FS.Free;
    SL.Free;
  end;
 end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[JUDAS]

Ответ FS := TFileStream.Create(fromfile,fmOpenR ead or fmShareDenyWrite);

[CrazyTetra]

Сообщение от JUDAS

Ответ FS := TFileStream.Create(fromfile,fmOpenR ead or fmShareDenyWrite);

Получилось но встал другой вопрос. Как декодировать кодировку? А то отображение получается такое ( А должно быть так

(1318006328)[Fri Oct 07 20:52:08 2011] \aPC -1 Роуэл:Роуэл\/a говорит Level_90 (9): "в х2 башню группой, 1 место - менек"
(1318006346)[Fri Oct 07 20:52:26 2011] \aPC 693204 Амиэль:Амиэль\/a говорит: "Приветствую, !"
(1318006348)[Fri Oct 07 20:52:28 2011] \aPC -1 Зелтрон:Зелтрон\/a говорит Аукцион (1): "то есть не руки мыл?"
(1318006387)[Fri Oct 07 20:53:07 2011] \aPC -1 Обрыгай:Обрыгай\/a говорит Аукцион (1): "мыло было тока хозяйственное?"
(1318006398)[Fri Oct 07 20:53:18 2011] \aPC -1 Роуэл:Роуэл\/a говорит Level_90 (9): "в х2 башню группой, 1 место - менек"
(1318006430)[Fri Oct 07 20:53:50 2011] \aPC -1 Рагг:Рагг\/a говорит Аукцион (1): "Слушай Димкатээр , ты кому угодно мозг вынесешь("
(1318006445)[Fri Oct 07 20:54:05 2011] \aPC -1 Зелтрон:Зелтрон\/a говорит Аукцион (1): "у тебя его нет("
(1318006460)[Fri Oct 07 20:54:20 2011] \aPC -1 Рагг:Рагг\/a говорит Аукцион (1): "Кто сказал ?"

[Аватар]

Так выясните какая кодировка и раскодируйте. Визуально на UTF-8 похоже, могу и ошибиться

[CrazyTetra]

Сообщение от Аватар

Так выясните какая кодировка и раскодируйте. Визуально на UTF-8 похоже, могу и ошибиться

Это и есть UTF-8 без BOM.

[Аватар]

Ну тогда UTF8Decode, Utf8ToAnsi

[CrazyTetra]

И остался один вопросик. Как сделать так что бы эта функция не дублировала сообщения. Я так понимаю алгоритм такой.
Повесить на таймер эту функцию, выполнить ее первый раз.
Записать FS.Size и на втором выполнении по таймеру сравнить изменилось ли это значение. если не изменилось то ничего не делать, если изменилось то выполнить функцию еще раз. Только что то реализовать не могу это условие (((
Вот сейчас как все

function GetLastRow(fromfile: string): string;
var
LenToRead : WORD;
FS : TFileStream;
SL : TStringList;
begin
result:='';
FS := TFileStream.Create(fromfile,fmOpenR ead or fmShareDenyNone);
try
if FS.Size = 0 then Exit ;
LenToRead := FS.Size ;
if LenToRead > 100 then LenToRead := 100;
FS.Seek(FS.Size-300,soBeginning);
SL:=TStringList.Create;
SL.LoadFromStream(FS);
if SL.Count>0 then result:=SL[SL.count-1];
Form1.Memo1.Lines.Add(UTF8Decode(re sult));
finally
FS.Free;
SL.Free;
end;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
GetLastRow('d:\Games\Sony Online Entertainment\Installed Games\EverQuest II\logs\Barren Sky\eq2log_Лясы.txt');
end;