COM API для программистов

Простой пример-введение

Хитрости

• Почтовый индекс в адресной строке
• Загрузка базы данных
• Модальные всплывающие окошки
• Разные версии программы
• Собираем всё вместе

Описание функций

• Печать конвертов
• Печать уведомлений
• Печать почтовых реестров
• Печать описей вложений
• Вспомогательные методы

Используемые форматы данных

• Данные для печати конвертов и уведомлений
• Данные для печати почтовых реестров
• Данные для печати описей вложений

Примеры использования

• Примеры вызова из jscript
• Примеры вызова из excel
• Примеры вызова из 1C

Описание на языке idl

В этом разделе описано, как можно вызывать функции программы «Печать конвертов!» из других программ.

Простой пример-введение

Для начала проиллюстрируем, как можно просто вызвать печать конверта из других программ:

Создадим файл test.js со следующим текстовым содержимым:

pepro= WScript.CreateObject("PEPro.Application");

pepro.PrintEnvelope
  ("Иван",  "г Иваново, Ивановская 4", "111111",
   "Марья", "г Мариуполь, Ленина 2",   "222222");
      

Разберём, как работает этот скрипт.

Сначала необходимо создать экземпляр программы «Печать конвертов!», что выполняется в первой команде CreateObject ("PEPro.Application"). Полученный экземпляр сохраняется для дальнейшего использования.

Далее вызывается непосредственно функция PrintEnvelope печати конверта для письма от Ивана к Марье.

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

Далее, того же самого результата можно добиться, собрав данные для конверта в один xml-аргумент и воспользовавшись методом PrintFromXmlEnvelopes:

pepro= WScript.CreateObject("PEPro.Application");

pepro.PrintFromXmlEnvelopes
(
"<EnvelopesData>" +
"  <EnvelopeData>" +
"    <From>" +
"      <Name>Иван</Name>" +
"      <Address>г Иваново, Ивановская 4</Address>" +
"      <ZipCode>111111</ZipCode>" +
"    </From>" +
"    <To>" +
"      <Name>Марья</Name>" +
"      <Address>г Мариуполь, Ленина 2</Address>" +
"      <ZipCode>CA 90048</ZipCode>" +
"    </To>" +
"  </EnvelopeData>" +
"</EnvelopesData>"
);

Конечно, возникает вопрос, зачем делать сложно то, что проще простого. Понять «зачем» можно из следующего примера, который иллюстрирует, как Иван может разом писать несколько писем. Например, помимо Марьи можно заодно распечатать конверт и для Анжелины:

pepro= WScript.CreateObject("PEPro.Application");

pepro.PrintFromXmlEnvelopes
(
"<EnvelopesData>" +
"  <EnvelopeData>" +
"    <From>" +
"      <Name>Иван</Name>" +
"      <Address>г Иваново, Ивановская 4</Address>" +
"      <ZipCode>111111</ZipCode>" +
"    </From>" +
"    <To>" +
"      <Name>Марья</Name>" +
"      <Address>г Мариуполь, Ленина 2</Address>" +
"      <ZipCode>CA 90048</ZipCode>" +
"    </To>" +
"  </EnvelopeData>" +
"  <EnvelopeData>" +
"    <From>" +
"      <Name>Иван</Name>" +
"      <Address>г Иваново, Ивановская 4</Address>" +
"      <ZipCode>111111</ZipCode>" +
"    </From>" +
"    <To>" +
"      <Name>Angelina</Name>" +
"      <Address>1901 Ave. of the Stars # 680\r\n" + 
" Los Angeles, CA 90067-6008\r\n" + 
" USA</Address>" +
"    </To>" +
"  </EnvelopeData>" +
"</EnvelopesData>"
);

С ростом количества связей Ивана может получиться так, что неудобно собирать данные для печати конвертов в виде строки в памяти. Для этого случая предусмотрена возможность использования заранее подготовленного файла, содержащего все данные.

Такой режим поддерживается при помощи метода PrintFromFileEnvelopes:

pepro.PrintFromFileEnvelopes(path + "\\printenvelopes.xml");

Хитрости

Почтовый индекс в адресной строке

Некоторые информационные системы хранят адреса одной строкой вместе с почтовым индексом (например 1С v 7.7).

В то же время, описываемое API предполагает передачу почтового индекса отдельным полем.

Чтобы разрешить это противоречие и упростить интеграцию, в API добавлен специальный логический флажок «Выкусывать почтовый индекс прямо из строки адреса». Для управления этим флажком предназначены методы GetFlagParseZipIndexFromAddress и SetFlagParseZipIndexFromAddress.

Таким образом, всё, что нужно сделать, для того чтобы распечатать почтовый документ, указав почтовый индекс прямо в строке адреса — это установить описываемый флажок непосредственно перед вызовом соответствующей функции.

pepro= WScript.CreateObject("PEPro.Application");

pepro.SetFlagParseZipIndexFromAddress(1);
pepro.PrintEnvelope
  ("Иван",  "111111, г Иваново, Ивановская 4", "",
   "Марья", "222222, г Мариуполь, Ленина 2",   "");

Загрузка базы данных

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

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

Для загрузки базы данных и проверки того, что она загружена, в API добавлены методы DatabaseIsLoaded и SafeLoadDatabase. В частности, если необходимо использовать пользовательские шаблоны документов, рекомендуется вызывать просто метод SafeLoadDatabase перед соответствующей функцией.

pepro= WScript.CreateObject("PEPro.Application");

pepro.SafeLoadDatabase();
pepro.PrintEnvelope
  ("Иван",  "г Иваново, Ивановская 4", "111111",
   "Марья", "г Мариуполь, Ленина 2",   "222222");

Модальные всплывающие окошки

Программа «Печать конвертов!» предоставляет свой COM API как «out-of-process OLE Server» (т.е. COM объект реально располагается в адресном пространстве своего собственного процесса). Многие методы API предполагают открытие диалоговых окошек в «модальном режиме». В связи с этим возникает 2 проблемы:

1. «всплывание» окошек COM объекта поверх окошек вызывающего процесса.
2. «модальный» режим работы окошек для вызывающего процесса.

Активация выскакивающих окошек

Компания Microsoft неустанно работает над совершенствованием своих операционных систем семейства Windows и в частности стремится сделать их более безопасными, понятными и предсказуемыми для пользователей.

С этим стремлением связаны регламенты оконной системы по работе со «всплывающими» окошками. Очевидно, приложение, с которым работает пользователь, вольно само решать, какие окошки открывать. А вот если окошко захочет открыть приложение, с которым пользователь в настоящее время не работает, да ещё и открыть его поверх других окошек, тут могут быть проблемы. В частности, такое поведение может быть характерно для всяких вредоносных и навязчивых программ. Поэтому, в разных версиях ОС семейства Windows всплывающие окошки могут «всплывать» по-разному. И как мы помним, в нашем случае именно такая ситуация (COM объект пытается открывать новые окошки из отдельного процесса).

За открытие окошка поверх всех других окошек других приложений отвечает функция Win API SetForegroundWindow. Документация для неё гласит:

Другими словами, в переводе на русский, позаботиться о том, чтобы окошки вызываемого процесса открывались «поверх всего», должен вызывающий процесс. В режиме работы с «модальными» окнами, это может быть проблематично, потому что «вызывающий» процесс владеет потоком управления тогда, когда никаких «вызываемых» окошек ещё нет.

Чтобы всё-таки вызывающий процесс смог активизировать окошки программы «Печать конвертов!», в API были добавлены функции для работы со специальным «фиктивным» немодальным окошком. OpenDummyFormToSetAsForeground и CloseDummyFormAndSetAsForeground. Идея заключается в том, чтобы открыть предварительно «фиктивное» немодальное окошко и вывести его на передний план. По окончании работы нужных функций наоборот закрыть «фиктивное» окошко, причём так, чтобы при закрытии на передний план перешли окошки вызывающего процесса.

pepro= WScript.CreateObject("PEPro.Application");
shell= WScript.CreateObject("WScript.Shell");

current_foreground_win= pepro.OpenDummyFormToSetAsForeground();
shell.AppActivate("Печать конвертов!")
pepro.PrintEnvelope
  ("Иван",  "г Иваново, Ивановская 4", "111111",
   "Марья", "г Мариуполь, Ленина 2",   "222222");
pepro.CloseDummyFormAndSetAsForeground(current_foreground_win);
        

К сожалению, описанный способ не является «серебряной пулей» именно по той причине, что Microsoft меняет правила для всплывающих окон от версии к версии. В некоторых ситуациях это может привести к тому, что окошко всё-таки откроется под текущим. В таком случае на нужное окошко пользователю придётся переключиться вручную, например, кликнув по мигающей закладке панели задач.

