Узнать, где открыт файл (Delphi)

[Quadro_O]

Собственно где-то в программе открыт файл, и при выполнении цикла (на 2ом круге) вылезает ошибка I/O Error 32 (не отправляйте меня использовать поиск, я знаю, что это за ошибка ), т.к. программа не может перезаписать этот файл.

Можно ли узнать, где он открыт??

я так понимаю надо его закрыть через Closefile, но если файл не указан в FileHandle, то как его можно закрыть другими способами?
Выкладывать код не буду (не хочу, чтобы стащили ), да и там около 400 строк и полный беспорядок.

Сам файл используется в 2ух функциях, сколько я не смотрел на них, не могу найти, где ошибко )

[raxp]

...а нам ваш 400-страничный код и не нужен ...ищите ошибку в той строке, где вы открыли файл

[Grag]

А для кого существует обработка исключительных ситуаций???

[Quadro_O]

400-строчный. Он выдаёт ошибку на строке ReWrite, но это из-за того, что файл открыт в программе и не может быть перезаписан
2 Grag: Кого ? Что?

[Quadro_O]

Вот код, который отправляет капчу для распознания. Судя по всему он и занимает файл.

function recognize(filename: string; apikey: string; is_phrase: boolean; is_regsense: boolean; is_numeric: boolean; min_len: integer; max_len: integer): string;
var
ftype,tmpstr,captcha_id: String;
i: integer;
http: TIdHTTP;
multi: Tidmultipartformdatastream;
begin
if FileExists(filename)=false then begin result:='ERROR: file not found'; exit; end;

ftype:='image/pjpeg';
if strpos(Pchar(filename),'jpg')<>nil then ftype:='image/pjpeg';
if strpos(Pchar(filename),'gif')<>nil then ftype:='image/gif';
if strpos(Pchar(filename),'png')<>nil then ftype:='image/png';

multi:=Tidmultipartformdatastream.Create;
multi.AddFormField('method','post');
multi.AddFormField('key',apikey);
multi.AddFile('file',filename,ftype);
if is_phrase=true then multi.AddFormField('phrase','1');
if is_regsense=true then multi.AddFormField('regsense','1');
if is_numeric=true then multi.AddFormField('numeric','1');
if min_len>0 then multi.AddFormField('min_len',inttostr(min_len));
if max_len>0 then multi.AddFormField('max_len',inttostr(max_len));

http:=TIdHTTP.Create(nil);
tmpstr:=http.Post('http://antigate.com/in.php',multi);
http.Free;
captcha_id:='';
if strpos(Pchar(tmpstr),'ERROR_')<>nil then begin result:=tmpstr; exit; end;
if strpos(Pchar(tmpstr),'OK|')<>nil then captcha_id:=AnsiReplaceStr(tmpstr,'OK|','');
if captcha_id='' then result:='ERROR: bad captcha id';
for i:=0 to 20 do
  begin
  Application.ProcessMessages;
  sleep(5000);
  http:=TIdHttp.Create(nil);
  tmpstr:=http.Get('http://antigate.com/res.php?key='+apikey+'&action=get&id='+captcha_id);
  http.Free;
  if strpos(Pchar(tmpstr),'ERROR_')<>nil then begin result:=tmpstr; exit; end;
  if strpos(Pchar(tmpstr),'OK|')<>nil then
    begin
    result:=AnsiReplaceStr(tmpstr,'OK|','');
    exit;
    end;
  Application.ProcessMessages;
  end;
result:='ERROR_TIMEOUT';
end;

2ая функция: скачивание капчи

function GetInetFile (const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: String;
begin
  Result:=False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession :=InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen)
      until BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
      InternetCloseHandle(hURL)
    end
  finally
    InternetCloseHandle(hSession)
  end
end;

[Grag]

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

2 Grag: Кого ? Что?

Обработка исключительных ситуаций

try 
........
finally
........
end;

try
.........
except
.........
end;

[Quadro_O]

Опять извини за тупой вопрос: как это поможет?)

[Terran]

как это поможет?)

Не будут вылетать ошибки.

[eoln]

Возможно во время repeat until ошибка возникает и программа сразу на finally идёт. Вот туда и надо закрытие файла прописать.

    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen)
      until BufferLen = 0;
      //CloseFile(f);
      Result:=True;
    finally
      CloseFile(f);
      InternetCloseHandle(hURL)
    end

[Quadro_O]

eoln не помогло