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

Вниз

проверка соединения   Найти похожие ветки 

 
Jonis_84 ©   (2012-07-07 21:26) [0]

Доброго времени суток!!!Уважаемые мастера подскажите пожалуйста как проверить соединение с интернетом?


 
jonis_84 ©   (2012-07-07 21:35) [1]

пробовал так

...
if tcpClient1.LocalHostAddr <>"127.0.0.1" then begin
         idhttp1.Request.UserAgent:=("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0");
         edit2.text:=IdHTTP1.Get("http://automation.whatismyip.com/n09230945.asp");
...

не то(((


 
Dimka Maslov ©   (2012-07-07 22:13) [2]

В общем случае компьютеру далеко безразлично, есть интернет, частично есть или вообще нет. Сеть есть и она работает - хорошо, не работает - и так сойдёт. Можно, однако, послать dns-запрос на какой-нибудь внешний сервер и посмтореть на реакцию, но всё равно не факт что получиться.


 
DVM ©   (2012-07-07 22:15) [3]

для начала надо определиться с тем что такое связь с интернетом


 
DVM ©   (2012-07-07 22:15) [4]

для начала надо определиться с тем что такое связь с интернетом


 
jonis_84 ©   (2012-07-08 00:25) [5]

Я ещё далёк от сетей,требуется определить ip локальный и сетевой,оба определить могу,но ... если сети нет то лок ip:= 127.0.0.1 , если есть локальная сеть то лок ip **.**.***.*** сетевой соответственно определить нельзя - вылезает ошибка((( ,

if tcpClient1.LocalHostAddr <>"127.0.0.1" then begin // проверяю если ip изменился то сеть есть(только она локальная и может быть без доступа к интернету)

как быть?


 
jonis_84 ©   (2012-07-08 00:31) [6]

может проверить соединение с каким-нибудь общедоступным сервером google yandex? поможете ?


 
Германн ©   (2012-07-08 01:42) [7]


> jonis_84 ©   (08.07.12 00:31) [6]

Проверяй соединение с тем сервером, который нужен твоей программе. По результату попытки соединения уже и решай - есть интернет или его враги украли. :)


 
Anatoly Podgoretsky ©   (2012-07-08 07:22) [8]

> DVM  (07.07.2012 22:15:03)  [3]

Более интересно определиться с тем, что такое Интернет?


 
Dimka Maslov ©   (2012-07-08 11:18) [9]


> jonis_84 ©   (08.07.12 00:25) [5]


127.0.0.1 есть всегда. Кроме того, компьютер может иметь несколько сетевых интерфейсов с различными настройками и ip-адресами.


 
sniknik ©   (2012-07-08 11:19) [10]

> который нужен твоей программе.
+ по тому протоколу который нужен... без абстракций вида "интернет".

так к примеру ссылка в коде работает, типа интернет "есть"... а тоже самое с ssl https://automation.whatismyip.com/n09230945.asp раз, и внезапно нет... т.е. интернета нет?


 
brother ©   (2012-07-08 18:36) [11]

[10] намек на порты?


 
sniknik ©   (2012-07-08 19:15) [12]

> [10] намек на порты?
без намеков. порты конечно роль играют, и есть стандарты/общепринятые, но протокол протоколу рознь сам по себе, как русский с китайским не поймут друг друга. можешь проверить, указать рабочий порт...
https://automation.whatismyip.com:80/n09230945.asp



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

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

Наверх





Память: 0.47 MB
Время: 0.072 c
2-1332928600
ermine13
2012-03-28 13:56
2013.03.22
архиватор


15-1346212466
Al2017
2012-08-29 07:54
2013.03.22
Не выходит задать течение нескольких несвязанных труб


2-1338983806
iMain
2012-06-06 15:56
2013.03.22
Client WebService


10-1182237882
Strang
2007-06-19 11:24
2013.03.22
Add-In


15-1348777803
Юрий
2012-09-28 00:30
2013.03.22
С днем рождения ! 28 сентября 2012 пятница





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