Написание внешних компонент для 1С на Delphi

Сборка проекта

Файл проекта - TestVK.dpr.

Проверка работоспособности DLL

Переименование DLL

     CLSID_AddInObject : TGUID = '{CE4FB6DB-636C-4824-86C4-DCE02135FE5A}';

Что такое свойства и методы?

    vk.Заголовок="Внешняя компоннета";

    vk.ВсплывающаяПодсказка("Проверка всплываюшего сообщения", 3000);

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

            prop1: vk_object.prop1(m_get_value);
            prop2:  vk_object.prop2(m_get_value);
            prop3:  vk_object.prop3(m_get_value);
            prop4:  vk_object.prop4(m_get_value);
            prop5:  vk_object.prop5(m_get_value);

Программирование функциональности свойств

  /////////////////////////////////////////////////////////////////////
   function T_vk_object.prop1(mode: TMode): String;
  begin
    case  mode of
      m_rus_name: Result:='Пиктограмма';
       m_eng_name: Result:='IconType';
      m_get_value:  g_Value:=g_IconType;
      m_set_value: g_IconType:=g_Value;
     end;//case
  end;

vk.Пиктограмма=32;

Вот здесь 1С и узнает, что свойство называется именно Пиктограмма (а не как-то иначе). Попробуйте переименовать свойство (например, в Псиграмма), и посмотрите, что получится.

# m_eng_name - англоязычный синоним - 'IconType' – я устанавливаю строкой ниже.

# m_get_value –1С получает значение переменной, в данном случае, g_IconType.

Что это за переменная? А это та переменная (точнее, свойство класса), где я решил запоминать идентификатор своей пиктограммы.

# m_set_value – 1С устанавливает значение свойства. Наличие этой строки позволяет изменять числовое значение моей пиктограммы из кода 1С. Попробуйте выставлять из кода 1С различные значения пиктограммы (в комментариях примера я описал, какие значения возможны), и смотреть, что получится.

Программирование функциональности методов

Для методов код похожий:

  /////////////////////////////////////////////////////////////////////
   function T_vk_object.meth1(mode: TMode): String;
  var s: String;
   var ms: Integer;
  begin
    case mode of
      m_rus_name:  Result:='ВсплывающаяПодсказка';
      m_eng_name:  Result:='BalloonTooltip';
      m_n_params: g_NParams:=2;  //Количество параметров функции
      m_execute: begin
         //Извлекаем параметры функции, переданные из 1С
         s:=GetParamAsString(0);//сообщение
         ms:=GetParamAsInteger(1);//задержка в мс
        //Показываем  сообщение в трее
        sleep_icon(s, ms);
      end;
     end;//case
  end;

Этот абзац можно воспроизвести несколько раз (что и сделано в примере), заменив meth1 на meth2, meth3 и т.д. Приведенные ниже строчки устанавливают русское и английское имя метода.

      m_rus_name: Result:='ВсплывающаяПодсказка';
      m_eng_name:  Result:='BalloonTooltip';

Попробуйте изменить то или другое, перекомпилировать проект и посмотреть, что получится. В строчке

    m_n_params: g_NParams:=2; //Количество параметров функции

я устанавливаю количество параметров метода. Попробуйте изменять это количество (например, установить значение 3) и посмотреть, что получится. Блок

      m_execute: begin
//…
      end;

реализует собственно функциональность метода (показывает всплывающее сообщение в трее). Подробнее код я опишу ниже – но сначала полезно потренироваться со вставкой в него отладочной печати (именно так я исследую код).

Отладочная печать

Вы можете в качестве теста вписать в функциональность метода что-то свое, например,

MessageBox(0, 'Превед', 'Медвед', 0);

Этот вызов покажет стандартное окно предупреждения с кнопкой ОК. Или вот так:

ShowMessage('Просто текст');

Во втором случае, если Delphi будет ругаться при компиляции, добавьте Dialogs в раздел uses модуля.

Получение параметров функции

В своей функции я завел две переменные для хранения параметров:

  var s: String;
  var ms: Integer;

Они должны хранить, соответственно, текст сообщения (то, что я передаю из 1С) и значение паузы в миллисекундах, в течение которой будет высвечиваться сообщение в трее. Сейчас мы их заполним значениями, полученными из 1С.

        s:=GetParamAsString(0);//сообщение
         ms:=GetParamAsInteger(1);//задержка в мс

Параметры нумеруются, начиная с 0 (давняя традиция программистов на языке С). Чем отличаются AsString и AsInteger, надеюсь, понятно. Этот код можно было бы написать и так:

        s:= GetNParam(0);//сообщение
        ms:=  GetNParam(1);//задержка в мс

Но в случае передачи значений неправильного типа (попытайтесь передавать вместо правильных значений различную "чепуху") сообщения об ошибке будут менее информативными.

Отладочная печать параметров

При отладке полученные из 1С значения полезно выводить на экран. Но как это сделать? Я обычно использую следующий прием. Чтобы показать строковые переменные, я пишу так:

MessageBox(0, pchar(s), 'Отладка - s', 0);

А числовые значения и значение типа "дата-время" я отображаю примерно так:

ShowMessage('Отладка - ms'+#13+IntToStr(ms));
ShowMessage('Время = <'+TimeToStr(Now())+'>; Температура = <'+FloatToStr(RoundTo(t,-2))+'>');

Функциональность методов

Получив все значения из 1С, можно приступать к собственно написанию полезного кода.

Функция sleep_icon(s, ms); определена в коде примера, и показывает сообщение, используя функции Windows API (Application Programming Interface).

Скачать пример