v7: Проверка на существование интернет соединения средствами 1С

1C 7.7

24.11.11

✎

10:51

Добрый день господа! Может быть кто-нить сможет помочь. Необходимо написать функцию которая проверяла бы есть ли интернет на данном компе.

1 Heckfy

24.11.11

✎

10:53

Стукнись куда нибудь на ftp
ЗЫ: Как вариант.....

2 OlesyaBelochka

24.11.11

✎

10:56

Легко сказать, куда-нить..для это нужно знать как минимум параметры ftp..а еще варианты есть?

3 Heckfy

24.11.11

✎

11:01

Блин, в семерке не помню..... в 8.2 что то типа:

ИнтернетСоединение = Новый ИнтернетСоединение;
ИнтернетСоединение .Установить();
Если ИнтернетСоединение Установлено=Истина Тогда

Как то так.....

4 Heckfy

24.11.11

✎

11:02

ИнтернетСоединение Установлено=ИнтернетСоединение.Установлено

5 vinogradъ

24.11.11

✎

11:04

запускать батник, который бы писал результаты пинга ya.ru в файл и потом читать этот файл

6 Морозов Александр

24.11.11

✎

11:06

Повырывав строчки из обработки получения обновлений, вот что получилось:

Попытка
Соединение = СоздатьОбъект("Addin.V7HttpReader");
Соединение.КоличествоПопытокАвторизации = 3;
Исключение
Сообщить("Не удалось создать объект Addin.V7HttpReader!");
Возврат 0;
КонецПопытки;

Попытка
Соединение.ПолучитьКакСтроку("http://www.1c.ru/buhplace/lastnewstime.asp", Стр);
Исключение
Сообщить("Либо нету инета... либо сайт 1С опять лежит!!!");
КонецПопытки;

7 Heckfy

24.11.11

✎

11:08

(5) ping ya.ru >C:\123.txt
Только там кодировка DOS-овская будет.

8 Морозов Александр

24.11.11

✎

11:09

(+6) еще компаненту В7плюс надо загрузить

9 Heckfy

24.11.11