Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  05:00[Войти] | [Зарегистрироваться]
Ответ на вопрос № 40790

15-03-2006 09:25
Для того чтоб проверить есть ли подключение к интернету я использую вот этот код:


function GetConnect(var strKind: string): Boolean;
var
  flags: DWORD;
begin
  strKind := '';
  Result := InternetGetConnectedState(@flags, 0);
  if Result then
  begin
    if (flags and 1) = 1 then strKind := 'Modem';
    if (flags and 2) = 2 then strKind := 'LAN';
    if (flags and 4) = 4 then strKind := 'Proxy';
    if (flags and 8) = 8 then strKind := 'Modem Busy';
  end;
end;

if GetConnect(strKind)and(strkind='Modem') then
begin
ShowMessage('есть');
else
ShowMessage('нету');
end;


Оно безупречно работает когда выходиш под обычным модемом. Но когда через ADSL то нет! Что делать??? Как исправить? Может константы другие поставить? Или как?
---------------------------------------
Заранее всем спасибо!

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

27-09-2007 04:51 | Комментарий к предыдущим ответам
Я фигею дорогие товарищи... Вы что действительно считаете, что поменяв имя у винапишной константы (что само по себе преступление) ваш код стал волшебным образом определять ADSL-подключение?
У вас это работает только потому что используется USB-модем, с которым система работает аналогично обычным Dial-Up модемам, а если стоит сетевой (Ethernet) модем, то никакого "ADSL" вы не получите.

27-09-2007 04:21
Ребята, я не знаю, что вы там делали, и почему не получалось, но у меня ВЫШЛО!
(работает с adsl!)
  >>if (flags and 1) = 1 then strKind := 'Modem';

для adsl нужно писать не modem а adsl!
но я переделывал немного другой вариант этого метода:

(извиняюсь, что выложил весь код, но мало ли, может кто-то забудет что-нибудь вписать...
и станет орать, что не работает...)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, QClipbrd;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function IsConnectedToInternet(lpdwFlags: LPDWORD): Boolean;
const
  WininetDLL = 'wininet.dll';
var
  hWininetDLL: THandle;
  dwReserved: DWORD;
  fn_InternetGetConnectedState: function(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall;
begin
  Result := False;
  dwReserved := 0;
  hWininetDLL := LoadLibrary(WininetDLL);
  if hWininetDLL > 0 then
  begin
    @fn_InternetGetConnectedState := GetProcAddress(hWininetDLL,'InternetGetConnectedState');
    if Assigned(fn_InternetGetConnectedState) then
    begin
      Result := fn_InternetGetConnectedState(lpdwFlags, dwReserved);
    end;
    FreeLibrary(hWininetDLL);
  end else
    raise Exception.Create('Unable to locate function InternetGetConnectedState in library ' + WininetDLL);

end;




procedure TForm1.Timer1Timer(Sender: TObject);
const
  INTERNET_CONNECTION_ADSL = 1;    //вот заменённый MODEM
  INTERNET_CONNECTION_LAN = 2;
  INTERNET_CONNECTION_PROXY = 4;
  INTERNET_CONNECTION_MODEM_BUSY = 8;
var
  dwConnectionTypes: DWORD;
begin
        clipboard.Clear;
  dwConnectionTypes :=
    INTERNET_CONNECTION_ADSL +      //и здесь
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if IsConnectedToInternet(@dwConnectionTypes) then
      begin
        edit1.text:='connected';
        edit1.SelectAll;
        edit1.CopyToClipboard;

      end
  else
  edit1.Text:='disconnected';
  edit1.SelectAll;
  edit1.CopyToClipboard;
  end;

end.

21-05-2006 13:22 | Вопрос к автору: запрос дополнительной информации
Если я вышел через модем на демо-подключение (доступен только информационный и FTP сервер моего провайдера), то это  -"подключен к интернету" или нет?

15-03-2006 10:06
Вот тут обсуждалось:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=37784
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=39170
Если коротко: никак, так как нет такого понятия "подключен к интернету".
Можно пинговать (не обязательно по ICMP) некий сайт, например proxy или dns сервера своего провайдера, обычно если они не отвечают, то инета нет.
И встречный вопрос: зачем вам это надо?

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Жили у бабуси два веселых гуся. Один белый, другой КАКОЙ?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования