Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> inetisoffline, Есть ли соединение с интернетом? 
:(
    Опции темы
kuzyara
Дата 19.1.2007, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 13.11.2006

Репутация: нет
Всего: 1



1)
обявляю я функцию 
Цитата

function inetisoffline(flag: integer): boolean; stdcall; external 'url.dll';

, использую:
Цитата

if InetIsOffline(0) then ShowMessage('This computer is not connected to Internet!')
          else ShowMessage('You are connected to Internet!');


а он мне говорит, что не найдена точка входа там какая-то!(см рис в архиве)
url.dll тоже в архиве...
 взято из drkb: Работа с сетью, интернетом, протоколами->Работа с интернетом->Соединение с интернетом->Есть ли соединение с интернетом?


2)
И еще, объявляю функцию, 
Цитата

function InternetCheckConnection(lpszUrl: PAnsiChar; dwFlags: DWORD; dwReserved: DWORD): BOOL; stdcall;
но что-то не так(см рис в архиве)
если мона, то скажите как её употреблять(пример использования)
 взято из drkb: Работа с сетью, интернетом, протоколами->Работа с интернетом->Использование интернет-функций WIN32 API

3) 
и ещё раз ещё: использую 
Цитата

if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
    ShowMessage('Computer is attached to a network!')
  else
    ShowMessage('Computer is not attached to a network!');
     а он мне все время говорит, что комп в инете! даже когда я отключен!

взято из drkb: Работа с сетью, интернетом, протоколами-> общие вопросы работы в сети->Как узнать, подключен ли комп к сети?






БЛИН, ТРИ СПОСОБА --- И ВСЕ НЕ РАБОТАЮТ!!!   smile 
да-а-а... smile  drkb явно надо подправить... smile  smile 

Это сообщение отредактировал(а) kuzyara - 19.1.2007, 15:52

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  ggg.rar 55,01 Kb
--------------------
подпись
PM MAIL   Вверх
aktuba
Дата 19.1.2007, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38



А в url.dll такая функция вообще есть?


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Rodman
Дата 19.1.2007, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122



kuzyara, если url.dll твоя то кинь ее в ту директорию где и прога, а если системная то в папку BIN
PM MAIL WWW Skype GTalk YIM MSN   Вверх
CatATonik
Дата 19.1.2007, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8



function InetIsOffline(flag: integer): WordBool; stdcall; external 'url.dll';

function InternetCheckConnection(lpszUrl: PAnsiChar; dwFlags: DWORD; dwReserved: DWORD): BOOL; stdcall; external;
PM MAIL   Вверх
kuzyara
Дата 19.1.2007, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 13.11.2006

Репутация: нет
Всего: 1



CatATonik, спасибо, что подправил(строка "function InetIsOffline(flag: integer): WordBool; stdcall; external 'url.dll';" рулит), 
НО: функция InetIsOffline (кстати, и GetSystemMetrics тоже!) все время говорит, что соединеие есть,  
Хотя я уже отключен!


а сторока 
Цитата

function InternetCheckConnection(lpszUrl: PAnsiChar; dwFlags: DWORD; dwReserved: DWORD): BOOL; stdcall; external;
 все равно не нДравится делфи!

Это сообщение отредактировал(а) kuzyara - 19.1.2007, 16:26
--------------------
подпись
PM MAIL   Вверх
CatATonik
Дата 19.1.2007, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8



function InternetCheckConnection(lpszUrl: PAnsiChar; dwFlags: DWORD; dwReserved: DWORD): BOOL; stdcall; external 'wininet.dll'  name 'InternetCheckConnectionA';

Это сообщение отредактировал(а) CatATonik - 19.1.2007, 16:48
PM MAIL   Вверх
kuzyara
Дата 19.1.2007, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 13.11.2006

Репутация: нет
Всего: 1



CatATonik, строка 
Цитата

