Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.01.2011, 02:05   #1
dolphin705
Форумчанин
 
Аватар для dolphin705
 
Регистрация: 02.08.2008
Сообщений: 213
Вопрос Зависание программы при отсутствии подключения

Здравствуйте

Пытаюсь прочитать конфиг из интернета

Код:
program _try;

uses
  windows,
  wininet;

var
 p : hinternet;
 h : hinternet;
 r : HINTERNET;
 Size,RSize : Cardinal;
 buffer : array[0..300] of char;
 bufLen,I : DWORD;

begin
 h:= InternetOpenA('iexplore',1,nil,nil,0);
 if h<> nil then
 p:= InternetConnectA(h,'******.narod.ru',INTERNET_DEFAULT_HTTP_PORT,'anonymous',nil,INTERNET_SERVICE_HTTP,0,0); //INTERNET_FLAG_PASSIVE
 if p<>nil then
 r:=HttpOpenRequestA(p,nil,'config.cfg',nil,nil,nil,INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD, 0);
 if r<>nil then
 if not HttpSendRequestA(r,nil,0,nil,0) then
 begin
    if r <> nil then InternetCloseHandle(r);
    if p <> nil then InternetCloseHandle(p);
    if h <> nil then InternetCloseHandle(h);
    exit;
  end;
   bufLen:=4;
   I:=0;
   if HttpQueryInfoA(r,HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER,@size,BufLen,I) then
   begin
     InternetReadFile(r,@Buffer,size,RSize);
     //ShowMessage(buffer);
     InternetCloseHandle(r);
     InternetCloseHandle(p);
     InternetCloseHandle(h);
   end;
end.
почему когда впн соединения нет (и соответственно нет соединения с интернет) но есть локалка то код доходит до HttpSendRequestA и программа зависает или находится как будто на процедуре слип??

Последний раз редактировалось dolphin705; 17.01.2011 в 02:10. Причина: код
dolphin705 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Зависание программы при выходе codermoder Работа с сетью в Delphi 6 18.12.2010 23:16
Зависание программы при попытки получения сообщения. Lokos Работа с сетью в Delphi 8 28.08.2010 12:29
Зависание программы. kardinal94 Общие вопросы Delphi 2 23.08.2010 17:36
Почему _kbhit возвращает TRUE при отсутствии нажатий? Catharsis Общие вопросы C/C++ 3 01.08.2010 17:40
Зависание программы при выполнении GET запроса iHikita Общие вопросы .NET 1 16.07.2010 00:20