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

FeliceYa

26.06.2012 18:05

Прочитано: 3103

Как проверить соединение с интернетом из 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

Подсказка: Вы можете приложить к ответу файл или изображение щелкнув по значку или в редакторе.