Цитата:
|
Сообщение от Страдалецъ
Если-бы у меня была возможность ее посмотреть, я бы вопросы не задавал. В микрософтовых осях такого не наблюдается.
Но сразу вижу проблему, которой под никсами по слухам нет - занятость файла. Если прога которая обновляет этот файл, держит его постоянно открытым, то ось так просто этот файл не даст для открытия вашему приложению.
Попробуйте для начала получить доступ к нему таким путем:
Код:
procedure TForm33.Button1Click(Sender: TObject);
Var
F: TFileStream;
S: Array[1..20] of AnsiChar;
begin
F := TFileStream.Create('c:\test.txt',fmOpenRead + fmShareCompat);
F.Seek(-20, soFromEnd);
F.Read(S, 20);
F.Free;
Memo1.Text := S;
end;
Если получиться, тогда будем дальше думать. |
Получилось.
Последние 20 символов в мемо вывел.
Мб,сделать таймер на вывод??
Тогда получится обычный tail....