Книга знаний

Написание внешних компонент для 1С на VB.NET и C# (статья)

Почему именно .NET?

Особенности среды исполнения

Пример внешней компоненты

net.ОткрытьФайл(ПутьКФайлу); 
Пока net.Прочитать()=1 Цикл 
 Рез = "ТипУзла=" + net.ТипУзла;  
 Рез = Рез + " Имя='" + net.Имя;  
 Рез = Рез + "' Значение'" + net.Значение;  
 Рез = Рез + "' " ;  
 Сообщить(Рез) ;  
КонецЦикла

Регистрация внешней компоненты в системе Windows

Как скомпилировать пример исходного кода

Подключение внешней компоненты средствами встроенного языка 1С

перем net Экспорт;

Процедура ПриНачалеРаботыСистемы()
    ИмяВК="AddIn.vk_XmlTextReaderWriter";
  
    ок=ПодключитьВнешнююКомпоненту(ИмяВК);
    Если ок=0 Тогда
        Сообщить("Не удалось подключить компоненту "+ИмяВК);
    КонецЕсли;
    net =СоздатьОбъект(ИмяВК);
 КонецПроцедуры

Как вставить отладочные сообщения

        Dim ei As ExcepInfo
        ei.wCode = 1001 'Вид пиктограммы
        ei.scode = S_OK 'Просто сообщение без генерации ошибки
        ei.bstrDescription = s 'Сообщение
        ei.bstrSource = c_AddinName

        V7Data.ErrorLog.AddError(c_AddinName, ei)

Как переименовать образец внешней компоненты

Изменение списка свойств ВК

    '/////////////////////////////////////////////////////////////////////////////////
    Enum Props
        'Числовые идентификаторы свойств внешней компоненты
        propNodeType = 0 'Тип узла XML
        propName = 1 'Имя узла XML
        propValue = 2 'Значение узла XML
        propIndent = 3 'Признак "форматировать XML с использованием отступов"
        LastProp = 4
    End Enum

    '/////////////////////////////////////////////////////////////////////////////////
    Sub FindProp(ByVal bstrPropName As String, ByRef plPropNum As Integer) Implements ILanguageExtender.FindProp
        'Здесь 1С ищет числовой идентификатор свойства по его текстовому имени

        Select Case bstrPropName
            Case "NodeType", "ТипУзла"
                plPropNum = Props.propNodeType
            Case "Name", "Имя"
                plPropNum = Props.propName
            Case "Value", "Значение"
                plPropNum = Props.propValue
            Case "Indent", "Отступ"
                plPropNum = Props.propIndent
            Case Else
                plPropNum = -1
        End Select
    End Sub

    '/////////////////////////////////////////////////////////////////////////////////
    Sub GetPropVal(ByVal lPropNum As Integer, ByRef pvarPropVal As Object) Implements ILanguageExtender.GetPropVal

    '/////////////////////////////////////////////////////////////////////////////////
    Sub SetPropVal(ByVal lPropNum As Integer, ByRef varPropVal As Object) Implements ILanguageExtender.SetPropVal

Изменение списка методов ВК

    '/////////////////////////////////////////////////////////////////////////////////
    Enum Methods
        'Числовые идентификаторы методов (процедур или функций) внешней компоненты
        methOpenFile = 0 'Открытие файла XML
        methClose = 1 'Закрытие файла XML
        methRead = 2 'Чтение узла XML
        methGetAttribute = 3 'Получает атрибут XML по его имени или номеру
        methAttributeCount = 4 'Количество атрибутов узла XML 

        methCreateFile = 5 ' Создание файла XML
        methWriteStartElement = 6 ' Записывает стартовый элемент, например <tag>
        methWriteAttribute = 7 'Записывает атрибут тега
        methWriteText = 8 ' Записывает текст
        methWriteEndElement = 9 'Записывает конечный элемент, например, </tag>

        methRaiseException = 10 'Вызывает исключение (например, при ошибке)

        LastMethod = 11
    End Enum


    '/////////////////////////////////////////////////////////////////////////////////
    Sub FindMethod(ByVal bstrMethodName As String, ByRef plMethodNum As Integer) Implements ILanguageExtender.FindMethod
        'Здесь 1С получает числовой идентификатор метода (процедуры или функции) по имени (названию) процедуры или функции

        plMethodNum = -1
        Select Case bstrMethodName
            Case "OpenFile", "ОткрытьФайл"
                plMethodNum = Methods.methOpenFile

            Case "Close", "Закрыть"
                plMethodNum = Methods.methClose

    '/////////////////////////////////////////////////////////////////////////////////
    Sub GetNParams(ByVal lMethodNum As Integer, ByRef plParams As Integer) Implements ILanguageExtender.GetNParams
        'Здесь 1С получает количество параметров у метода (процедуры или функции)

        Select Case lMethodNum
            Case Methods.methOpenFile
                plParams = 1
            Case Methods.methClose
                plParams = 0

    '/////////////////////////////////////////////////////////////////////////////////
    Sub CallAsFunc(ByVal lMethodNum As Integer, ByRef pvarRetValue As Object, _
    ByRef paParams As System.Array) _
    Implements ILanguageExtender.CallAsFunc

        'Здесь внешняя компонента выполняет код функций.

        Try
            pvarRetValue = 0 'Возвращаемое значение метода для 1С
            Select Case lMethodNum 'Порядковый номер метода
                '//////////////////////////////////////////////////////////
            Case Methods.methOpenFile  'Реализуем метод для открытия XML-файла

                    Dim s1 As String
                    s1 = CType(paParams.GetValue(0), String)
                    If g_reader Is Nothing Then
                    Else
                        g_reader.Close()
                        g_reader = Nothing
                    End If
                    g_reader = New XmlTextReader(s1)
                    g_reader.WhitespaceHandling = WhitespaceHandling.None

                    '//////////////////////////////////////////////////////////
                Case Methods.methClose  'Реализуем метод для закрытия XML-файла
                    If g_reader Is Nothing Then
                    Else
                        g_reader.Close()
                        g_reader = Nothing
                    End If
                    If g_writer Is Nothing Then
                    Else
                        g_writer.Close()
                        g_writer = Nothing
                    End If
…
                    '//////////////////////////////////////////////////////////
                    'Реализуем метод для генерации исключения
                Case Methods.methRaiseException
                    Dim s1 As String
                    s1 = CType(paParams.GetValue(0), String)
                    Throw New Exception(s1)

            End Select

        Catch ex As Exception 'Обрабатываем исключение (ошибку)
            Raise1CException(ex.Message)
        End Try


    End Sub

        Try

…

        Catch ex As Exception 
            Raise1CException(ex.Message)
        End Try

            Select Case lMethodNum 'Порядковый номер метода
            Case Methods.methOpenFile  'Реализуем метод для открытия XML-файла
…

Обработка ошибок

    '/////////////////////////////////////////////////////////////////////////////////
    'Функция генерирует исключение в 1С
    Sub Raise1CException(ByVal s As String)
        Try
            g_reader.Close() 'Закрываем файл XML
        Catch
        End Try
        Try
            g_reader = Nothing '"Убиваем" ссылку на объект
        Catch
        End Try

        Dim ei As ExcepInfo
        ei.wCode = 1004 'Вид пиктограммы

        '1000 - нет значка
        '1001 - обычный значок
        '1002 - красный значок !
        '1003 - красный значок !!
        '1004 - красный значок !!!
        '1005 - зеленый значок i
        '1006 - красный значок err
        '1007 - Окно предупреждения "Внимание"
        '1008 - Окно предупреждения "Информация"
        '1009 - Окно предупреждения "Ошибка"

        ei.scode = 1 'Генерируем ошибку времени исполнения
        ei.bstrDescription = s 'Сообщение
        ei.bstrSource = c_AddinName

        V7Data.ErrorLog.AddError(c_AddinName, ei)

    End Sub

Исследование работы библиотечных классов

using System;
using System.Xml;


class MyApp
{
  static void Main (string[] args)
  {
    if (args.Length < 1) 
    {
      Console.WriteLine ("Syntax: XmlTextReader xmldoc");
      return;
    }

    XmlTextReader reader = new XmlTextReader (args[0]);
    try 
    {
      reader.WhitespaceHandling = WhitespaceHandling.None;

      while (reader.Read ())
      {
        Console.WriteLine ("Type={0}\t Name={1}\t Value={2}",
           reader.NodeType, reader.Name, reader.Value);
        if (reader.HasAttributes){
          for (int i=0; i<reader.AttributeCount; i++)
          {
            reader.MoveToAttribute(i);
            Console.WriteLine(" \t{0}={1}", reader.Name, reader.Value);
          }
        }

      }
    }
    catch (Exception ex) 
    {
      Console.WriteLine (ex.Message);
    }
    finally 
    {
      if (reader != null)
        reader.Close ();
    }
  }
}

Заключение

Файлы для загрузки

Описание | Рубрикатор | Поиск | ТелепатБот | Захваченные статьи | Установки | Форум
© Станислав Митичкин (Волшебник), 2005-2025 | Mista.ru