help with ClipBoardManager context

[Fernand Vanrie]

hallo,

need some help with creating the right "context" in BASIC for accessing
the ClipBoardManager object

so far if found:

oClipboard =
ServiceManager.createInstanceWithContext("com.sun.star.datatransfer.clipboard.ClipboardManager",oContext)

how do i create the oContext ?

Thanks for any hint

Fernand

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@...
For additional commands, e-mail: dev-help@...

[Jan Holst Jensen]

Fernand Vanrie wrote:

> hallo,
>
> need some help with creating the right "context" in BASIC for
> accessing the ClipBoardManager object
>
> so far if found:
>
> oClipboard =
> ServiceManager.createInstanceWithContext("com.sun.star.datatransfer.clipboard.ClipboardManager",oContext)
>
>
> how do i create the oContext ?

Hi Fernand.

Not sure what you are trying to do, but perhaps there is a simpler way
like the way I get the clipboard text below. Instead of using
ServiceManager.createInstanceWithContext() you can just use
CreateUnoService() ?

Otherwise GetDefaultContext() may be the function you are looking for.

Cheers
-- Jan

' Adapted from
http://www.mail-archive.com/dev@.../msg08376.html, found
as "ConvertClipToText"
Function ClipboardAsText As String
  Dim oClip As Variant, oClipContents As Variant, oTypes As Variant
  Dim oConverter, convertedString As String
  Dim i As Integer, iPlainLoc As Integer

  iPlainLoc = -1

  oClip =
createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
  oConverter = createUnoService("com.sun.star.script.Converter")

  oClipContents = oClip.getContents()
  oTypes = oClipContents.getTransferDataFlavors()

  Dim msg As String
  msg = ""
  For i=LBound(oTypes) To UBound(oTypes)
    If oTypes(i).MimeType = "text/plain;charset=utf-16" Then
      iPlainLoc = i
      Exit For
    End If
  Next i
  If (iPlainLoc >= 0) Then
    convertedString =
oConverter.convertToSimpleType(oClipContents.getTransferData(oTypes(iPlainLoc)),
com.sun.star.uno.TypeClass.STRING)
    ClipboardAsText=convertedString
  End If
End Function

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@...
For additional commands, e-mail: dev-help@...

[Fernand Vanrie]

Jan ,

Thanks you saved my day :-)

> Fernand Vanrie wrote:
>> hallo,
>>
>> need some help with creating the right "context" in BASIC for
>> accessing the ClipBoardManager object
>>
>> so far if found:
>>
>> oClipboard =
>> ServiceManager.createInstanceWithContext("com.sun.star.datatransfer.clipboard.ClipboardManager",oContext)
>>
>>
>> how do i create the oContext ?
>
> Hi Fernand.
>
> Not sure what you are trying to do, but perhaps there is a simpler way
> like the way I get the clipboard text below. Instead of using
> ServiceManager.createInstanceWithContext() you can just use
> CreateUnoService() ?
>
> Otherwise GetDefaultContext() may be the function you are looking for.
>
> Cheers
> -- Jan
>
> ' Adapted from
> http://www.mail-archive.com/dev@.../msg08376.html,
> found as "ConvertClipToText"
> Function ClipboardAsText As String
>  Dim oClip As Variant, oClipContents As Variant, oTypes As Variant
>  Dim oConverter, convertedString As String
>  Dim i As Integer, iPlainLoc As Integer
>
>  iPlainLoc = -1
>
>  oClip =
> createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
>  oConverter = createUnoService("com.sun.star.script.Converter")
>
>  oClipContents = oClip.getContents()
>  oTypes = oClipContents.getTransferDataFlavors()
>
>  Dim msg As String
>  msg = ""
>  For i=LBound(oTypes) To UBound(oTypes)
>    If oTypes(i).MimeType = "text/plain;charset=utf-16" Then
>      iPlainLoc = i
>      Exit For
>    End If
>  Next i
>  If (iPlainLoc >= 0) Then
>    convertedString =
> oConverter.convertToSimpleType(oClipContents.getTransferData(oTypes(iPlainLoc)),
> com.sun.star.uno.TypeClass.STRING)
>    ClipboardAsText=convertedString
>  End If
> End Function
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: dev-unsubscribe@...
> For additional commands, e-mail: dev-help@...

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@...
For additional commands, e-mail: dev-help@...