Показать сообщение отдельно
  #6  
Старый 08.02.2012, 22:58
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Код:
{$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.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием