[es] - Export podataka iz Delphi aplikacije u OpenOffice Calc, kako?

dogriz
Sombor

Član broj: 29744
Poruke: 259
*.dynamic.sbb.rs.

Sajt: dogriz.blogspot.com

+6 Profil

Export podataka iz Delphi aplikacije u OpenOffice Calc, kako?

^{28.04.2010. u 15:24 - pre 170 meseci}

Instalirao sam OpenOffice SDK, ali nešto ne pronalazim primere za rad sa Delphi-jem. Ima za C++, VB, Java-u, ali ne i za Delphi.

Da li je neko radio export podataka iz Delphi aplikacije u OpenOffice Calc?

Inače, koristim TD2006 Win32, ali primer za bilo koju verziju bi mi dobro došao.
Hvala

Odgovor na temu

sasaz2008

Član broj: 200415
Poruke: 204
*.adsl.eunet.rs.

+4 Profil

Re: Export podataka iz Delphi aplikacije u OpenOffice Calc, kako?

^{28.04.2010. u 15:51 - pre 170 meseci}

Pogledaj linkove sa ove stranice http://development.openoffice.org/

Takodje, trebalo bi da bude nekih primera za Delphi u samom SDK-u.

Odgovor na temu

nikomak
Nikola Makić
Beograd

Član broj: 177053
Poruke: 65
*.adsl.eunet.rs.

+1 Profil

Re: Export podataka iz Delphi aplikacije u OpenOffice Calc, kako?

^{28.04.2010. u 21:39 - pre 170 meseci}

Upravljanje OO programima iz delphi-ja je moguce putem COM-a, slicno kao i za MS Office.
Moguce je da danas postoji i prevod API-a u pascal, ali ne bih znao :-)
Ranije sam koristio Delphi OOo toolbox, pa pokusajte sa njim. http://www.ooomacros.org/dev.php#133853

TurboDispatchJumpAddressEnd
----
Knocka Fia
----
And so we meet, again in a different time

Odgovor na temu

dogriz
Sombor

Član broj: 29744
Poruke: 259
*.dynamic.sbb.rs.

Sajt: dogriz.blogspot.com

+6 Profil

Re: Export podataka iz Delphi aplikacije u OpenOffice Calc, kako?

^{29.04.2010. u 12:25 - pre 170 meseci}

Pregledao sam malo SDK i nisam našao Delphi primere, ali zato OOo toolbox, iako je dosta star, funkcioniše i sa verzijom 3.2 OpenOffice-a. Dato je dosta primera iz kojih ću moći izvući šta mi treba.
Evo početnog primera:

Code (delphi):

procedure TForm1.Button1Click(Sender: TObject);

var

  OpenOffice, StarDesktop, OOoCalc: Variant;

begin

  OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); //initiate COM interface towards OpenOffice

  StarDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');

  OOoCalc := StarDesktop.loadComponentFromURL('private:factory/scalc', '_blank', 0, VarArrayCreate([0, -1], varVariant));

  OOoCalc.Sheets.getByIndex(0).getCellRangeByName('A1').String := 'Vrednost1';

  OOoCalc.Sheets.getByIndex(0).getCellByPosition(1, 0).Value := 1000.0;

  //OOoCalc.Close(True);

end;

Odgovor na temu