Ошибка при открытии диалога чтения файла.

[Illusiony]

Имеется програмка. Она по таймеру открывает текстовый файл считывает данные и закрывает его и так по циклу( таймеру) периодически.

При открытии диалога открытия файла( компонент OpenDialog открываю файл) во время действия таймера у меня не читается файл ( выдает что файла нету).

Если таймер приостанавливаю потом открываю файл то ошибки нету. Но как только таймер опять запуская опять ошибка не видит файла.

По логике понятно что почему то не может одновременно открывать 2 файла. Но суть в том что и по очереди тоже не может в конце концов.
Т.е. если остановил таймер OpenDialog прочитал другой файл, потом таймер врубая и ошибка эта. Такое ощущение , что после чтения файла компонентом OpenDialog файл остается открытым и недает читать другие файлы.

Возможно необходимо как то вручную еще закрывать файл в этом компоненте?( OpenDialog)

[NetSpace]

для примера, пока есть ассоциация переменной F на один файл, то привязать переменную F к другому файлу будет невозможно.

var F:File;
begin
   AssignFile(F,'Name.txt');
   Reset(F,1);
   //тут чего-то творим
   CloseFile(F);
end;

делай так:

var F1,F2:File;
begin
   AssignFile(F1,'Name1.txt');
   Reset(F1,1);
   AssignFile(F2,'Name2.txt');
   Reset(F2,1);
   //тут делаем что нам надо
   CloseFile(F2);
   CloseFile(F1);
end;

а то, что файл вообще существует - проверяй функцией

 if (FileExist(путь+имя)=True) then...

а вообще, я OpenDialog'ом открыаю файлы так:

//----- открываем файл ---------------------------------------------------------
procedure TForm1.N2Click(Sender:TObject);
var ps:Integer;
begin
   OpenDialog1.Filter:='Музыкальные файлы|*.mp3|Все файлы|*.*';
   OpenDialog1.InitialDir:='C:\Documents and Settings\'+us+'\Мои документы';
   if OpenDialog1.Execute and FileExists(OpenDialog1.FileName)then
   begin
      sps[1]:=OpenDialog1.FileName;//запоминаю первое имя - очень мне нужно, вам - не знаю
      FileName:=OpenDialog1.FileName;//полное имя с путём и расширением
      Put:=ExtractFilePath(Opendialog1.FileName);
      //тут делаю что мне надо   
   end;
end;

и никаких ошибок ни разу не выдавало за 11 лет использования этого компонента

[Illusiony]

Во второй форме мною не было функций окрывания файлов, тем более с переменной f ( именно она используется при открывании по таймеру). Может быть сам компонент OpenDialog при открытии присваивает именно этой переменной. Но они же еще в разных функциях и в разных формах к тому же.
Суть в том что вы подумали что я так же открываю второй файл. Но я открываю его через OpenDialog , а в нем не указывается переменная файла. Вот собственно как получается.
для уверенности поменял на ff, разницы никакой.

[NetSpace]

а попробуй-ка через такой OpenDialog открыть свои файлы. тут полный проект.

program Project1;
uses Windows,SysUtils,CommDlg;

{$R *.RES}
var s:string;
    fn:array[0..256]of Char;
    ofn:tagOFN;

begin
   s:=ParamStr(1);
   if(s='')then
   begin
      FillChar(ofn,sizeof(ofn),0);
      ofn.lStructSize:=sizeof(ofn);
      ofn.hInstance:=hInstance;
      ofn.lpstrFilter:='Все файлы'+#0+'*.*';
      ofn.lpstrInitialDir:=PChar(GetCurrentDir);
      ofn.lpstrTitle:='Открыть файл';
      ofn.Flags:=OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST;
      ofn.lpstrFile:=fn;
      ofn.nMaxFile:=256;
      GetOpenFileName(ofn);
      s:=fn;
   end;
  if(s<>'')then MessageBox(0,PChar(s),'',0);
end.

эту функцию можно применить в проектах с другими формами - она минимальная и удобна.
переменная s в конце процедуры как раз содержит в себе имя файла

[Illusiony]

Открывал вашей последней программой первый раз нормльно. Запустил второй раз delphi 7 так подвис что даже диспетчер не давал запустить, но при этом окнами другими управлять можно было.

if (FileExist(путь+имя)=True) then...

я как раз и использую толко вот так

if FileExists('../output_log.txt') then begin
 end
  else begin
  ShowMessage('Лог файла:output_log.txt не существует. Воспользуйтесь пунктом Faq п.ХХ'); // если лог файла НЕ существует
  Application.Terminate;// Закрываем программу принудительно
  end;

[Stilet]

Запустил второй раз delphi 7 так подвис что даже диспетчер не давал запустить

Это распространенная проблема GetOpenFileName().
На форумах говорят что это из-за иконок. Мол эксплорер не может нормально обработать ресурсы какого-то файла и начинает паниковать. Много раз попадался на это проблему решил сменой InitialDir в другой каталог.

[Illusiony]

А чем собственно ваш способ (NetSpace) отличается от стандартного компонента?
В чем может быть ошибка у меня?

Я читаю так:

with dlgOpen1, mmo6 do   // Delphi-manual.ru/les7end.php
if Execute then begin
//AssignFile(f,);
//InitialDir:=GetCurrentDir;
Lines.LoadFromFile(FileName);
end;
St:=mmo6.Lines.Text;//

Но что то мне подсказывает что я сдесь напорол.

[Аватар]

Ни чего не понял. В таймере OpenDialog вызываете? Или просто открываете и читаете файл? Да, и OpenDialog ничего не открывает, а просто возвращает имя выбранного файла.

При открытии диалога открытия файла( компонент OpenDialog открываю файл) во время действия таймера у меня не читается файл

Эта фраза требует расшифровки, лучше кодом, а то на словах получается что-то вроде расстояния в амперах

[northener]

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

При открытии диалога открытия файла( компонент OpenDialog открываю файл) во время действия таймера у меня не читается файл ( выдает что файла нету).

Так и "выдает что файла нету"? Или это твой вольный пересказ выданного тебе на малознакомом языке сообщения?
P.S. Учти что если файл уже кем-то/чем-то открыт, то его либо вообще нельзя открыть в другой программе, либо можно открыть только на чтение. И тут важно точно знать как та самая программа, которая открывает файл по таймеру, его открывает.

[hooko]

Вставь обработку исключений.