can this also be done in java? i use java, by the way.
but thanks for the help. i really appreciate them.
Fernand Vanrie wrote:
>
> allirpa ,
>
> this is soem code how it can be done from images in a database
>
> for images stored on disc change the input stream URL to a file URL
>
> hope it helps
>
> Fernand
>
> ' finds which rows in the DataSourceBrowser are selected by the user
> Dim frame1 As Object, frame2 As Object
> Dim oModel As Object, oRowset As Object
> Dim oDocument As Object, oGrid As Object
> Dim oDataSourceBrowser as Object
> Dim oSelection as Variant, ii As Long
> oDoc = thiscomponent
> oDocument = thiscomponent
> frame1 = oDocument.CurrentController.Frame
> frame2 = frame1.findFrame("_beamer",4) ' get DataBrowser frame
> if IsNull(frame2) then
> MsgBox("Beamer not found !", 16)
> Exit Sub
> end if
> oDataSourcebrowser = frame2.Controller
> ' the DataSourceBrowser object has several getModel methods
> ' choose getModel from interface com.sun.star.awt.XTabController
> ' to get the form used by DataSourceBrowser
> oModel = oDataSourcebrowser.com_sun_star_awt_XTabController_getModel
> ' creating a "clone" of the form
> oRowset = oModel.createResultSet
>
> oGrid = oDataSourceBrowser.CurrentControl
> oSelection = oGrid.Selection
>
> if UBound(oSelection) >= 0 then ' we get a list of Bookmarks
> For ii= 0 To UBound(oSelection) and bStop <> true
> if oRowset.moveToBookmark(oSelection(ii)) then
> ' MsgBox( oRowset.Columns(0).String & " : " &
> oRowset.Columns(4).String )
> else
> MsgBox("Bookmark not found : " & oSelection(ii), 16)
> exit sub
> end if
> oStream = oRowset.Columns(1).getbinarystream(1)
> REM Author: Stephan Wunderlich. Two lines added by ms777 and completed
> by Fernand
> Dim oShape
> Dim oProvider 'GraphicProvider service.
> oShape = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
> oGraphic = oDoc.createInstance("com.sun.star.text.GraphicObject")
> oDoc.getDrawPage().add(oShape)
> oProvider = createUnoService("com.sun.star.graphic.GraphicProvider")
> Dim oProps(0) as new com.sun.star.beans.PropertyValue
> oProps(0).Name = "InputStream"
> oProps(0).Value = oStream
> ' oProps(0).Name = "URL"
> ' oProps(0).Value = sGraphicURL
> oShape.Graphic = oProvider.queryGraphic(oProps())
> oGraphic.GraphicUrl = oShape.GraphicUrl
>
> ' Insert at the current cursor location
>
> oDOc.text.insertTextContent(oDoc.getCurrentController().getViewCursor(),
> oGraphic, false)
> ' We no longer require the shape object.
> oDoc.getDrawPage().remove(oShape)
>
>
>
>
> wrote:
>> is there even a way on how to convert an applet to be able to insert it
>> to an
>> open office document?
>> here's the scenario: I have an addon button in open office writer that
>> opens
>> an applet when clicked.
>> when I close the button, the graphics rendered in the applet must be
>> transferred to the document.
>> is this possible?
>>
>> any help is greatly appreciated.
>>
>> thanks in advance.
>>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]
>
>
>
--
View this message in context:
http://www.nabble.com/help%21-applet-to-image-conversion-tp22300591p22308332.html
Sent from the openoffice - api dev mailing list archive at Nabble.com.
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
