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

Вниз

В чём ошибка... :-(   Найти похожие ветки 

← →
SemFLY   (2002-10-05 22:22) [0]

Проверяю таким способом подключён ли комп к интернету :

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

implementation

function InternetConnected: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

// тут крутим таймер для проверки connect"а
procedure TForm1.Timer2Timer(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
if InternetGetConnectedState(@dwConnectionTypes,0) then
begin
If (dwConnectionTypes and INTERNET_CONNECTION_MODEM) = 1 then
begin
StatBar.SimpleText := "";
StatBar.SimpleText := "Connect to Internet !";
Timer2.Enabled := False;
Timer4.Enabled := True;
end
end;
end;

// тут крутим таймер для проверки disconnect"а
procedure TForm1.Timer4Timer(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
if InternetGetConnectedState(@dwConnectionTypes,0) = False then
begin
If (dwConnectionTypes and INTERNET_CONNECTION_MODEM) = 1 then
begin
StatBar.SimpleText := "";
StatBar.SimpleText := "Disconnect from Internet !";
Timer4.Enabled := False;
Timer2.Enabled := True;
end
end;
end;
- - - - - - - - - - - - -

Всё бы хорошо, но посему-то работает это не стабильно, а именно момент соединения всегда определяется, а вот момент разъединения иногда определяеться иногда нет.
Почему так происходит ?

- - - - - -
Спасибо ! ;)

---

← →
SemFLY   (2002-10-06 11:49) [1]

...

---

← →
Wonder   (2002-10-06 14:35) [2]

http://www.delphi.mastak.ru/articles/connect-inet.html

---

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

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

Наверх

Память: 0.44 MB
Время: 0.013 c