Export podataka iz Delphi aplikacije u OpenOffice Calc, kako?

Odgovori Nova tema

3 odgovora
4.738 pregleda

Export podataka iz Delphi aplikacije u OpenOffice Calc, kako? 28.04.2010. u 16:24 · pre 201 mesec #1

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

Re: Export podataka iz Delphi aplikacije u OpenOffice Calc, kako? 28.04.2010. u 16:51 · pre 201 mesec #2

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

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

Re: Export podataka iz Delphi aplikacije u OpenOffice Calc, kako? 28.04.2010. u 22:39 · pre 201 mesec #3

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

Potpis

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

Re: Export podataka iz Delphi aplikacije u OpenOffice Calc, kako? 29.04.2010. u 13:25 · pre 200 meseci #4

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;

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme