[Siropchik]

В этой процедуре программа зацикливается, реагирует на все кроме кнопки завершения . Есть подозрение что в цикле while not RenameFile(FlacName+'.wav',FlacName+'t.wav') do Application.ProcessMessages;
возможно по какой то причине фаил не создан
Подскажите пожалуйста как лучше решить и обойти эту проблему?
программа может проработать 1минуту , а может и 10 мин.

PHP код:

procedure SaveFlac(FlacName:string);
var
fw:file of byte;
i:integer;
hf: hwnd;
begin
    iniWav;  //инициализировать структуру Wave
    assignFile(fw,FlacName+'.wav'); 
    rewrite(fw);   
    blockWrite(fw,waveHdr,sizeOf(waveHdr)); //записать заголовок  wave
    blockWrite(fw,proc_buf[0],qz); 
    closeFile(fw);        
    while not RenameFile(FlacName+'.wav',FlacName+'t.wav') do Application.ProcessMessages;  

    ShellExecute(hf, 'open', 'flac.exe', PChar(' -F '+FlacName+'t.wav'), nil, SW_HIDE);
    while not RenameFile(FlacName+'t.flac',FlacName+'.flac') do Application.ProcessMessages;  

    DeleteFile(FlacName+'t.wav');
 end;
End; 


[Bargest]

Скорее всего в while. Например, если файл не найден. Или если он открыт другим процессом. Хотя в код особо не вчитывался.

[Siropchik]

Я перед циклом фаил создаю и записываю в него данные
А сам цикл нужен для того что бы подождать когда фаил освободится от других процессов, что бы потом можно было запустить преобразования файла в другой формат

[angvelem]

Посмотри использование ключа {$I+/-}

[Siropchik]

Честно говоря я не знаю что это за зверь, я не профессионал
я так понял это деректива , но где ее прописывать?

{$I+/-} - проверка результата ввода-вывода Если используется ключ {$1+}, при возникновении ошибки ввода-вывода программа прекращает работу. В случае ключа {$1-} при возникновении ошибки ввода-вывода программа не выбрасывается, а код ошибки можно получить с помощью функции IOResult. Ключ является локальным. По умолчанию используется ключ {$1+}. Эквивалент меню - Options|Compiler| I/O checking.

[angvelem]

Код:

{$I-}  
  assignFile(fw,FlacName+'.wav');  
  rewrite(fw);    
  if IOResult = 0 then
  begin
    blockWrite(fw,waveHdr,sizeOf(waveHdr)); //записать заголовок  wave 
    blockWrite(fw,proc_buf[0],qz);  
    closeFile(fw);
  end;
{$I+}  

А перед while, используй FileExists.

[Siropchik]

Сделал как написано , теперь подвисает сразу

[Siropchik]

А перед while, используй FileExists.

Сейчас попробую
Вот так пойдет
if not FileExists(FlacName+'.wav') then Exit;

[angvelem]

Вот и ищи где загвоздка.

[Siropchik]

Странно но все равно виснет
еще сделал проверку файла после ShellExecute
но все так же и виснет

[angvelem]

"Прошагать" пробовал?

[Siropchik]

Щас попробую

[Siropchik]

Выяснил что зависалово начинается в цикле после ShellExecute
хотя фаил создается на диск но не переименовывается
Прошагать не получается, даже на Break не реагирует

PHP код:

ShellExecute(hf, 'open', 'flac.exe', PChar(' -F '+FlacName+'t.wav'), nil, SW_HIDE); 
   if not FileExists(FlacName+'t.flac') then Exit;
    while not RenameFile(FlacName+'t.flac',FlacName+'.flac') do Application.ProcessMessages; 


[Siropchik]

получается здесь меня выкидывает из процедуры и по этому фаил не переименовывается

if not FileExists(FlacName+'t.flac') then Exit;

Закоментировал эту строчку, пока работает

[Siropchik]

Проработал 5 мин. и завис
Незнаю что туда кроме Sleep можно приткнуть
Сделал так:

ShellExecute(hf, 'open', 'flac.exe', PChar(' -F '+FlacName+'t.wav'), nil, SW_HIDE);
sleep(2000);

все работает и не виснет, но это колхоз
Посоветуйте решение