Занимаюсь переводом документооборота юридической организации с MS Office на OpenOffice.org. Для начала скачал SDK, начиталсся api. Все было бы замечательно, если бы писал на .NET или Java, там просто подключаются сборки и все просто. Через COM в Delphi 7 почему то не все работает
Вот например кусок кода, как быстро выгрузить в OpenOffice.org большой массив данных:
var ServiceManager,vDesktop,Excel,Sheets,Sheet,Range:Variant;
    i,j:integer;
begin
..........
  ServiceManager := CreateOleObject('com.sun.star.ServiceManager');
  vDesktop := ServiceManager.createInstance('com.sun.star.frame.Desktop');
  Excel := vDesktop.LoadComponentFromURL('file:///'+Shablon,'_blank',0,VarArrayCreate([0, - 1], varVariant));
//В случае, если необходимо создать новый документ, пишем:
//Excel := vDesktop.LoadComponentFromURL('private:factory/scalc','_blank',0,VarArrayCreate([0, - 1], varVariant))
  Sheets := Excel.GetSheets;
  Sheet:=Sheets.getByIndex(0);
//Выгружаем на лист данные объекта Grid типа TStringGrid
  Range:= VarArrayCreate([1,Grid.ColCount,1,Grid.RowCount],varVariant);
  For i:=0 to Grid.RowCount-1 do
    For j:=0 to Grid.ColCount-1 do
      Range[j+1,i+1]:=Grid.Cells[j,i];
  Sheet.getCellRangeByName(PointToRange(X,Y)+':'+PointToRange(X+Grid.ColCount-1,Y+Grid.RowCount-1)).setDataArray(Range);
end;

Стоит отметить, что функция VarArrayCreate создает массив из объектов типа varVariant, в данном случае - Variant, с двумя измерениями, где первый индекс изменяется от 1 до Grid.ColCount, второй от 1 до Grid.RowCount.
Sheet.getCellRangeByName может вызвать RunTime Exception в случае если размерность Range не совпадает с диапозоном, куда эти данные помещаются, а именно: PointToRange(X,Y)+':'+PointToRange(X+Grid.ColCount-1,Y+Grid.RowCount-1)

Для справки: удобная функция
Function PointToRange(X,Y:Integer):String;
Var S1,S2:String; k:Integer;
Begin
  Repeat
    k:=X mod 27;
    S1:=Letters[k+1]+S1;
    k:=X div 26;
  until k<=X;
  S2:=IntToStr(Y+1);
  Result:=S1+S2
End;
, где Const Letters='ABCDEFGHIJKLMNOPQRSTUVWXYZ';

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

Всем привет, заглянул снова и что вижу... Новый читатель!!! Интересно до безумия. Конечно классно, рад новым людям. Кстати FunFi наверное посиживает в самарском чате. Если нет, то странно. Интересный Людасик. Столько друзей, даже не знаешь то ли ты туда по ошибке попал, то ли ну не знаю. Хочется конечно побольше постоянных читателей. Сам удивляюсь, зачем постоянно читать мои сообщения. ЛЮДИ... Здесь нет абсолютно ничего интересного, вам даже не на что оставлять комментарии, потому что здесь я стараюсь писать для себя, а у вас от мой личной ерунды только ящик засоряться будет. Почему-то я здесь интересных историй и анекдотов не оставляю. Почему, не знаю сам. Надо подумать. Фотоальбом пуст, скукотища. Не знаю, стоит ли что либо менять.
Кому-то может показаться, что я нарваюсь на какие-то хорошие слова, ни капли. Все абсолютная правда...
Специально для Людасика: привет тебе и светлому, ясному городу Краснодару. Рад тебе и в то же время не хочется быть просто очредной надписью в твоем списке друзей, потому желаю тебе и себе, чтобы взаимное дневниковедение было приятным, ясным, светлым, хорошим. Всего тебе хорошего, счастья и удачи во всем...

Блин, что такое творится, почему мне даже нечего написать в дневнике. Уже сколько времени прошло с последней записи. Писать просто не о чем. Почему? Не знаю, каждый денек играю в футбол, класс.
Ходил на Волгу, обгорел, как поджарившийся поросенок. На работе все вроде хорошо. Надо бы опять на речку, но уже целую неделю идут дожди. Где обещанное глобальное потепление? Постоянно разрешаемые проблемы и вопросы на работе повышают настроение и уверенность в себе. Надо как-то разнообразить жизнь.
Прикол: пошел вчера менять паспорт, составили на меня протокол об административном правонарушении, типа почему так долго не менял!!! Хорошо хоть штраф не взяли, а протоколы пусть пишут...

Блин...
Лето идет, а кругом работа, напряг (не сильный правда), но постоянный, зудящий, надоедающий и постоянный. В четверг пойду на Волгу, наплаваюсь вдоволь. Почему бы не пойти завтра? А просто завтра командировка в Тольятти. Всем Тольяттинским привет.
Все родные разъехались на море, не знаю, как теперь быть с едой!!! Может быть помру с голоду. Тогда не поминайте лихом!
Прошла уже половина лета. Почему бы не задуматься над этим.
В пятницу отлично отмечали тройной день рождения на работе!!! Приятные люди, вкусная еда и отличная выпивка делают свое дело, создавая офигенное настроение на весь следующий день... ЕЩЕ хочу...

