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

Вниз

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

← →
Pentium   (2003-04-08 18:21) [0]

Мне нужна прога, каторая нажатием кнопки узнавала подключён я к
Интернету или нет.Вообще какие компоненты надо использовать?
Заранее благодарю

---

← →
Карелин Артем   (2003-04-08 20:11) [1]

>Мне нужна прога, каторая нажатием кнопки узнавала подключён я к
Интернету или нет
Давай ящик пива - накатаю. За второй ящик я и исходник дам.

---

← →
Мазут Береговой   (2003-04-08 23:43) [2]

Проверяет подсоединение к интернету. Пиво - жаждущим (Карелину Артему)!

interface
uses
Windows, SysUtils, Registry, WinSock, WinInet;

type
TConnectionType = (ctNone, ctProxy, ctDialup);

function ConnectedToInternet : TConnectionType;
function RasConnectionCount : Integer;


implementation

//For RasConnectionCount =======================
const
cERROR_BUFFER_TOO_SMALL = 603;
cRAS_MaxEntryName = 256;
cRAS_MaxDeviceName = 128;
cRAS_MaxDeviceType = 16;
type
ERasError = class(Exception);

HRASConn = DWord;
PRASConn = ^TRASConn;
TRASConn = record
dwSize: DWORD;
rasConn: HRASConn;
szEntryName: Array[0..cRAS_MaxEntryName] Of Char;
szDeviceType : Array[0..cRAS_MaxDeviceType] Of Char;
szDeviceName : Array [0..cRAS_MaxDeviceName] of char;
end;

TRasEnumConnections =
function (RASConn: PrasConn; { buffer to receive Connections data }
var BufSize: DWord; { size in bytes of buffer }
var Connections: DWord { number of Connections written to buffer }
): LongInt; stdcall;
//End RasConnectionCount =======================


function ConnectedToInternet: TConnectionType;
var
Reg : TRegistry;
bUseProxy : Boolean;
UseProxy : LongWord;
begin
Result := ctNone;
Reg := TRegistry.Create;
with REG do
try
try
RootKey := HKEY_CURRENT_USER;
if OpenKey("\Software\Microsoft\Windows\CurrentVersion\Internet settings",False) then begin
//I just try to read it, and trap an exception
if GetDataType("ProxyEnable") = rdBinary then
ReadBinaryData("ProxyEnable", UseProxy, SizeOf(LongWord) )
else begin
bUseProxy := ReadBool("ProxyEnable");
if bUseProxy then
UseProxy := 1
else
UseProxy := 0;
end;
if (UseProxy <> 0) and ( ReadString("ProxyServer") <> "" ) then Result := ctProxy;
end;
except
//Obviously not connected through a proxy
end;
finally
Free;
end;

//We can check RasConnectionCount even if dialup networking is not installed
//simply because it will return 0 if the DLL is not found.
if Result = ctNone then begin
if RasConnectionCount > 0 then Result := ctDialup;
end;
end;

function RasConnectionCount : Integer;
var
RasDLL : HInst;
Conns : Array[1..4] of TRasConn;
RasEnums : TRasEnumConnections;
BufSize : DWord;
NumConns : DWord;
RasResult : Longint;
begin
Result := 0;

//Load the RAS DLL
RasDLL := LoadLibrary("rasapi32.dll");
if RasDLL = 0 then exit;

try
RasEnums := GetProcAddress(RasDLL,"RasEnumConnectionsA");
if @RasEnums = nil then
raise ERasError.Create("RasEnumConnectionsA not found in rasapi32.dll");

Conns[1].dwSize := Sizeof (Conns[1]);
BufSize := SizeOf(Conns);

RasResult := RasEnums(@Conns, BufSize, NumConns);

If (RasResult = 0) or (Result = cERROR_BUFFER_TOO_SMALL) then Result := NumConns;
finally
FreeLibrary(RasDLL);
end;
end;

---

← →
Aristarh   (2003-04-08 23:48) [3]

ping не пробовал?

>Карелин Артем © (08.04.03 20:11)

Ну ты и хапуга!!!

---

← →
Карелин Артем   (2003-04-09 07:44) [4]

>Мазут Береговой (08.04.03 23:43)
Это частный случай проверки подключения к инету.
2 all, asking this question:
В общем случае "подключение к инету" означает скорее всего доступность DNS-сервера и ip-адресов, которые он возвращает вместо названий хостов.
У меня на работе до провайдера 20 метров и кабель из локальной сети включен прямо в сервер провайдера, поэтому данная функция обломится.


Вот такие тараканы :)

---

← →
Barracuda   (2003-04-12 20:58) [5]

Есть такой хороший компонент InetDetector.

---

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

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

Наверх

Память: 0.46 MB
Время: 0.007 c