Модальный режим вызова окошек

Статья из базы знаний Micrisoft № 172059 «How To Show a Modal Form from an OLE Server DLL» гласит:

В переводе на русский, помимо проблемы «всплывания», вызов модальных окошек из «out-of-process OLE Server» влечёт за собой дополнительно проблему нарушения нормального цикла обработки сообщений в вызывающем процессе. Это может привести к появлению «артефактов» на окошке «вызывающего» приложения.

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

Для того, чтобы преодолеть эту проблему, в COM API программы добавлен специальный логический флажок «Запускать формы в модальном режиме». Для управления этим флажком предназначены методы GetFlagShowFormsAsModal и SetFlagShowFormsAsModal. Если флажок установлен, метод COM API завершается, не дожидаясь закрытия модального окошка. Для того чтобы воспользоваться «не модальным» режимом, достаточно просто установить флажок перед вызовом соответствующего метода.

pepro= WScript.CreateObject("PEPro.Application");

pepro.SetFlagShowFormsAsModal(0);
pepro.PrintEnvelope
  ("Иван",  "г Иваново, Ивановская 4", "111111",
   "Марья", "г Мариуполь, Ленина 2",   "222222");

pepro= WScript.CreateObject("PEPro.Application");

function pepro_api_version(pepro)
{
  var res= 0;
  try
  {
    res= pepro.GetAPIVersion();
  }
  catch (e)
  {
  }
  return res;
}

if (pepro_api_version(pepro)>0)
  pepro.SetFlagShowFormsAsModal(0);
pepro.PrintEnvelope
  ("Иван",  "г Иваново, Ивановская 4", "111111",
   "Марья", "г Мариуполь, Ленина 2",   "222222");

var pepro= WScript.CreateObject("PEPro.Application");

var api_version= 0;
try
{
  api_version= pepro.GetAPIVersion();
}
catch (e)
{
}

var current_foreground_win;
if (api_version>0)
{
  pepro.SafeLoadDatabase();
  pepro.SetFlagShowFormsAsModal(0);
  pepro.SetFlagParseZipIndexFromAddress(1);
  var shell= WScript.CreateObject("WScript.Shell");
  current_foreground_win= pepro.OpenDummyFormToSetAsForeground();
  shell.AppActivate("Печать конвертов!")
}
pepro.PrintEnvelope
  ("Иван",  "г Иваново, Ивановская 4", "111111",
   "Марья", "г Мариуполь, Ленина 2",   "222222");
if (api_version>0)
{
  pepro.CloseDummyFormAndSetAsForeground(current_foreground_win);
}

  HRESULT PrintEnvelope([in] BSTR from,        // от кого
                        [in] BSTR fromAddress, // откуда
                        [in] BSTR fromZipCode, // почтовый индекс откуда
                        [in] BSTR to,          // кому
                        [in] BSTR toAddress,   // куда
                        [in] BSTR toZipCode);  // почтовый индекс куда

  HRESULT PrintFromXmlEnvelopes([in] BSTR xml_text);

  HRESULT PrintFromFileEnvelopes([in] BSTR filename);

  HRESULT PrintFromXmlNotifications([in] BSTR xml_text);

  HRESULT PrintFromFileNotifications([in] BSTR filename);

  HRESULT PrintFromXmlRegisters([in] BSTR xml_text);

  HRESULT PrintFromFileRegisters([in] BSTR filename);

  HRESULT GetRegisterTemplateNames([out, retval] SAFEARRAY(BSTR)* pRetVal);

  HRESULT PrintFromXmlRegistersWithoutForm(
                        [in] BSTR xml_text, 
                        [in] BSTR nametemplate, 
                        [in] BSTR resultFullPath);

Печать описей вложений

PrintFromXmlInventories — печать описей вложений по xml описанию

  HRESULT PrintFromXmlInventories([in] BSTR xml_text);

Данный метод позволяет запустить печать нескольких описей вложений по xml описанию.

На вход подаётся непосредственно строка с xml описанием. Формат xml описания приведён в соответствующем разделе.

Метод не возвращает никаких значащих данных.

Присутствует, начиная с версии 2.1 (API v 0)

PrintFromFileInventories — печать описей вложений по подготовленному xml файлу

  HRESULT PrintFromFileInventories([in] BSTR filename);

Данный метод позволяет запустить печать нескольких описей вложений по xml описанию, сохранённому в файле.

На вход подаётся путь до файла, в котором записаны исходные данные. Внимание! Рекомендуется указывать полный путь!

Формат xml описания приведён в соответствующем разделе.

Метод не возвращает никаких значащих данных.

Присутствует, начиная с версии 2.1 (API v 0)

Вспомогательные методы

DatabaseIsLoaded — узнать, загружена ли база данных

  HRESULT DatabaseIsLoaded([out, retval] VARIANT_BOOL* pRetVal);

Данный метод позволяет проверить, подгрузил ли COM объект базу данных (*.mdb файл).

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

Если возвращает true, значит, база данных загружена.

Описание концепции приведено в разделе "Хитрости / Загрузка базы данных".

Присутствует, начиная с версии 2.2 (API v 1)

SafeLoadDatabase — загрузить базу данных, если она ещё не загружена.

  HRESULT SafeLoadDatabase([out, retval] VARIANT_BOOL* pRetVal);

Данный метод позволяет безопасно "подгрузить" базу данных (*.mdb файл).

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

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

Если возвращает true, значит, база данных загружена.

Описание концепции приведено в разделе "Хитрости / Загрузка базы данных".

Присутствует, начиная с версии 2.2 (API v 1)

GetFlagParseZipIndexFromAddress — выкусывать ли почтовый индекс из адреса

  HRESULT GetFlagParseZipIndexFromAddress([out, retval] VARIANT_BOOL* pRetVal);

Данный метод позволяет получить значение логического флага "Выкусывать почтовый индекс прямо из строки адреса".

Если возвращает true, значит, программа будет пытаться "выкусить" почтовый индекс из адресной строки.

Описание концепции приведено в разделе "Хитрости / Почтовый индекс в адресной строке".

Присутствует, начиная с версии 2.2 (API v 1)

SetFlagParseZipIndexFromAddress — выкусывать почтовый индекс из адреса

  HRESULT SetFlagParseZipIndexFromAddress(
                        [in] VARIANT_BOOL f, 
                        [out, retval] VARIANT_BOOL* pRetVal);

Данный метод позволяет установить значение логического флага "Выкусывать почтовый индекс прямо из строки адреса".

Единственным аргументом метода является желаемое значение флага.

Если возвращает true, значит, программа будет пытаться "выкусить" почтовый индекс из адресной строки.

Описание концепции приведено в разделе "Хитрости / Почтовый индекс в адресной строке".

Присутствует, начиная с версии 2.2 (API v 1)

GetFlagShowFormsAsModal — запускать ли формы в модальном режиме

  HRESULT GetFlagShowFormsAsModal([out, retval] VARIANT_BOOL* pRetVal);

Данный метод позволяет получить значение логического флага "Запускать формы в модальном режиме".

Если возвращает true, значит, программа будет запускать формы в модальном режиме.

Описание концепции приведено в разделе "Хитрости / Модальный режим вызова окошек".

Присутствует, начиная с версии 2.2 (API v 1)

SetFlagShowFormsAsModal — запускать формы в модальном режиме

  HRESULT SetFlagShowFormsAsModal(
                        [in] VARIANT_BOOL f, 
                        [out, retval] VARIANT_BOOL* pRetVal);

Данный метод позволяет установить значение логического флага "Запускать формы в модальном режиме".

Единственным аргументом метода является желаемое значение флага.

Если возвращает true, значит, программа будет запускать формы в модальном режиме.

Описание концепции приведено в разделе "Хитрости / Модальный режим вызова окошек".

Присутствует, начиная с версии 2.2 (API v 1)

OpenDummyFormToSetAsForeground — открыть подготовительную форму

  HRESULT OpenDummyFormToSetAsForeground([out, retval] BSTR* pRetVal);

Данный метод позволяет открыть специальное фиктивное маленькое "подготовительное" немодальное окошко, чтобы иметь возможность перенести его на передний план.

Метод не принимает никаких параметров.

Возвращает строку - заголовок окна, которое было на переднем плане на момент "переключения" (как правило - заголовок главного окна вызывающего процесса).

Описание концепции приведено в разделе "Хитрости / Активация выскакивающих окошек".

Присутствует, начиная с версии 2.2 (API v 1)

CloseDummyFormAndSetAsForeground — закрыть подготовительную форму

  HRESULT CloseDummyFormAndSetAsForeground([in] BSTR process);

Данный метод позволяет закрыть специальное фиктивное маленькое "подготовительное" немодальное окошко, и заставить его перенести на передний план перед своим закрытием другое.

Единственный аргумент строка - заголовок окна, которое нужно перевести на передний план.

Метод не возвращает никаких значащих данных.

Описание концепции приведено в разделе "Хитрости / Активация выскакивающих окошек".

Присутствует, начиная с версии 2.2 (API v 1)

GetProductVersion — получить версию установленной программы

  HRESULT GetProductVersion([out, retval] BSTR* pRetVal);

Данный метод позволяет получить версию установленной программы в виде строки.

Метод не принимает никаких параметров.

Метод возвращает версию программы в виде строки (например "2.1.0.6").

Описание концепции приведено в разделе "Хитрости / Разные версии программы".

Присутствует, начиная с версии 2.2 (API v 1)

GetAPIVersion — получить версию COM API

  HRESULT GetAPIVersion([out, retval] long* pRetVal);

Данный метод позволяет получить версию COM API виде числа.

Метод не принимает никаких параметров.

Метод возвращает версию программы в виде числа (например, для версии "2.2" вернётся 1).

Описание концепции приведено в разделе "Хитрости / Разные версии программы".

В отличие от метода GetProductVersion данный метод удобнее в использовании, потому что:

Присутствует, начиная с версии 2.2 (API v 1)

GetWarningType — получить код успешности предыдущего вызова

  HRESULT GetWarningType([out, retval] long* pRetVal);

Данный метод позволяет получить код успешности предыдущего вызова метода виде числа. В настоящий момент работает только для методов PrintFromXmlRegistersWithoutForm и GetRegisterTemplateNames.

Метод не принимает никаких параметров.

Метод возвращает число, по которому можно определить, нужно ли сообщать пользователю о каких то проблемах.

Значения, которые возвращает метод:

<EnvelopesData>
    <EnvelopeData>
        <From>
           <Name>От кого..</Name>
           <Address>Откуда..</Address>
           <ZipCode>Почтовый индекс откуда..</ZipCode>
        </From>
        <To>
           <Name>Кому..</Name>
           <Address>Куда..</Address>
           <ZipCode>Почтовый индекс куда..</ZipCode>
        </To>
    </EnvelopeData>
    ..
</EnvelopesData>

<RegistersData>
    <RegisterData>
        <From>
           <Name>От кого..</Name>
           <Address>Откуда..</Address>
           <ZipCode>Почтовый индекс откуда..</ZipCode>
        </From>
        <Packages>
            <Package>
                <To>
                    <Name>Кому..</Name>
                    <Address>Куда..</Address>
                    <ZipCode>Почтовый индекс куда..</ZipCode>
                </To>
            </Package>
            ..
        </Packages>
    </RegisterData>
    ..
</RegistersData>

<InventoriesData>
    <InventoryData>
        <From>
            <Name>От кого..</Name>
        </From>
        <To>
            <Name>Кому..</Name>
            <Address>Куда..</Address>
        </To>
        <InventoryItems>
            <InventoryItem>
                <ItemName>Вложение 1</ItemName>
            </InventoryItem>
            ..
        </InventoryItems>
    </InventoryData>
    ..
</InventoriesData>

Sub PrintEnvelope()
    Dim pepro As Object
    Set pepro = CreateObject("PEPro.Application")
    pepro.PrintEnvelope "Иван", "г Иваново, Ивановская 4", "111111", _
                        "Марья", "г Мариуполь, Ленина 2", "222222"
End Sub

Перем pepro;
pepro= CreateObject("PEPro.Application");
pepro.PrintEnvelope
  ("Иван",  "г Иваново, Ивановская 4", "111111",
   "Марья", "г Мариуполь, Ленина 2",   "222222");

// Generated .IDL file (by the OLE/COM Object Viewer)
// 
// typelib filename: PrintEnvelopePro.tlb

[
  uuid(22BC298D-DF0E-3C29-B589-7A50D3A8B871),
  version(2.2),
  helpstring("\xFFFFFFCF\xFFFFFFE5ча\xFFFFFFF2ь \xFFFFFFEA\xFFFFFFEE\xFFFFFFED\xFFFFFFE2\xFFFFFFE5р\xFFFFFFF2\xFFFFFFEE\xFFFFFFE2!"),
  custom(90883F05-3D28-11D2-8F17-00A0C9A6186D, PrintEnvelopePro, Version=2.2.0.0, Culture=neutral, PublicKeyToken=null)

]
library PrintEnvelopePro
{
    // TLib :     // TLib : Common Language Runtime Library : {BED7F4EA-1A96-11D2-8F08-00A0C9A6186D}
    importlib("mscorlib.tlb");
    // TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}
    importlib("stdole2.tlb");

    // Forward declare all types defined in this typelib
    interface IPEProApplication;

    [
      odl,
      uuid(3A98FA89-27EE-4DDF-8F5D-ABC47EA942E6),
      version(1.0),
      dual,
      oleautomation,
      custom(0F21F359-AB84-41E8-9A78-36D110E6D2F9, PEP.COM.IPEProApplication)    

    ]
    interface IPEProApplication : IDispatch {
        [id(0x60020000)]
        HRESULT PrintFromFileEnvelopes([in] BSTR filename);
        [id(0x60020001)]
        HRESULT PrintFromFileNotifications([in] BSTR filename);
        [id(0x60020002)]
        HRESULT PrintFromFileInventories([in] BSTR filename);
        [id(0x60020003)]
        HRESULT PrintFromFileRegisters([in] BSTR filename);
        [id(0x60020004)]
        HRESULT PrintFromXmlEnvelopes([in] BSTR xml_text);
        [id(0x60020005)]
        HRESULT PrintFromXmlNotifications([in] BSTR xml_text);
        [id(0x60020006)]
        HRESULT PrintFromXmlInventories([in] BSTR xml_text);
        [id(0x60020007)]
        HRESULT PrintFromXmlRegisters([in] BSTR xml_text);
        [id(0x60020008)]
        HRESULT PrintEnvelope(
                        [in] BSTR from, 
                        [in] BSTR fromAddress, 
                        [in] BSTR fromZipCode, 
                        [in] BSTR to, 
                        [in] BSTR toAddress, 
                        [in] BSTR toZipCode);
        [id(0x60020009)]
        HRESULT OpenDummyFormToSetAsForeground([out, retval] BSTR* pRetVal);
        [id(0x6002000a)]
        HRESULT CloseDummyFormAndSetAsForeground([in] BSTR process);
        [id(0x6002000b)]
        HRESULT DatabaseIsLoaded([out, retval] VARIANT_BOOL* pRetVal);
        [id(0x6002000c)]
        HRESULT SafeLoadDatabase([out, retval] VARIANT_BOOL* pRetVal);
        [id(0x6002000d)]
        HRESULT GetFlagParseZipIndexFromAddress([out, retval] VARIANT_BOOL* pRetVal);
        [id(0x6002000e)]
        HRESULT SetFlagParseZipIndexFromAddress(
                        [in] VARIANT_BOOL f, 
                        [out, retval] VARIANT_BOOL* pRetVal);
        [id(0x6002000f)]
        HRESULT GetFlagShowFormsAsModal([out, retval] VARIANT_BOOL* pRetVal);
        [id(0x60020010)]
        HRESULT SetFlagShowFormsAsModal(
                        [in] VARIANT_BOOL f, 
                        [out, retval] VARIANT_BOOL* pRetVal);
        [id(0x60020011)]
        HRESULT GetProductVersion([out, retval] BSTR* pRetVal);
        [id(0x60020012)]
        HRESULT GetAPIVersion([out, retval] long* pRetVal);
        [id(0x60020013)]
        HRESULT GetRegisterTemplateNames([out, retval] SAFEARRAY(BSTR)* pRetVal);
        [id(0x60020014)]
        HRESULT PrintFromXmlRegistersWithoutForm(
                        [in] BSTR xml_text, 
                        [in] BSTR nametemplate, 
                        [in] BSTR resultFullPath);
        [id(0x60020015)]
        HRESULT GetWarningType([out, retval] long* pRetVal);
    };

    [
      uuid(5715286E-F98F-4C1C-AC86-AB943AFAE004),
      version(1.0),
      custom(0F21F359-AB84-41E8-9A78-36D110E6D2F9, PEP.COM.PEProApplication)
    ]
    coclass PEProApplication {
        interface _Object;
        [default] interface IPEProApplication;
    };
};