Автоматизация OpenOffice.org Calc при помощи Borland C++ Builder 6.0
7.03.2005
Введение
Очень часто программист сталкивается с необходимостью экспорта данных в MS Excel. В сети очень много материалов на данную тему и решение данной проблемы не вызывает никакого затруднения.
Однако, жизнь меняется. И на рынке офисных пакетов, где ещё недавно безраздельно властвовал Microsoft Office, появился новый участник. В этой статьей я попытаюсь хотя бы частично восполнить недостаток материала по автоматизации OpenOffice.org Calc.
История и краткая характеристика OpenOffice.org
Проект OpenOffice.org начался 13 октября 2000 года, когда были открыты исходные тексты StarOffice. Версия 1.0 вышла летом 2002 года.
С тех пор началось экспансия OpenOffice.org.
Особенно бурно развивается проект в последнее время, буквально один за другим выходят версии 1.1.1, 1.1.2, 1.1.3, недавно вышла версия 1.1.4.
Складывается впечатление, что развитие ветки 1.1 остановлено, в версии 1.1.4 не добавлено новой функциональности, она посвящена исправлению ошибок.
Все силы разработчиков направлены на версию 2.0, которая должна выйти в этом году.
Из одного исходного кода, разрабатываемого сообществом OpenOffice.org, выпускаются два продукта: StarOffice, в который добавляются компоненты под проприетарной лицензией и свободный OpenOffice.org. В настоящее время в OpenOffice.org большинство проприетарных компонентов, присутствующих в StarOffice заменено их свободными аналогами.
На данный момент пакет работает в среде Linux, Solaris, Windows и многих дистрибутивах Unix-ориентированных операционных системах.
- текстовый процессор и редактор HTML Writer
- электронная таблица Calc
- программа создания презентаций Impress
- векторный графический редактор Draw
Функционально пакет покрывает все потребности обычного пользователя. Кроме того, он хорошо работает с форматами Microsoft Office.
Следует отметить, что файловые форматы Microsoft Office являются закрытыми стандартами Microsoft. Поэтому хорошая совместимость данных форматов с OpenOffice.org – большое достижение разработчиков OpenOffice.org.
Сам же OpenOffice.org для своих приложений использует открытые и хорошо специфицированные форматы на основе XML. Они представляют собой zip-архивы, в которых содержится информация из файлов в формате XML. Благодаря сжатию файлы получаются очень компактными.
Работа с OpenOffice.org
Итак, начнём работу с OpenOffice.org.
Я постараюсь показать основные приёмы работы с OpenOffice.org. Не забудьте скачать пример к статье, в котором показана работа с OpenOffice.org более подробно, чем в статье.
Хочу обратить внимание, на то что мне не удалось импортировать Type Library из файла soffice.exe, или какого либо другого файла, возможно, что просто плохо искал.
Скорее всего, дело в том, что OpenOffice.org не поддерживает автоматизацию напрямую. Что в принципе не удивительно, если принять во внимание, что OpenOffice.org всё же межплатформенный продукт, а технология COM, частью которой является автоматизация, всё же технология для Windows.
OpenOffice.org базируется на компонентной модели UNO (Universal Network Objects). Для поддержки автоматизации используется Automation Bridge, который преобразует вызовы COM в вызов функций UNO, а возвращаемые UNO объекты в объекты автоматизации.
Создание экземпляра OpenOffice.org
try
{
ServiceManager = CreateOleObject("com.sun.star.ServiceManager");
}
catch (...)
{
return false;
}
if (VarType(ServiceManager) == varDispatch)
Desktop = ServiceManager.OleFunction("createInstance",
"com.sun.star.frame.Desktop");
Как следует из данного примера кода, стартовая точка для любого контроллера автоматизации – это ServiceManager. Для создания экземпляра ServiceManager мы вызываем функцию CreateOleObject, содержащуюся в модуле ComObj библиотеки VCL. В качестве параметра функции передаётся имя объекта, экземпляр которого мы хотим создать. Функция возвращает ссылку на интерфейс, который может быть использован для связи с объектом. Тип данного интерфейса – IDispatch. Результат присваивается переменной типа вариант.
Как показывает практика, в системе может быть создан только один экземпляр ServiceManager, то есть использование GetActiveOleObject при уже созданном экземпляре ServiceManager даст тот же самый результат, что и при использовании CreateOleObject.
При помощи строки VarType(ServiceManager) == varDispatch проверяем, что именно у нас лежит в данной переменной. Я в примере к статье не использую данную проверку исключительно с целью улучшения читабельности кода. Однако при написании реального приложения, наверное, надо использовать данную проверку при каждом использовании вариантной переменной, от которой мы ожидаем, что она хранит ссылку на интерфейс IDispatch, например, при вызове OleFunction или OlePropertySet / OlePropertyGet.
Затем создаём экземпляр Desktop, который используется для открытия существующих или создания новых документов.
Итак, иерархия объектов такова: ServiceManager > Desktop > Document.
Создание или открытие документа
Document = Desktop.OleFunction("LoadComponentFromURL",
FilePath, "_blank", 0, VariantArray );
if (VarType(Document) == varDispatch)
Sheets = Document.OleFunction("getSheets");
Для данных целей используем функцию LoadComponentFromURL.
Если в переменной FilePath будет равна "private:factory/scalc", то будет создан новый документ OpenOffice.org Calc. Для других приложений OpenOffice.org scalc заменяется соответственно на swriter, simpress, sdraw.
Если в данной переменной содержиться URL файла, то произойдёт открытие файла. URL мы получаем из пути файла при помощи функции convertToURL, которая реализована в примере.
Параметр “_blank” указывает на то, что файл должен открыться в новом окне.
В вариантном массиве содержаться опции открытия документа, в виде пар название опции – значение опции. Например, может быть мы не хотим показывать окно OpenOffice.org, тогда мы можем передать данной функции массив содержащий пару : Hidden (название опции) – true(значение опции). Более подробно смотрите в примере.
После получения ссылки на Document, можно сразу получить ссылку на коллекцию листов Sheets, всё равно впоследствии она пригодиться.
Вставка нового листа
Sheets.OleFunction("insertNewByName", NewSheetName, i);
В данном случае NewSheetName – имя нового листа, i – индекс нового листа. Для вставки в самое начало используем 0, для того, что бы новый лист стал бы последним, передаём в качестве параметра количество листов Sheets.OleFunction("getCount").
Перед вставкой полезно убедиться, что таблицы с данным именем пока не существует Sheets.OleFunction("hasByName", sheetName).
После вставки таблицы её можно показать пользователю:
Sheets = Document.OleFunction("getSheets");
Sheet = Sheets.OleFunction("getByName", sheetName);
View = Document.OleFunction("getCurrentController");
View.OleFunction("setActiveSheet", Sheet);
Запись данных в ячейку
Перед записью данных в ячейку, необходимо получить ссылку на ячейку:
Cell = Sheet.OleFunction("getCellByPosition", col, row);
Итак, схема взаимодействия такова: ServiceManager > Desktop > Document > Sheets > Sheet > Cell
Другими словами нам необходимо последовательно получить ссылки на все эти объекты, для того чтобы добраться до ячейки, примерно таким образом:
ServiceManager = СreateOleObject("com.sun.star.ServiceManager"); Desktop = ServiceManager.OleFunction("createInstance", "com.sun.star.frame.Desktop"); Document = Desktop.OleFunction("LoadComponentFromURL", “private:factory/scalc”, "_blank", 0, VariantArray ); Sheets = Document.OleFunction("getSheets"); Sheet = Sheets.OleFunction("getByName", “Sheet1”); Cell = Sheet.OleFunction("getCellByPosition", 0, 0);Данный код, можно записать и короче, что, конечно, снизит его читабельность:
ServiceManager = СreateOleObject("com.sun.star.ServiceManager"); Cell = ServiceManager.OleFunction("createInstance", "com.sun.star.frame.Desktop").OleFunction ("LoadComponentFromURL", “private:factory/scalc”, "_blank", 0, VariantArray ).OleFunction("getSheets"). OleFunction("getByName", “Sheet1”). OleFunction("getCellByPosition", 0, 0);
У ячейки есть три метода для записи данных. Названия говорят сами за себя: setString, setValue, setFormula.
Для записи даты я записывал её в ячейку просто как строку.
Также можно записывать дату в ячейку при помощи формулы: ”=DATE(2004;12;31)”. При этом форма представления даты будет зависеть от установки OpenOffice.org Locale setting.
Понятно, что при больших объёмах данных, где речь идёт хотя бы о нескольких тысячах данных вызывать OLE – метод для каждой ячейки нерационально вместо этого можно воспользоваться Range.OleFunction("setDataArray", VariantArray);
Чтение данных из ячейки
Чтение данных можно поделить на два этапа.
1. Получение типа содержимого ячейки:
Cell.OleFunction("getType")
Возвращаемые данной функцией значения:
- 0 - пустое значение
- 1 - число
- 2 – текст
- 3 – формула
2. В зависимости от полученного значения, дальше используем соответствующие методы:
switch (contentType)
{
case 1 :
return Cell.OleFunction("getValue");
case 2 :
return Cell.OleFunction("getString");
case 3 :
return Cell.OleFunction("getFormula");
default :
return "";
}
Установка ширины столбца
Column.OlePropertySet("width", 1000); //1000 = 1см
или
Column.OlePropertySet("optimalWidth", true); //Excel AutoFit
Вставка столбцов
Данный код вставит три колонки в начале листа. Подобный метод можно применить и к строкам листа, предварительно получив ссылку при помощи Sheet.OleFunction (“getRows”).
Columns = Sheet.OleFunction("getColumns");
Columns.OleFunction("insertByIndex", 0, 3);
Форматирование ячеек
Установка параметров шрифта для ячейки или диапазона ячеек
Переменная font типа TFont.
При передаче цвета необходимо преобразовать TColor в RGB цвет.
Cell.OlePropertySet("charColor",
(TColor)RGB(GetBValue(font->Color),GetGValue(font->Color),
GetRValue(font->Color)));
Cell.OlePropertySet("charHeight", font->Size);
Cell.OlePropertySet("charFontName", (WideString)font->Name);
Cell.OlePropertySet("charWeight", 150*font->Style.Contains(fsBold));
Cell.OlePropertySet("charUnderline", font->Style.Contains(fsUnderline));
Cell.OlePropertySet("charPosture", font->Style.Contains(fsItalic));
Cell.OlePropertySet("charStrikeout", font->Style.Contains(fsStrikeOut));
Cell.OlePropertySet("charFontCharSet", font->Charset);
Установка фона для ячейки или диапазона ячеек
Cell.OlePropertySet("cellBackColor",
(TColor)RGB(GetBValue(color),GetGValue(color),GetRValue(color)));
Рисование рамок для ячейки или диапазона ячеек
MyStruct = ServiceManager.OleFunction
("Bridge_GetStruct","com.sun.star.table.BorderLine");
MyStruct.OlePropertySet("color", ColorToRGB(clBlack));
MyStruct.OlePropertySet("lineDistance", 0);
MyStruct.OlePropertySet("innerLineWidth", 0);
MyStruct.OlePropertySet("outerLineWidth", 1);
Cell.OlePropertySet("leftBorder", MyStruct);
Cell.OlePropertySet("rightBorder", MyStruct);
Cell.OlePropertySet("topBorder", MyStruct);
Cell.OlePropertySet("bottomBorder", MyStruct);
Печать
Данный код производит печать на принтер по умолчанию.
int Bounds[2] = {0,-1};
Document.OleFunction("print", VarArrayCreate(Bounds, 1, varVariant));
Форматирование страницы перед отправкой на принтер:
StyleFamilies = Document.OleFunction("getStyleFamilies");
PageFamilies = StyleFamilies.OleFunction("getByName","PageStyles");
PageStyleName = Sheet.OlePropertyGet("PageStyle");
PageStyle = PageFamilies.OleFunction("getByName",PageStyleName);
PageStyle.OlePropertySet("headerIsOn",true);
PageStyle.OlePropertySet("headerIsShared",true);
HeaderLeft = PageStyle.OlePropertyGet("leftPageHeaderContent");
HeaderText = HeaderLeft.OleFunction("getCenterText");
HeaderText.OlePropertySet("string","My test header");
PageStyle.OlePropertySet("leftPageHeaderContent",HeaderLeft);
Свойство “headerIsOn” отвечает за видимость заголовков.
Свойство “headerIsShared” определяет является ли заголовок одинаковым для левых и правых страниц.
Аналогичные функции существуют и для footer: “footerIsOn”, “footerIsShared”.
Сохранение документа.
Для сохранения в формате OpenOffice.org:
Document.OleFunction ("storeAsURL", convertToURL(fileName), VariantArray);
Для сохранения в другом формате, например формате Microsoft Excel, надо заполнить массив с опциями сохранения документа. Обратите внимание, что используется функция “storeToURL”, а не “storeAsURL” как в предыдущем примере:
Variant VariantArray;
int Bounds[2];
Bounds[0] = 0;
Bounds[1] = 0;
Variant MyStruct = ServiceManager.OleFunction("Bridge_GetStruct",
"com.sun.star.beans.PropertyValue");
MyStruct.OlePropertySet("name","FilterName");
MyStruct.OlePropertySet("value","MS Excel 97");
VariantArray = VarArrayCreate(Bounds, 1, varVariant);
VariantArray.PutElement(MyStruct, 0);
Document.OleFunction ("storeToURL", convertToURL(fileName), VariantArray);
Закрытие документа
Document.OleFunction("close", true);
Document = Unassigned();
Закрытие офиса.
Desktop.OleFunction("terminate"); //не закроет QuickStarter
Desktop = Unassigned();
Аналог ScreenUpdating от Excel.
У Excel существует функция отключения вывода на экран, что позволяет повысить скорость работы при выводе больших объемов данных.
Аналог данной функции для OpenOffice.org:
Отключение вывода
Document.OleFunction("lockControllers");
Document.OleFunction("addActionLock");
Включение вывода
Document.OleFunction("unLockControllers");
Document.OleFunction("removeActionLock");
Заключение
Надеюсь, что данная статья, несмотря на её краткость, окажется полезной для тех, кто делает первые шаги в автоматизации OpenOffice.org Calc.
Я не пытался в данной статье охватить все аспекты работы с OpenOffice.org, в принципе это и невозможно в рамках одной статьи. Однако, я надеюсь, что основные приёмы работы освещены достаточно подробно.
Пример работы с OpenOffice.org Calc.
Данный пример был протестирован на следующих конфигурациях:
- WinXp SP1 + OpenOffice.org 1.1.2
- WinXp SP1 + OpenOffice.org 1.1.3
- WinXp SP2 + OpenOffice.org 1.1.3
Во всех случаях использовалась английская версия OpenOffice.org с отключенным Quickstarter.
Пример не тестировался на системах Windows 95/98. Есть предположение, что для корректной работы потребуется запущенный Quickstarter.
На всех системах в установках OpenOffice.org было установлено Locale setting – English (USA).
Для компиляции использовался Borland C++ Builder 6 Enterprise.
Источники информации
- OpenOffice.org: Home Page – http://www.openoffice.org/. Рекомендуется скачать SDK - http://www.openoffice.org/dev_docs/source/sdk/
- OpenOffice.org для русскоговорящих пользователей http://ru.openoffice.org/.
- OpenOffice.ru - http://www.openoffice.ru/
- OpenOffice.org Forum at OooForum.org – http://www.oooforum.org/
Запрещается перепечатка данной статьи или ее части без согласования с автором.
Оставить комментарий
Комментарии
Немножко обшиблись: PropertyValue. Бывает.
И еще:
WideString OOCalcAuto::convertToURL(WideString FileName)
{
AnsiString URL = "";
for (int i = 1; i <= FileName.Length(); i++)
{
char ch = (char)FileName;
switch (ch)
{
case ' ' :
URL += "%20";
break;
case '\\' :
URL += "/";
break;
default :
URL += ch;
}
}
return "file://localhost/" + URL;
}
Может быть лучше WideString URL и wchar_t ch = (wchar_t)FileName;?
Вроде как бы в России живем...
