helpf.pro
Регистрация

v8: Интернет из 1С

FeliceYa
26.06.2012 18:05Прочитано: 3078
Как проверить соединение с интернетом из 1С v8.1 ????
Изменено 29.06.12 09:28:09
Yandex
Возможно, вас также заинтересует
Реклама на портале
E_Migachev
27.06.2012 12:50Ответ № 1
(0) FeliceYa, да через любое обращение к интернету, например Выполнение HTTP запроса и сохранение результата в файл
FeliceYa
29.06.2012 09:23Ответ № 2
(1) E_Migachev, Пробовала - для моих задач не подошло.... *08

Но на другом форуме мне подсказали интересное и простое решение - ping-ги....
Код 1C v 8.х
 
Процедура КнопкаВыполнитьНажатие(Кнопка)
Ответ = 0;
Ответ = ping("74.125.232.87");
Сообщить(?(Ответ > 0 ,"Есть соединение", "Нет соединения" ));
КонецПроцедуры

Функция Ping(IPАдрес)
objShell = Новый COMОбъект("WScript.Shell") ;
objScriptExec = objShell.EXEC("ping.exe -n 1 " + IPАдрес) ;
strPingResults = НРег(objScriptExec.StdOut.ReadAll());
Возврат Найти(strPingResults, "ttl=");
КонецФункции

Меня вполне устроило )
Изменено 29.06.12 09:24:41
Подсказка: Щелкнув по значку (справа от названия вопроса), вы получите список ответов на похожие вопросы!
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.