На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Проверить соединение с интернет
      Часто приложению, которое работает в интернете, требуется знать, подключён пользователь к интернету или нет. Предлагаю Вам довольно гибкое решение этого вопроса.

      Для работы Вам необходимо импортировать функцию InetIsOffline из URL.DLL:

      ExpandedWrap disabled
        Function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';


      а затем поместить в программу простой вызов функции для проверки статуса соединения:

      ExpandedWrap disabled
        IF InetIsOffline(0) then ShowMessage('This computer is not connected to Internet!') else
         ShowMessage(You are connected to Internet!');

      Эта функция возвращает TRUE если соединение с интернетов отсутствует, или FALSE если соединение установлено.

      Замечание:
      параметр Flag игнорируется, соответственно используем ноль.
      Эта DLL обычно проинсталлирована на большинстве компьютеров. Она также существует в Win98 либо поставляется с Internet Explorer 4 или выше, Office 97 и т.д..
      Более подробно можно прочитать в MSDN.

      Оригинал: http://msdn.microsoft.com/library/psdk/she...etIsOffline.htm
      Автор: Vitaly Zayko (zayko@vitsoftware.com)
      Источник: http://www.sources.ru/delphi/

      Комментарий от Ефремова Александра (aleks@vilgus.kamchatka.ru):

      Зашел на официальный сайт Microsoft по MSDN где черным по белому написано, что функция эта выдает false не только, когда комп подключен к интернету, но и когда ЕЩЕ НЕ БЫЛО ПОПЫТОК подключения (or if no attempt has yet been made to connect to the Internet). Ну и скажите мне теперь, какой у этой функции тогда смысл ? Да, умом Microsoft не понять (к сожалению). Помогите найти нормальный способ проверки подключения к инет (online).

      Merlin: самым нормальны, мне кажется, пинговать какой-то адрес в интернете, лучше два :) но это тоже связано с проблемой, что может запускаться установка связи, когда не надо.

      Комментарий от Dmitry Shkil (Mitya@bigmir.net) ShkilSoft

      ExpandedWrap disabled
        interface
         
        Uses  Windows;
         
        { Flags for InternetGetConnectedState }
         
        Const
          INTERNET_CONNECTION_MODEM      = 1;
          INTERNET_CONNECTION_LAN        = 2;
          INTERNET_CONNECTION_PROXY      = 4;
          INTERNET_CONNECTION_MODEM_BUSY = 8;
          winetdll = 'wininet.dll';
         
        Function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved: DWORD):BOOL; stdcall; external winetdll name 'InternetGetConnectedState';
         
        implementation
         
        Function InternetConnected: Boolean;
        Var dwConnectionTypes: DWORD;
        Begin
          dwConnectionTypes :=INTERNET_CONNECTION_MODEM +INTERNET_CONNECTION_LAN +INTRERNET_CONNECTION_PROXY;
          Result := InternetGetConnectedState(@dwConnectionTypes, 0);
        End;
         
        Хотя возможно через RAS API. Компоненты можно поискать на www.torry.net
         
        [i]Kondakov[/i]
        Я попробовал это на основе предложения Dmitriya Работает вроде. . Через Button  or Activate
         
        unit Unit1;
        interface
        uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
         
        Const IC_Modem=1;
                 IC_LAN= 2;
                 IC_PROXY=3;
                 IC_MODEM_BUSY=4;
                 winetdll='wininet.dll';
         
        Type Form1 = class(TForm)
                   Button1: TButton;
                   procedure CheckState(Sender: TObject);
         
        End;
         
        Var Form1: TForm1;
         
        implementation
         
        Function InternetGetConnectedState(lpdwFlags:LPDWORD; dwReserved: DWORD): BOOLEAN; stdcall; external winetdll name 'InternetGetConnectedState';
         
        {$R *.DFM}
         
        procedure TForm1.CheckState(Sender: TObject);
        Var dwConnectionTypes: DWORD;
        begin
         dwConnectionTypes:=IC_MODEM+IC_LAN+IC_PROXY;
         IF InternetGetConnectedState(@dwConnectionTypes,0) then ShowMessage('You are connected') else ShowMessage('No Connection');
        end;
         
        end.



      Комментарий от "Vladimir Artemov"
      Из MSDN:
      You cannot rely solely on the fact that InternetGetConnectedState returning TRUE means that you have a valid active Internet connection. It is impossible for InternetGetConnectedState to determine if the entire connection to the Internet is functioning without sending a request to a server. This is why you need to send a request to determine if you are really connected or not. You can be assured however that if InternetGetConnectedState returns TRUE, that attempting your connection will NOT cause you to be prompted to connect to the default Internet Service Provider.
      Ну не получится таким образом ДОСТОВЕРНО проверить! Надо либо подключаться, либо пинговать.

      Источник - FAQ сайта http://delphi.mastak.ru

      Тема - элемент ЧАВО. Подготовлена by © Song
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0153 ]   [ 17 queries used ]   [ Generated: 28.03.24, 15:07 GMT ]