Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Вниз

Подключение к интернет.   Найти похожие ветки 

 
Anar   (2002-02-27 14:01) [0]

Как определить, что в настоящее время PC подключен к интернет или нет?


 
Wonder   (2002-02-27 15:41) [1]

Я пошел выбрасываться из окна...


 
KvORubin   (2002-02-27 17:14) [2]

Воткни Button1 и

unit Unit1;

interface

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

const IC_Modem=1;
IC_LAN= 2;
IC_PROXY=3;
IC_MODEM_BUSY=4;
winetdll="wininet.dll";

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
function InternetGetConnectedState(lpdwFlags:LPDWORD; dwReserved: DWORD): BOOLEAN; stdcall; external winetdll name"InternetGetConnectedState";

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=IC_MODEM+IC_LAN+IC_PROXY;
if InternetGetConnectedState(@dwConnectionTypes,0) then ShowMessage("Youa connected")
else ShowMessage("No Connection");
end;

end.


 
Ghost.   (2002-02-27 17:40) [3]

Это уже не смешно...


 
Olivka   (2002-02-27 18:34) [4]

Никогда делать это не приходилось, но по-моему, в каждом ФАКе это есть.


 
Reindeer Moss Eater   (2002-02-27 19:07) [5]

> Olivka
Вопрос, в том виде в каком он задан, не имеет правильного ответа.


 
lipskiy   (2002-02-27 20:57) [6]

Между прочим очень многие предлагаемые варианты работают криво или не на всех ОСах. Поэтому и вопросы часто эти возникают. IMHO самое надежное - делать проверку на доступность какого-либо URL, того же www.microsoft.com :)


 
panov   (2002-02-28 06:36) [7]

делать проверку на доступность какого-либо URL

Не какого-нибудь, а конкретно - ближайший сервер провайдера.


 
lipskiy   (2002-02-28 20:52) [8]


> ближайший сервер провайдера

А если это прога не для себя, а для вообще, то как узнать сервер провайдера?


 
Reindeer Moss Eater   (2002-03-01 09:07) [9]

Чтобы ответить на поставленный вопрос с помощью кода на Delphi, для начала неплохо бы ответить на простые вопросы без использования компьютера:
1. Сидит Вася в компьютерном классе и читает эту конференцию через "чистый" HTTP прокси. Подключен он к интернету?
2. Петя позвонил модемом к своему провайдеру и деньги за диалап уже капают, но ближайший маршрутизатор в дауне и Петя может ходить только по "домашней" сети провайдера. Есть у Пети интернет?
3. И так далее ...


 
lipskiy   (2002-03-01 20:03) [10]

IMHO:
1 - да.
2 - да.
3 - всегда, когда есть потенциальная возможность (при благоприятных независящих условиях) получить любые ресурсы из интернета - надо считать, что подключение есть.
Поэтому и предлагается делать проверку URLа.


 
Reindeer Moss Eater   (2002-03-02 13:47) [11]

> lipskiy
Это скорее ответы на вопрос "Доступны ли мне ресурсы WWW ?". Но интернет это далеко не только WWW.
А вопрос поставлен именно так "Есть интернет или нет?"

Проверку URL по какому из многочисленных возможных протоколов вы предлагаете делать?

И как объяснить Васе, имеющему интерет, почему же у него не работает ftp, или почему он не может пингвать www.delphi.mastak.ru


 
lipskiy   (2002-03-02 18:45) [12]

To Reindeer Moss Eater
Кхм... Согласен, конечно.
Для этого действительно нужно подходить к проблеме с четким определением - что-же именно нужно проверять. Просто чаще всего требуется простейший вариант - доступность именно WWW.



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.005 c
4-50158
Юля_Орлова
2002-03-14 12:29
2002.05.16
архивация в ходе работы программы


4-50178
alexproger
2002-03-03 01:21
2002.05.16
Как узнать количество страниц, печатаемых на принтере


3-49817
VAleksey
2002-04-18 09:24
2002.05.16
Database1.DataSets


14-50096
Yuraz
2002-04-06 11:01
2002.05.16
Как доустановить Delphi5


3-49870
Gamar
2002-04-19 17:08
2002.05.16
Сумма по ВЫЧИСЛЯЕМОМУ полю





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский