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