WinInet в потоке - проблема при компиляции

[Ship_1]

Здравствуйте!
Получаю страницу... Этим способом...

    hInet := InternetOpen('My Agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if not Assigned(hInet) then
      raise Exception.Create('Ошибка при выполнении функции InternetOpen' + sLineBreak + SysErrorMessage(GetLastError));
    try
      hCon := InternetConnect(hInet, PWideChar('192.168.0.'+printer_nom), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
      if not Assigned(hCon) then
        raise Exception.Create('Ошибка при выполнении функции InternetConnect' + sLineBreak + SysErrorMessage(GetLastError));
      try
        if ochered then hReq := HttpOpenRequest(hCon, 'GET', 'pages/_jobusr.htm', HTTP_VERSION, nil, nil, INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_RELOAD, 0)
                   else hReq := HttpOpenRequest(hCon, 'GET', '', HTTP_VERSION, nil, nil, INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_RELOAD, 0);
        if not Assigned(hReq) then
          raise Exception.Create('Ошибка при выполнении функции HttpOpenRequest' + sLineBreak + SysErrorMessage(GetLastError));
        try
{          HttpSendRequest(hReq,'', 0, nil, 0);
          StatusSize := SizeOf(Status);
          Index := 0;
          HttpQueryInfo(hReq, HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE, @Status, StatusSize, Index);
          if Status <> HTTP_STATUS_OK then
            raise Exception.Create('Ошибка при выполнении функции HttpSendRequest' + sLineBreak + 'Статус: ' + IntToStr(Status) + sLineBreak + SysErrorMessage(GetLastError));
          posi := 1;
          b := 1;
          ResponseString := '';
          while b > 0 do begin
            if not InternetQueryDataAvailable( hReq, bytes, 0, 0 ) then
              raise Exception.Create('Ошибка при выполнении функции InternetQueryDataAvailable' + sLineBreak + SysErrorMessage(GetLastError));
            SetLength( ResponseString, Length(ResponseString) + bytes );
            InternetReadFile( hReq, @ResponseString[Posi], bytes, b );
            Inc(Posi, b);
          end;                                      }
        finally
          InternetCloseHandle(hReq);
        end;
      finally
        InternetCloseHandle(hCon);
      end;
    finally
      InternetCloseHandle(hInet);
    end;

Всё было енормально, пока я не попытался закинуть это в поток.
Если переношу фигурные скобки так, чтобы внутри комментариев оказалось

        try
        finally
          InternetCloseHandle(hReq);
        end;

(т.е. на строчку выше и на три строчки ниже), то код нормально компилируется и запускается. А в таком виде компилятор выдаёт ошибку "Отказано в доступе". Или "Процесс не может получить доступ к файлу, т.к. этот файл занят другим процессом" и удаляет exe'шник предыдущей компиляции.
На всякий случай: запуск потоков находится в нажатии кнопки, не при создании формы или запуске приложения.

[Ship_1]

Даже если просто оставить незакомментированными

   try
//
//
//
   finally
//
   end;

всё равно ошибка... Как это так?

[Ship_1]

Дальнейшие попытки понять что не нравится компилятору привели к следующему результату

    hInet := InternetOpen('My Agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if not Assigned(hInet) then
      raise Exception.Create('Ошибка при выполнении функции InternetOpen' + sLineBreak + SysErrorMessage(GetLastError));
    try
      hCon := InternetConnect(hInet, PWideChar('192.168.0.'+printer_nom), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
      if not Assigned(hCon) then
        raise Exception.Create('Ошибка при выполнении функции InternetConnect' + sLineBreak + SysErrorMessage(GetLastError));
      try
        if ochered then hReq := HttpOpenRequest(hCon, 'GET', 'pages/_jobusr.htm', HTTP_VERSION, nil, nil, INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_RELOAD, 0)
                   else hReq := HttpOpenRequest(hCon, 'GET', '', HTTP_VERSION, nil, nil, INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_RELOAD, 0);
        if not Assigned(hReq) then
          raise Exception.Create('Ошибка при выполнении функции HttpOpenRequest' + sLineBreak + SysErrorMessage(GetLastError));
//        try
//          HttpSendRequest(hReq,'', 0, nil, 0);
          StatusSize := SizeOf(Status);
          Index := 0;
          HttpQueryInfo(hReq, HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE, @Status, StatusSize, Index);
          if Status <> HTTP_STATUS_OK then
            raise Exception.Create('Ошибка при выполнении функции HttpSendRequest' + sLineBreak + 'Статус: ' + IntToStr(Status) + sLineBreak + SysErrorMessage(GetLastError));
          posi := 1;
          b := 1;
          ResponseString := '';
          while b > 0 do begin
            if not InternetQueryDataAvailable( hReq, bytes, 0, 0 ) then
              raise Exception.Create('Ошибка при выполнении функции InternetQueryDataAvailable' + sLineBreak + SysErrorMessage(GetLastError));
//            SetLength( ResponseString, Length(ResponseString) + bytes );
//            InternetReadFile( hReq, @ResponseString[Posi], bytes, b );
            Inc(Posi, b);
          end;
//        finally
//          InternetCloseHandle(hReq);
//        end;
      finally
        InternetCloseHandle(hCon);
      end;
    finally
      InternetCloseHandle(hInet);
    end;

Снятие комментариев с любой из этих строчек вызывает ошибку. В таком виде компилируется нормально.
Никто, что ль, не может помочь?..

[Аватар]

Антивирь какой?

[Ship_1]

Каспер с удалённым управлением от айтишников.
Но я до этого сделал версию программы без потоков - прекрасно работает. Теперь просто перенёс процедуру вызова этого кода в execute потока - и появились ошибки...

[Аватар]

Я бы попробовал без каспера откомпилировать. Возможно настройки его поменять в плане контроля программ. Наиболее вероятно из-за антивиря

[Ship_1]

Приостановил защиту. Действительно скомпилировалось... Что за фокусы?..
При запущенном Каспере уже скомпилированная программа тоже не хочет запускаться.
Но как же так? Та же самая программа, выполняющая те же самые действия без потоков запускается и работает нормально. Проверил на другой программке, в которой как-то криво в первый раз реализовал поток - нормально скомпилировалась.
А главное, как теперь быть? Ведь не здорово же сделать такую программу, которая может работать только с отключённым антивирусом...

[Аватар]

Ну у антивиря крыша едет )) У меня НОД32 как-то орал на почти пустой проект с одной формой. Каспером не пользуюсь, где-то в инете попадалось об изменении настроек у него в части контроля программ, естесно не помню каких )

[Ship_1]

Вот приколы-то )
И что, варианта только два теперь? Первый - всё время отключать антивирь, второй - забить на проект?

[Ship_1]

Мда... А в D7 нормально компилируется... (не компилируется в XE)