Форум: "Сети";
Текущий архив: 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.006 c