Здравствуйте Уважаемое сообщество. Вы ни скажете каким образом можно открыть занятый файл.
У меня есть участок кода, программа позволяет считать данные из файла лога logfile.txt этот файл лога создаёт программа generator.exe текстовый файл постоянно заполняется данными.
Участок кода
| Код |
procedure TForm1.Button1Click(Sender: TObject);
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 );
{$I-}
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.xls'); // DestST.SaveToFile('112.txt'); Вывод результата
SourceST.Free;
DestST.Free;
end;
|
Как сделать чтоб программа работала, а то сейчас программа работает только когда файл logfile.txt сохранён, а мне нужно чтоб считывались нужные данные при запущенной пр. generator.exe, как то это связано с FileStreamLog, Ни скажете как изменить код. |
)