IO error 32, при загрузке файла с сервера

[Yurchik]

Всем доброго времени суток!

Столкнулся с небольшой проблемкой, не пойму в чем дело. Ниже код проги которая висит в процессах и по интервалу скачивает через функцию GetInetFile файл с сервера, функция работает в других приложениях, а когда запускаю это то на строке Rewrite(f,1) вылетает IO error 32. Подскажите пожалуйста что не так?

program Project1;

uses
  wininet, windows, Messages, sysutils, forms;

const FileOnNet='www*';
const LocalFileName='C:\WINDOWS\file.txt';

var msg : TMsg;
      t : Text;
      s : String;

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
  
   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;

begin
  while GetMessage(msg, HInstance, 0, 0) do
    begin
      TranslateMessage(msg);
      DispatchMessage(msg);
      sleep(20000);
      if GetInetFile(FileOnNet,LocalFileName)=true then
        begin
          AssignFile(t,'C:\WINDOWS\file.txt');
          {$I-}
          Reset(t);
          {$I+}
          if IOResult=0  then
            begin
              ReadLn(t,s);
              if s='1459' then
              showmessage('sadf');
            end;

    end;
  end;


end.

[veniside]

> не пойму в чем дело

походу не закрыт хендл файла в главном теле программы

[FaTaL]

Скорее всего Ваш файл занят чем то. Или нет доступа писать в этот файл.

[Yurchik]

Я тоже так подумал, но я не профи, и не знаю что такое хэндл, может кто-нибудь подскажет как исправить?

[FaTaL]

Ты передаёшь в функцию для скачки const FileOnNet='www*';
И что за файл он должен качать с такого адреса?
И второе, может у тебя нет прав писать этот файл с инета сюда LocalFileName='C:\WINDOWS\file.txt' ;?

[Yurchik]

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

Ты передаёшь в функцию для скачки const FileOnNet='www*';
И что за файл он должен качать с такого адреса?

Это просто здесь я написал, в коде нормальный адрес.

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

И второе, может у тебя нет прав писать этот файл с инета сюда LocalFileName='C:\WINDOWS\file.txt' ;?

Файл нормально скачивается, и данные в нем на месте. Но ошибка вылетает.

[FaTaL]

Скинь бинарник, у себя попробую запустить.

[Yurchik]

Вроде разобрался, трабла была в том что в теле программы файл открывался но не закрывался, и соответственно в функции GetInetFile возникала ошибка доступа, т.к. файл был открыт. Добавил строку CloseFile(t) и все. Спасибо.