function InternetCheckConnection(lpszUrl: PAnsiChar; dwFlags: DWORD; dwReserved: DWORD): BOOL; stdcall; external 'wininet.dll'  name 'InternetCheckConnectionA';
рулит!!!!   



Люди,  smile я предлагаю вам "свой" "проект" smile  в котором можно всякими способами узнать, есть ли соединение с интернетом. пока НЕ работает НИ один способ, но вы помогите smile , вместе доработаем и разберемся...   И БУДЕТ ПРОЕКТ ПО СОЕДИНЕНИЮ С ИНТЕРНЕТОМ, КАК RESWORK.ZIP У LENIN INC. если конечно такого есчо нет smile 

а как насчет переименовать тему соответствующе?? вам модераторы.

Это сообщение отредактировал(а) kuzyara - 20.1.2007, 08:26

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  V_INETE_LI.rar 7,16 Kb
--------------------
подпись
PM MAIL   Вверх
Snowy
Дата 19.1.2007, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Цитата(CatATonik @  19.1.2007,  16:42 Найти цитируемый пост)
function InternetCheckConnection(lpszUrl: PAnsiChar; dwFlags: DWORD; dwReserved: DWORD): BOOL; stdcall; external 'wininet.dll'  name 'InternetCheckConnectionA';
К чему это?
Код
uses WinInet;
 и всё smile

Цитата(kuzyara @  19.1.2007,  17:01 Найти цитируемый пост)
юди,   я предлагаю вам свой "проект"   в котором можно всякими способами узнать, есть ли соединение с интернетом. пока НЕ работает НИ один способ, но вы помогите  , вместе доработаем и разберемся...
А я знаю 20 способов, как заработать миллион долларов.
Правда пока ни одного не заработал, но если дадите мне денег, то может со временем и миллион наберётся, а то и все 20 smile
PM MAIL   Вверх
kuzyara
Дата 20.1.2007, 08:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 13.11.2006

Репутация: нет
Всего: 1



и все-таки, кто-нибудь может мне сказать, почему ни одна функция не говорит правду??????????????????    или предложите какой-нибудь другой способ.

Это сообщение отредактировал(а) kuzyara - 20.1.2007, 15:59
--------------------
подпись
PM MAIL   Вверх
VICTAR
Дата 20.1.2007, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80



kuzyara, в Drkb же есть примеры, например этот

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  InternetCheck.rar 4,29 Kb
PM MAIL   Вверх
Злоумышленник
Дата 20.1.2007, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 3.9.2006

Репутация: -1
Всего: -3



Все способы, представленные в DRKB насчёт проверки доступности Инета, НЕ РАБОТАЮТ.
PM   Вверх
Snowy
Дата 20.1.2007, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



InternetCheckConnection работает smile
PM MAIL   Вверх
kuzyara
Дата 20.1.2007, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 13.11.2006

Репутация: нет
Всего: 1



Код

procedure TForm1.Button1Click(Sender: TObject);
begin

     if InternetCheckConnection(nil,$00000001,0)
       then showmessage('est inet')
       else showmessage('net ineta');

end;


Усе время выдает что соединения нет!!!! (Также как inetisoffline - что все  время есть!!!)

тем более в drkb по поводу этой функции написано, что она все время выдаёт false:
drkb: Работа с сетью, интернетом, протоколами->Работа с интернетом->Использование интернет-функций WIN32 API

Это сообщение отредактировал(а) kuzyara - 20.1.2007, 15:42
--------------------
подпись
PM MAIL   Вверх
Snowy
Дата 20.1.2007, 23:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Код
if InternetCheckConnection('http://www.ya.ru/', 1, 0) then

PM MAIL   Вверх
Злоумышленник
Дата 21.1.2007, 00:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 3.9.2006

Репутация: -1
Всего: -3



Snowy, 
Цитата(Snowy @  20.1.2007,  23:53 Найти цитируемый пост)
код Pascal/Delphi1:if InternetCheckConnection('http://www.ya.ru/', 1, 0) then
, так доступность адреса или инета?

PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0589 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.