6.4. Интернет-технологии
6.4.1. Интернет-соединение
С помощью объекта ИнтернетСоединение можно устанавливать и разрывать соединение с провайдером через коммутируемые линии (модем). После установления соединения можно отправлять и принимать почту, обращаться к сайтам (веб-серверам) по протоколам HTTP/HTTPS и к FTP-серверам.
Для операций через эти протоколы можно также использовать процедуры и функции глобального контекста для работы с файлами, например, КопироватьФайл.
6.4.2. Поле html-документа
Элемент управления ПолеНТМLДокумента позволяет отобразить HTML-страницу. Это могут быть как локальные страницы, так и страницы из Интернета:
У данного элемента управления есть метод Перейти, который позволяет указать адрес страницы (URL) или HTML-макет, хранящийся в конфигурации.
Следующий фрагмент демонстрирует, как можно указать адрес сайта (веб-сервера) для данного элемента управления:
ЭлементыФормы.ПолеНТМLДокумента.Перейти("http://www.1c.ru");
6.4.3. Электронная почта (e-mail)
Для работы с электронной почтой в 1C:Предприятии 8.0 существуют следующие объекты:
Почта,
ПочтовоеСообщение,
ПочтовыйАдрес,
ПочтовоеВложение.
Полный список свойств и методов каждого объекта приведен в документации, а на рисунке 6.1 показана общая схема взаимосвязей между этими объектами:
Рис. 6.1.
Объект Почта имеет методы Выбрать и Послать. Первый метод возвращает массив объектов ПочтовоеСообщение, а второй метод принимает объект ПочтовоеСообщение в качестве параметра.
В объекте ПочтовоеСообщение поле Отправитель имеет тип ПочтовыйАдрес, а поля Получатели, Копии и СлепыеКопии являются коллекциями объектов ПочтовыйАдрес. Поле Вложения также является коллекцией объектов типа ПочтовоеВложение.
Следующий пример создает электронное письмо, присоединяет к нему два файла и отправляет его сразу двум адресатам:
Письмо = Новый ПочтовоеСообщение;
Письмо.Тема = "Тест";
Письмо.Текст = "Это тестовое письмо!";
Письмо.Получатели.Добавить("myboss@company.ru");
Письмо.Получатели.Добавить("myfriend@company.ru");
Письмо.Вложения.Добавить("с:\test.txt");
Мелодия = Новый ДвоичныеДанные("с:\opera.mp3");
Письмо.Вложения.Добавить(Мелодия,"Опера.mр3");
Почта = Новый Почта;
Почта.Послать(Письмо)
6.4.4. Работа с ftp
Система 1С:Предприятие 8.0 имеет средства для работы с файлами по протоколу FTP. Можно подключаться к FTP-серверам, скачивать и закачивать файлы, переименовывать их, обращаться к их свойствам, создавать каталоги и т.д.
Ниже показан простой пример, в котором устанавливается соединение с FTP-сервером, скачивается один файл, а на его место помещается другой:
FTP = Новый FТРСоединение
("ftp://ftp.mysite.ru",21,"login","password");
FTP.УстановитьТекущийКаталог("htdocs");
FTP.Получить("index.htm", "с:\old\index.htm");
FTP.Записать("с:\new\index.htm", "index.htm");
6.5. Работа с операционной системой
Система 1С:Предприятие 8.0, как и версия 7.7, позволяет выполнять команды операционной системы через командный интерпретатор и запускать внешние приложения. Для этого предназначены процедуры ЗапуститьПриложение и КомандаСистемы:
ЗапуститьПриложение
Выполняет запуск внешнего приложения либо открытие файла с использованием связанного с ним приложения.
КомандаСистемы
Вызывает на исполнение команду операционной системы, как если бы она была введена в командной строке. После загрузки приложения управление возвращается в 1С:Предприятие 8.0, и исполнение модуля продолжается.
6.6. СОМ-соединение
В новой версии 1С:Предприятия введен механизм СОМ-соединения для быстрого и надежного доступа к системе 1C:Предприятие 8.0 из других программ.
Следующий фрагмент на языке VB.Net устанавливает СОМ-соединение с 1С:Предприятием 8.0, создает массив из 6 элементов (индексация начинается с 0), а также получает значение системного перечисления:
//внимание! фрагмент на языке VB.Net
Module Modulel
Sub Main()
Dim cc As Object 'это будет Corn-connector
Dim con As Object
Dim o,o2 As Object
Dim e As Object
Dim str As String
Try
cc = CreateObject("V8.COMConnector")
con = cc .Connect ("File=c:/1cv8/mdcom; Usr=r\naBHbiii")
о = con NewObject("Массив", 5)
o.Set(0 "Item 0")
o.Set(1 "Item 1")
o.Set(2 "Item 2")
o.Set(3 "Item 3")
o.Set(4 "Item 4")
o.Set(5 "Item 5")
Dim с As Integer = o.Count()
For Each e In о
Console.WriteLine(e.ToString())
Next
o2 = con.ДопустимаяДлина.Переменная
str = con.ValueStr(o2)
Dim s As String = str
Catch ex As Exception
Console.WriteLine(ex)
End Try
con = Nothing
cc = Nothing
System.GC.Collect()
End Sub
End Module
Обратите внимание, что при таком варианте подключения к 1С:Предприятию 8.0 полностью отсутствует пользовательский интерфейс.
Важным моментом является то, что при установлении СОМ-соединения вместо модуля приложения используется модуль внешнего соединения. При этом в вызывающем приложении доступен для использования глобальный контекст 1С:Предприятия 8.0, включая переменные, процедуры и функции, объявленные в модуле внешнего соединения с ключевым словом Экспорт. Некоторые объекты не доступны в режиме внешнего соединения, о чем подробно написано в документации.
Аутентификация пользователя при СОМ-соединении может производиться через параметры строки соединения или средствами Windows. В любом случае у пользователя должно быть право «Внешнее соединение».