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

[Kotofff]

Скорее всего ты прав ...

[Toxa]

попробуй скопировать файл и от туда прочесть

[pautina]

Может как то это можно сделать. Ситуация у меня сейчас такая, программа generatоr.exe создаёт файл лога logfile.txt этот файл постоянно заполняется данными, программа которая у меня написана позволяет вывести нужные мне данные,
Участок кода программы такой

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);
const
    filename='C:\Documents and Settings\ñåðãåé\Ðàáî÷èé ñòîë\Çàäàíèå\logfile.txt';
var SourceST,DestST:TStringList;
    i:integer; handle: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])-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.

Но эта программа не может считать данные с файла logfile.txt когда запущен генератор, выдается сообщение что файл занят другим процессом.
Как мне сделать чтобы я мог считать данные с logfile.txt при работающем генраторе

[Д'якон]

не такое это простое дело - работа с занятыми файлами:

http://wasm.ru/article.php?article=lockfileswork

[pautina]

Можно ли как то открыть занятый файл logfile.txt (занят приложением generator.exe) используя TFileStream, что добавить в код

procedure TForm1.Button1Click(Sender: TObject);

var SourceST,DestST:TStringList;
    i:integer; handle:integer;
    FS: TFileStream;

    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 );
  FS:= TFileStream.Create('C:\Documents and Settings\ñåðãåé\Ðàáî÷èé ñòîë\Çàäàíèå\logfile.txt', fmShareDenyNone);

 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;

[Kotofff]

Ты наверное хотел уточнить конкретно про fmShareDenyNone атрибут ? Тогда ответ - да !

[pautina]

Как мне изменить мой код чтоб всё работало, и не выводилось сообщение что файл занят другим процессом.
Вот код

procedure TForm1.Button1Click(Sender: TObject);

var SourceST,DestST:TStringList;
    i:integer; handle:integer;
    FS: TFileStream;
   // FileStreamLog:TFileStream;

    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 );
  FS:= TFileStream.Create('C:\Documents and Settings\сергей\Рабочий стол\Задание\logfile.txt', fmOpenRead or fmShareDenyNone );
 //  FileStreamLog:=TFileStream.Create('logfile.txt', fmOpenRead or fmShareDenyNone);

 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;

Код позволяет вывести нужные данные из файла лога logfile.txt (если файл сохранён), Мне нужно добится вывода этих данных при запущенном приложением generator.exe это приложение и создаёт файл лога.

[Kotofff]

как вариант :

var 
  ...
  ...
  FS1, FS2: TFileStream;
  ....
  ....
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if OpenDialog1.Execute then 
   begin
   // Открываем файл так чтобы к нему пустили 
   FS1:= TFileStream.Create(OpenDialog1.FileName, fmShareDenyNone);
   // Сохраняем во временный файл 
   FS2:= TFileStream.Create('C:\Temp_logfile.txt', fmOpenWrite or fmCreate);
   FS2.CopyFrom (FS1, FS1.Size);
   // Берем содержимое из временного файла
   SourceST.LoadFromFile('C:\Temp_logfile.txt'); 
   // Можно его удалить например
   DeleteFile('C:\Temp_logfile.txt'); 
   ...
   ...
       Тут что-то делаешь с массивом SourceST
   ...
   ...
   SourceST.Free;
   DestST.Free;
   end;
end;

[pautina]

Где то в коде ошибка,

procedure TForm1.Button1Click(Sender: TObject);

var SourceST,DestST:TStringList;
    i:integer;
    FS1, FS2: TFileStream;
    s:string;
     
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 // if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 if OpenDialog1.Execute then
  begin
   // Открываем файл так чтобы к нему пустили
   FS1:= TFileStream.Create(OpenDialog1.FileName, fmShareDenyNone);
   // Сохраняем во временный файл
   FS2:= TFileStream.Create('C:\Temp_logfile.txt', fmOpenWrite or fmCreate);
   FS2.CopyFrom (FS1, FS1.Size);
   // Берем содержимое из временного файла
   SourceST.LoadFromFile('C:\Temp_logfile.txt');

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

  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;

Сейчас говорит что нет доступа к C:\Temp_logfile.txt

[Kotofff]

блин , прости ... после ....

   // Открываем файл так чтобы к нему пустили
   FS1:= TFileStream.Create(OpenDialog1.FileName, fmShareDenyNone);
   // Сохраняем во временный файл
   FS2:= TFileStream.Create('C:\Temp_logfile.txt', fmOpenWrite or fmCreate);
   FS2.CopyFrom (FS1, FS1.Size);

напиши

FS1.Free;
FS2.Free;

надо ж освобождать файлы от наших потоков ... после копирования ...