Вывод данных из файла при запущенном приложении

[pautina]

Здравствуйте Уважаемое сообщество.
У меня такая проблема.
Мне нужно вывести данные из файла filelog.txt при условии что этот файл занят другим приложением generator.exe, которое и наполняет этот файл данными.
У меня есть программа которая позволяет выводить нужные данные из файла filelog.txt но работает она при условии что файл filelog.txt сохранён и не занят никаким приложением, как сделать так чтоб программа которая выводит нужные данные из файла, выполнялась при запущенном приложении.

[Kotofff]

Открыть его с атрибутом ReadOnly ...

[pautina]

Вы ни скажете какой участок кода использовать.
В моей программе код такой

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
    TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var SourceST,DestST:TStringList;
    i:integer;
    s:string;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 for i:=0 to SourceST.Count-1 do
 begin

 // try     // Вывод чисел
 //   if pos('|',SourceST[i])<>0 then // Если строка с разделителем | найдена
 //   SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,48)
 //   else SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,1); // Если строка с разделителем не найдена то строка состоит из пробела
 //   DestST.Add(SourceST[i]);   // Вывод чисел

 // except
 // end;

  try
    // Вывод временных меток
    if pos(':',SourceST[i])<>0 then // Если строка с : найдена
    SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-19,20)
    else
    // Вывод чисел
     if ((pos('|',SourceST[i])<>0) and ((pos('1',SourceST[i])<>0)
         or (pos('2',SourceST[i])<>0) or (pos('3',SourceST[i])<>0)
         or (pos('4',SourceST[i])<>0) or (pos('5',SourceST[i])<>0)
         or (pos('6',SourceST[i])<>0) or (pos('7',SourceST[i])<>0)
         or (pos('8',SourceST[i])<>0) or (pos('9',SourceST[i])<>0)
         or (pos('0',SourceST[i])<>0)))

     then // Если строка с разделителем | найдена и в строке есть цыфры
     SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,48)
    // Если ни временных меток ни чисел нет то строка пустая
    else SourceST[i]:='';
    DestST.Add(SourceST[i]);
  except
  end;

 end;
 DestST.SaveToFile('112.txt'); //   DestST.SaveToFile('112.xls');
 SourceST.Free;
 DestST.Free;
end;

end.

Куда вставить участок кода который позволяет открывать файл с атрибутом ReadOnly

[Kotofff]

Посмотри тут :
http://www.cyberguru.ru/programming/...rt1-page8.html

[pautina]

Воспользовался функцией FileSetAttr

FileSetAttr('C:\Documents and Settings\сергей\Рабочий стол\Задание\logfile.txt', faReadOnly);

Мне нужно поставить атрибут чтение и запись, потому что generator.exe записывает в logfile.txt а моя программы читает, сейчас faReadOnly - только чтение как поставить чтение и запись.

[Kotofff]

Handle := FileOpen('C:\Documents and Settings\сергей\Рабочий стол\Задание\logfile.txt', fmOpenRead);

Тебе ведь нужно просто отрыть его и прочесть ...

[Kotofff]

А прога, которая пишет этот самый лог (logfile.txt) тоже твоя ?

[pautina]

Может не в то место в коде поставил, выдало ошибку, программа которая пишет лог не моя.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
    TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var SourceST,DestST:TStringList;
    i:integer;
    s:string;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);

 // FileSetAttr('C:\Documents and Settings\сергей\Рабочий стол\Задание\logfile.txt', faReadOnly);  // Атрибуты для файла только чтение
  Handle := FileOpen('C:\Documents and Settings\сергей\Рабочий стол\Задание\logfile.txt', fmOpenRead);


 for i:=0 to SourceST.Count-1 do
 begin

 // try     // Вывод чисел
 //   if pos('|',SourceST[i])<>0 then // Если строка с разделителем | найдена
 //   SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,48)
 //   else SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,1); // Если строка с разделителем не найдена то строка состоит из пробела
 //   DestST.Add(SourceST[i]);   // Вывод чисел

 // except
 // end;

  try
    // Вывод временных меток
    if pos(':',SourceST[i])<>0 then // Если строка с : найдена
    SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-19,20)
    else
    // Вывод чисел
     if ((pos('|',SourceST[i])<>0) and ((pos('1',SourceST[i])<>0)
         or (pos('2',SourceST[i])<>0) or (pos('3',SourceST[i])<>0)
         or (pos('4',SourceST[i])<>0) or (pos('5',SourceST[i])<>0)
         or (pos('6',SourceST[i])<>0) or (pos('7',SourceST[i])<>0)
         or (pos('8',SourceST[i])<>0) or (pos('9',SourceST[i])<>0)
         or (pos('0',SourceST[i])<>0)))

     then // Если строка с разделителем | найдена и в строке есть цыфры
     SourceST[i]:=Copy(SourceST[i],Length(SourceST[i])-47,48)
    // Если ни временных меток ни чисел нет то строка пустая
    else SourceST[i]:='';
    DestST.Add(SourceST[i]);
  except
  end;

 end;
 DestST.SaveToFile('112.txt'); //   DestST.SaveToFile('112.xls');
 SourceST.Free;
 DestST.Free;
end;

end.

Писал так, Handle как описывать это переменная или что, извиняюсь за вопрос

[Kotofff]

тип Handle - Integer

[pautina]

Смотрите а если программа которая пишет этот самый лог generator.exe запрещает другим программам доступ к файлу logfile.txt fmShareExclusive, я уже ничего не смогу сделать или через мою программу это как то можно изменить.