Работа в Delphi6 с LibreOffice

@vic2603 · Регистрация: 07.04.2016

Author24 — интернет-сервис помощи студентам

доброго времени суток!
Подскажите, пжл, где можно найти доки по работе в Delphi 6 c LibreOffice?
Проблема в том, что все мои проги написаны с выгрузкой данных в MS Excell. А сейчас в связи с импортозамещением приказано удалить MS Office и установить LibreOffice. Нигде норм документации не могу найти как в электронную таблицу в LibreOffice создать и выгрузить туда данные.

@Hikari · 07.04.2016, 10:36

Создание объекта:

Delphi

1 2	StarOffice := CreateOleObject('com.sun.star.ServiceManager'); StarDesktop := StarOffice.createInstance('com.sun.star.frame.Desktop');

Открытие файла:

Delphi

LibreParam:=CreateParams([]);
Document := StarDesktop.LoadComponentFromURL('file:///'+StringReplace(FileName,'\','/',[rfReplaceAll]), '_blank', 0,LibreParam); 
   Controller:=Document.getcurrentController;
   CurrentSheet:=Controller.getActiveSheet;

Работа с ячейками:

Delphi

1 2	CurrentCell := CurrentSheet.getCellByPosition(aCol-1,aRow-1); CurrentCell.Value:=...

Все переменные OleVariant.
Поиск по словам, использованным в коде выведет на литературу и описание на сайте Apache Office.
Можешь еще поискать книгу Марка Александра Бейна.

@vic2603 · 07.04.2016, 11:16 **[ТС]**

спасибо огромное! вот как раз такой код уже пробовал...

LibreParam:=CreateParams([]); - вот это что такое?
(Type of actual and formal var parameters must be identical)

как раз с 4 параметром в LoadComponentFromURL('file:///'+StringReplace(FileName,'\','/',[rfReplaceAll]), '_blank', 0,LibreParam) проблемка

я ещё видел такой вариант:
Doc := Desktop.LoadComponentFromURL('private:factory/scalc', '_blank', 0,
VarArrayCreate([0, -1], varVariant));

@krapotkin · 07.04.2016, 12:32

http://www.openoffice.org/development/

есть библиотека
http://yuri.elmeh.ru/

@vic2603 · 07.04.2016, 12:45 **[ТС]**

всем спасибо! разобрался

@vic2603 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 3
		1
	Работа в Delphi6 с LibreOffice 07.04.2016, 10:26. Показов 3818. Ответов 4 Метки нет (Все метки) доброго времени суток! Подскажите, пжл, где можно найти доки по работе в Delphi 6 c LibreOffice? Проблема в том, что все мои проги написаны с выгрузкой данных в MS Excell. А сейчас в связи с импортозамещением приказано удалить MS Office и установить LibreOffice. Нигде норм документации не могу найти как в электронную таблицу в LibreOffice создать и выгрузить туда данные. 0

@vic2603 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 3
	07.04.2016, 11:16 [ТС]	3
	спасибо огромное! вот как раз такой код уже пробовал... LibreParam:=CreateParams([]); - вот это что такое? (Type of actual and formal var parameters must be identical) как раз с 4 параметром в LoadComponentFromURL('file:///'+StringReplace(FileName,'\','/',[rfReplaceAll]), '_blank', 0,LibreParam) проблемка я ещё видел такой вариант: Doc := Desktop.LoadComponentFromURL('private:factory/scalc', '_blank', 0, VarArrayCreate([0, -1], varVariant)); 0

@krapotkin 5841 / 4573 / 1443 Регистрация: 14.04.2014 Сообщений: 20,306 Записей в блоге: 20
	07.04.2016, 12:32	4
	http://www.openoffice.org/development/ есть библиотека http://yuri.elmeh.ru/ 0

@vic2603 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 3
	07.04.2016, 12:45 [ТС]	5
	всем спасибо! разобрался 0

Опции темы