Почкму при запуске через D7 нет ошибки, а при обычном запуске ест

← →
STK © (2006-01-18 20:43) [0]

Проблема вот в чём:
При запуске этого кода в потоке:
NetHandle := InternetOpen("Microsoft Internet Explorer 6.0", INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if nethandle <> nil then //Assigned(NetHandle) then for i:= 17 to 20 do FileName := "C:\Save\"+url+".abc"; url := "http://www.hlam.ru/"+url+".abc"; (*1*) UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0); if Assigned(UrlHandle) then begin // UrlHandle правильный? Начинаем загрузку // здесь идёт загрузка файла if UrlHandle <> nil then InternetCloseHandle(UrlHandle); UrlHandle := 0; Close(f); end else begin if InternetCloseHandle(UrlHandle) = False then showMessage("Closehandle(urlhandle) = False") else showMessage("Closehandle(urlhandle) = True"); // UrlHandle неправильный. Генерируем исключительную ситуацию. showMessage("Нет Урлы"); raise Exception.CreateFmt("Cannot open URL %s", [Url]); exit; end; end else begin showMessage("Нет сессии"); // NetHandle недопустимый. Генерируем исключительную ситуацию // raise Exception.Create("Unable to initialize Wininet"); // break; end; if NetHandle <> nil then InternetCloseHandle(NetHandle); // закрываем сессию
Проблема в том, что если нет инет соединения, т.е. комп не подключен к инету, то в точке (*1*) UrlHandel = nil. И при закрывании программы возникает ошибка 1400 "Неверный дескриптор окна", как я понимаю это хендел типа создался, но закрыться с открытым хендлом прога не может.
Может мне просто проверить на присутствие инета сейчас, на время скачивания. Но как же быть если инет пропадёт во время самого скачивания? Если не понятно могу пояснить.
Но если есть инет то всё скачивается замечательно, без проблем.

← →
STK © (2006-01-19 02:01) [1]

Да по ходу дела придётся самому тут ковырять.

Почкму при запуске через D7 нет ошибки, а при обычном запуске ест Найти похожие ветки