Сегодня опять жара, но только не такая как обычно, а дикая, 35 по Цельсию. Конечно хорошо, надо идтить на Волгу, но только не хочется никуда идтить. Вчера весь день практически просидел дома. Сегодня на работе попросили задержаться, доделать смертельно важные дела. Ну что, ж придется остаться, хотя сегодня хоел поехать выяснить насчет распределения по специализациям (а то вдруг запишут непонятно куда...).
Все, решил, завтра поеду не Волгу и буду там плавать до одурения...
Рад за чехов до безобразия, хотя датчан тоже люблю. Их настойчивость. настырность, стремление к победе, но чехи их переплюнули по всем этим показателям. Судя по всему, греки проиграют, хотя, выиграть у французов многого стоит!!! УРРААА Euro2004.

А жаль. Во вторник ездили в Тольятти совещаться с нашими самыми крутыми разработчиками. Вроде как все было на мази, проект отдавали нам в Самару, типа делайте ребята. Это разработка Управленческого учета и бюджетирования ля АК Транснефть. Вскоре после этого директор засомневался и теперь вообще идут разговоры об отмене разработки. Пока еще ничего не решено, просто очень не хочется оставаться без очень интересного и перспективного проекта.

"ты любишь свободу"




Пройти тест "какое ты животное"

"В том самом месте"

Не верьте тому, кто сказал, что всё делается через это самое место. Вас жестоко обманули.


Пройти тест "В чём сила, брат?"

"...для меня конечно эта фраза отвратительна..."

Но с такой репликой пройти по жизни уверенно, и так же уверенно ее закончить хорошо бы.Поздравляю.


Пройти тест "А зачем тебе жизнь, и чего ты ждешь от нее?"

Все, отмучался, получил сегодня экономику (5). Последний экзамен автомат. Не верится в то, что больше не надо ничего учить до сентября. Теперь осталась только работа. Надо на ней сконцентрироваться и сделать за это лето себе карьеру, в смысле получить огромный вес в глазах начальства. Надо много чего сделать. Здесь много недоделаных дел (тавтология). Но зато теперь я на четвертом курсе... УРРААА!!!
Поздравляю сам себя и всех кто доволен своими успехами в этом семестре!!!

УРРААА!!! Суегодня сдал Операционные системы. На пять. Супер. Остался один экзамен. Экономика. Одна знакомая девчонка сегодня защитила диплом по экономике на пять. Красный диплом у нее теперь будет вот это тоже классно!!!
Всем удачной сдачи сессии. Уже скоро конец, скоро лето, народ, крепитесь!!!

Сегодня пришел на работу с утра, как-то странно: почему-то ничего не клется, целый день долбался, так практически ничего и не получилось. Буду конечно пыхтеть дальше, куда деваться, только на меня надежда. Просто никак не разберусь со структурой данных.
Недеюсь, скоро все срастется, просто надо пахать на благо Родины.
Давайте делать то что каждый должен на высочайшем уровне...

Вчера был довольно интересный случай. Решил я себе купить TV-tuner. (телевизор не прикольно да и у меня в комнате его некуда поставить, два компа все загромождают). Значит, прихожу в магазин, нашел, покупаю, проверяю комплектность - не хватает антенны для FM-тюнера. В остальных магазинах (по крайней мере у нас в Самаре) они бы сказали извините, недокомплкт, подождите следующего завоза... А здесь, как-то непривычно получилось: подключились два менеджера, два ну типа местных специалиста, кассир, давай думать что же делать. В итоге, взяли антенну от какого-то FM-тюнера, перепаяли разъем и вроде как все нормально, поблагодарили за покупку...
Сервис короче на хорошем уровне, приятно.
В итоге, приехал домой, поставил, все шоколадно, отлично, мне нравится... Народ не покупайте телевизоры, покупайте большие мониторы и TV-тюнеры (они могут сразу DVD кодировать).
Всем удачных покупок....

Урррааа... Сдал сегодня утром экзамен. Микропроцессорные средства автоатизации на 5... Урррааа. Ничто не проходит бесследно. Готовился, вот и сдал. Следующее - Операционные системы. Если кому интересно, то вопрос мне попался по организации микроконтроллера AVR фирмы Atmel.
Так как у всех сейчас сессия, желаю приятной сдачи экзаменов, т.е. чтобы от них голова не раздувалась как воздушный шарик чтобы не пришлось потом все лето от этого отходить...
Всем удачи.!!!

Вчера вечером пришел с работы, решил немного поучиться, лег почитать лекции, два разика уснул, проснулся, почитал, уснул, почитал, уснул. (repeat until false). Надо сегодня впритык заняться экзаменом, все-таки вопросов понадавали 7 страниц 10-м шрифтом... Нереально... Всем кого сессия, желаю удачи, пятерок... Поскорее бы июль...

Вчера отлично поиграл в футбол... Все-таки тяжело играть с ребятами, которые занимаются в ФК "Крылья Советов", но зато интересно. Чуть не убили пару ребятишек, которые бегали вокруг.
Пришел на работу, надо бы поработать.
Сегодня с утра был дождик, классно, а то три дня жары под 35 градусов, не знаешь куда от нее деться.
Всем всего всего всего...

Кстати про чат SamaraChat, стал я туда частенько заглядывать, только вот что-то сегодня зайти не удается. Кто хочет пообщаться, заходите...

Полистал чужие дневнички, пооставлял комментарии.
Скоро первый экзамен в этом семестре, надо сдавть
1. Микропроцессорные средства автоматизации
2. Операционные системы
3. Экономику
4. Моделирование систем (уже получил автомат)

Надеюсь все сдать.

Мечтаю о пебеде наших в Португалли (в смысле хотя бы чтобы из группы вышли)
Всем удачи...

Вот недавно узнал проочень хороший чат samarachat, там все наши самарские общаются, приятно. А еще очень хочется работать... И вместе с тем, жизнь хороша, когда ...