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

Вниз

Internet   Найти похожие ветки 

 
Darlok   (2002-04-07 14:07) [0]

Не могёт ли всезнающий ALL ответить на такой вопрос:

Как я могу узнать юзается ли в текущий момент Internet на моей машине. Приэтом я могу соеденяться с Internetom ч-з момед или
Proxy.


 
Anatoly Podgoretsky   (2002-04-07 14:30) [1]

Посмотри статью на даннос сайте


 
Song   (2002-04-07 14:47) [2]

FAQ


 
Anatoly Podgoretsky   (2002-04-07 14:51) [3]

Song © (07.04.02 14:47)
Сначала статью, иначе пользы не будет


 
Song   (2002-04-07 15:13) [4]

Anatoly Podgoretsky © (07.04.02 14:51)
Знаете, что я заметил: многие люди, вместо того, чтобы учиться, предпочитают лучше спрашивать программистов, чем что-то постигать самому. А FAQ и статьи почему-то не любят, лично я несколько десятков раз давал линки на те или иные решения в FAQ"е. Некоторые объясняют это сложностью поиска там. Может просто не хватает аналитичности для поиска того или иного решения, я имею ввиду аналитичности ума для придумывания ключей поиска.


 
Anatoly Podgoretsky   (2002-04-07 15:20) [5]

Ну какой аналитизм нужен в данном случае, просто желание воспользоваться выложенной не блюдечки информацией.
А послал я его к ствтье по той причине, что он видимо плохо представляет, что такое Интернет и как оно соежиняется.


 
Biorobot   (2002-04-07 19:09) [6]

Тебе следует узнать какой в данный момент IP
Потом взятьь первые его 3 цифры, и если они не 127(Локальный IP)
То интернет юзается в ланный момент.

Определение IP

Uses Winsock; //Незабудь написать юзес винсок

var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
showmessage(inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
end;


 
Song   (2002-04-07 20:37) [7]

Нашему всезнающему Biorobot © (07.04.02 19:09)"у:
Вообще-то local host это 127.0.0.1
а, не 127.127.127.* как Вы сказали


 
Biorobot   (2002-04-07 21:03) [8]

Я сказал ПЕРВЫЕ три цифры!!


 
Doom   (2002-04-07 21:12) [9]

2 Biorobot © (07.04.02 21:03)
Самый простой способ который я узнал при раскапывавнии ФАКов и статей - это ваш вышеприведенный. А насколько он правильный?


 
Anatoly Podgoretsky   (2002-04-07 21:18) [10]

Совсем не имеет отношения к Интернету


 
Doom   (2002-04-07 21:23) [11]

Я тоже так подумал иначе зачем столько статей написано по этому поводу?


 
Dimaond Cat   (2002-04-08 00:28) [12]

unit Unit1;

interface

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


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

var
Form1: TForm1;

function InternetGetConnectedStateEx(lpdwFlags: LPDWORD;
lpszConnectionName: LPTSTR;
dwNameLen: DWORD;
dwReserved: DWORD): BOOL; stdcall;
function InternetGetConnectedStateEx; external "wininet.dll" name
"InternetGetConnectedStateEx";

implementation

{$R *.DFM}

Function GetVerOS: Integer;
Var
OSVer: OSVERSIONINFO;
begin
OSVer.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
GetVersionEx(OSVer);
Result := OSVer.dwPlatformId;
end;

function InternetConnected: Boolean;
Const
INTERNET_CONNECTION_MODEM = 1; // local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_LAN = 2; // local system uses a local area network to connect to the Internet.
INTERNET_CONNECTION_PROXY = 4; // local system uses a proxy server to сonnect to the Internet.
INTERNET_CONNECTION_MODEM_BUSY = 8; // local system"s modem is busy with a non-Internet connection.
Var
dwConnectionTypes : LongWord;
dwFlags: LongWord;
lpszConnectionName: PChar;
dwNameLen: DWORD;
dwReserved: DWORD;
begin
GetMem(lpszConnectionName,128);
StrCopy(lpszConnectionName,PChar("ГТС"));

dwNameLen := 120;
dwReserved := 0;
Result := False;
Case GetVerOS Of
VER_PLATFORM_WIN32s: // Win95
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes,0);
end;
VER_PLATFORM_WIN32_WINDOWS: // Win98 OSR1
begin
dwFlags := 0;
Result :=
InternetGetConnectedStateEx(@dwFlags,lpszConnectionName,dwNameLen,dwReserved
);
If (dwFlags And INTERNET_CONNECTION_MODEM) = 0 Then
Result := False;
end;
VER_PLATFORM_WIN32_NT: // WinNT
begin

end;
end;
FreeMem(lpszConnectionName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If InternetConnected Then
Button1.Caption := "Connected";
end;


end.





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

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

Наверх




Память: 0.48 MB
Время: 0.006 c
4-31052
zondor
2002-04-09 12:02
2002.06.10
WIN-API ( rabota s 4uzimi oknami)


4-31055
Even
2002-04-08 09:42
2002.06.10
Как обойтись без TJpegImage


4-31049
CrazyTemo
2002-04-09 10:33
2002.06.10
processor frequency


1-30838
Aleksandr
2002-05-28 14:16
2002.06.10
Можно ли воспользоваться WaitForSingleObject таким образом?


1-30860
Arhangel
2002-05-29 15:59
2002.06.10
Toolbar?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский