Using COM for OOo with different languages

[hinek]

Seems that this error appears only when i call from an Windows Service. When I call the Method in a normal App, the code works. At least this is a point to start from ... I will stick to it and report.

[rajeshsegu]

Hello Friends,

I have been stuck up with a problem of getting 'NumberFormatter' service from the OpenOffice server using OOCalc Java API. Some of my friends directed

http://www.oooforum.org/forum/viewtopic.phtml?t=37998
http://www.oooforum.org/forum/viewtopic.phtml?t=38002

to use the Global ServiceManager to get an instance of "NumberFormatter" service. I am badly in need of the code on how to get an instance and use Global Service Manager

TO make it more simple, please direct me the OOCalc Java API equalent to

oNumberFormatter = createUnoService("com.sun.star.util.NumberFormatter")

[ The above is in OOBasic ]

Any help would be appreciated.......

Regards,
Rajesh Segu

[zioseri]

Thanks everybody for posting and suggests!
I was getting mad in these days to find a solution both for reflection and hidden mode..

cheers

marco

[mpx200]

can anyone post a solution in vb.net 2005(#develop) for creating new or edit exist .odt document and place text to specific place in to the document.

[diegolaz]

Hi have PHP 5.1.4 with OO.org 2.0.3 just installed.

But I get:

[aleksve]

Seems they finally fixed it in 2.2

[ritchie]

This works to terminate sovffice.exe

[JoGaBar]

--------------------------------------------------------------------------------
Hi:

Schdluded Task: How call (with OLE) "com.sun.star.ServiceManager" ?

I programmed with Harbour (clipper) to processing data make, using
calc, file .xls. This work very, very good and nice in any session,
but this program is necesary work like Scheduled task in my Windows
2000 Server.

Are only 2 or 3 programs and not necesary buy licenc of Microsoft
Office, if can make same with OpenOffice

Error when program is called by Scheduled Task is in:

oServiceManager := TOleAuto():New("com.sun.star.ServiceManager")

How can make work my program ?

[prof72]

I have used the C example to great success, my question is how to call

hr = AutoWrap(DISPATCH_METHOD, &vDocument, pdispDesktop, L"loadComponentFromURL", 4, params[3], params[2], params[1], params[0]);

where params[3] is setup so the app/doc will be hidden?

[sk4977]

How to create an array of PropertyValue objects was also one of the problems I had. It took me a while to figure it out and now things work (mostly), so I wrote a little post about how to get it all to work in C on my blog. Maybe it helps some people (and don't hesitate to tell me if I'm doing something wrong there or if there are easier ways to things).

Now to answer prof72's questions (even if they are like 4 months old and he probably figured things out by now). I wrote a function to create a PropertyValue object (packaged in a VARIANT):

[bluewind3541]

Hi,really good article.
But I'm new here.Known the openoffice API just a month.
Don't understand your article so much.

I've written a macro that can help to convert ppt to jpg.
But I want to invoke it in PHP.I don't know how to do it.
According to your article,I should start oo as a service.Is that right?

This is my macro,can you transplant it to PHP for me?
And how to start oo as a service?

__________________________________________________________
REM ***** BASIC *****

Sub Main
SplitSlides()
End Sub

Sub SplitSlides()
' This is the name of the Impress document to split
' into separate documents.
' Each page of this Impress document is saved as a
' separate document, as a PDF, and also as a Flash.
cImpressDocToSplit = "F:\test.ppt"


' Open the document to find out how many pages it has.
oDoc = OpenDocument( cImpressDocToSplit )

nNumPages = oDoc.getDrawPages().getCount()

' Now that we know how many pages it has, close it.
oDoc.dispose()

' Get the name of the document, but without a filename suffix.
cImpressDocToSplitNoSuffix = Left( cImpressDocToSplit, Len( cImpressDocToSplit ) - 4 )


' Now loop once for each page.
nHighestPageNumber = nNumPages-1
' nPageToSave = 2
For nPageToSave = 0 To nHighestPageNumber

' Open the document.
oDoc = OpenDocument( cImpressDocToSplit )

' Delete all pages except the one we're interested in keeping
' on this loop.
DeleteAllPagesExcept( oDoc, nPageToSave )

' Prepare to save the document in multiple forms.
' First get the new filename to save it under.
cNewName = cImpressDocToSplitNoSuffix + " -- page " + CSTR( nPageToSave + 1 )

' Save the document as a new impress document.


' Save it as a JPG
ExportToJPG( oDoc, cNewName )

' Close the document without saving it.
oDoc.dispose()
Next

End Sub


' Pass in the pathname to an Impress document.
' This opens the document, and returns it.
Function OpenDocument( cImpressDoc )

' Open the Impress document.

' Open the Impress document.
Dim args(0) As New com.sun.star.beans.PropertyValue
'Set the property value to be Hidden=TRUE
args(0).Name = "Hidden"
args(0).Value = TRUE
oDoc = StarDesktop.LoadComponentFromURL( ConvertToURL( cImpressDoc ), "_blank", 0, args() )
' Return the document
OpenDocument() = oDoc
End Function


' Delete all pages of an Impress or Draw document,
' EXCEPT for a certian page that we want to keep.
Function DeleteAllPagesExcept( oDoc, nPageToKeep )
nNumPages = oDoc.getDrawPages().getCount()
nHighestPageNumber = nNumPages-1

' Delete the last page, then the page before that,
' then the page before that, until we get to the
' page to keep.
' This deletes all pages AFTER the page to keep.
nPageToDelete = nHighestPageNumber
Do while nPageToDelete > nPageToKeep
' Get the page.
oPage = oDoc.getDrawPages().getByIndex( nPageToDelete )
' Tell the document to remove it.
oDoc.getDrawPages().remove( oPage )

nPageToDelete = nPageToDelete - 1
Loop

' Delete all the pages before the page to keep.
For i = 0 To nPageToKeep - 1
' Delete the first page.
nPageToDelete = 0
' Get the page.
oPage = oDoc.getDrawPages().getByIndex( nPageToDelete )
' Tell the document to remove it.
oDoc.getDrawPages().remove( oPage )
Next
End Function


Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
Dim oPropertyValue As New com.sun.star.beans.PropertyValue
If Not IsMissing( cName ) Then
oPropertyValue.Name = cName
EndIf
If Not IsMissing( uValue ) Then
oPropertyValue.Value = uValue
EndIf
MakePropertyValue() = oPropertyValue
End Function



Sub ExportToPDF( oDoc, cFilename )
cUrl = ConvertToURL( cFilename + ".pdf" )

oArgs = Array(_
MakePropertyValue( "URL", cURL ),_
MakePropertyValue( "FilterName", "impress_pdf_Export" ),_
)

oController = oDoc.getCurrentController()
oFrame = oController.getFrame()

oDispatcher = createUnoService( "com.sun.star.frame.DispatchHelper" )
oDispatcher.executeDispatch( oFrame, ".uno:ExportTo", "", 0, oArgs() )
End Sub



Sub ExportToSWF( oDoc, cFilename )
cUrl = ConvertToURL( cFilename + ".swf" )

oArgs = Array(_
MakePropertyValue( "URL", cURL ),_
MakePropertyValue( "FilterName", "impress_flash_Export" ),_
)

oController = oDoc.getCurrentController()
oFrame = oController.getFrame()

oDispatcher = createUnoService( "com.sun.star.frame.DispatchHelper" )
oDispatcher.executeDispatch( oFrame, ".uno:ExportTo", "", 0, oArgs() )
End Sub


Sub ExportToJPG( oDoc, cFilename )

Dim sFileUrl As String

sFileUrl = ConvertToURL( cFilename + ".jpg" )
oDrawPage = oDoc.getDrawPages().getByIndex(0)

'creating filter data
Dim aFilterData (7) as new com.sun.star.beans.PropertyValue
'properties valid for all filters
aFilterData(0).Name = "PixelWidth" '
aFilterData(0).Value = oDrawPage.Width*(72/2540) 'convert => mm => inches => pixels (72 points per inch)
aFilterData(1).Name = "PixelHeight"
aFilterData(1).Value = oDrawPage.Height*(72/2540) 'convert => mm => inches => pixels (72 points per inch)

'filter data for the image/jpeg MediaType
aFilterData(2).Name ="Quality"
aFilterData(2).Value = 50
aFilterData(3).Name ="ColorMode"
aFilterData(3).Value = 0

'filter data for the image/png MediaType
'aFilterData(2).Name ="Compression"
'aFilterData(2).Value = 9
'aFilterData(3).Name ="Interlaced"
'aFilterData(3).Value = 0

'filter data for the image/gif MediaType
'aFilterData(2).Name ="Translucent"
'aFilterData(2).Value = true
'aFilterData(3).Name ="Interlaced"
'aFilterData(3).Value = 0

'filter data for the image/bmp MediaType
'aFilterData(2).Name ="Color"
'aFilterData(2).Value = 7
'aFilterData(3).Name ="ExportMode"
'aFilterData(3).Value = 0
'aFilterData(4).Name ="Resolution"
'aFilterData(4).Value = 300
'aFilterData(5).Name ="RLE_Coding"
'aFilterData(5).Value = true
'aFilterData(6).Name ="LogicalWidth"
'aFilterData(6).Value = 2000
'aFilterData(7).Name ="LogicalHeight"
'aFilterData(7).Value = 2000

Dim aArgs (2) as new com.sun.star.beans.PropertyValue

aArgs(0).Name = "MediaType"
aArgs(0).Value = "image/jpeg"
aArgs(1).Name = "URL"
aArgs(1).Value = sFileUrl
aArgs(2).Name = "FilterData"
aArgs(2).Value = aFilterData()

xExporter = createUnoService( "com.sun.star.drawing.GraphicExportFilter" )
xExporter.setSourceDocument( oDrawPage )

xExporter.filter( aArgs() )

End Sub



___________________________________________________________


Thanks a lot!

[augiedog]

I am using C to get a COM IDispatch to the Service manager, and am able to instantiate OOCalc instanace and insert text into cells. I need to be able to color the text and justify it now. That's all, and I'm done. But I have been going nuts trying to figure out how to do this by looking through all the IDL, and sparse COM examples. Basically I need to see an example of how to implement the below BASIC code into COM 'C' code.

THANK YOU VERY MUCH

sub MyText
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Color"
args2(0).Value = 16711680

dispatcher.executeDispatch(document, ".uno:Color", "", 0, args2())