paste html using API

[Zorg]

Hello,

there is two problems here

1/ the api of python does not seem to let me use 
com.sun.star.script.Converter

2/ the main problem is to insert html content in odt keeping the format 
so convert to string won't do it

sorry

Le 27/03/2023 à 13:15, sos a écrit :
> We do it with the functions below
>
> 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 = "Sorry no usefull text in the ClipBoard found"
> 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
>
> Sub CopyToClipBoard( sText )
> ' create SystemClipboard instance
> oClip = CreateUnoService( _
> "com.sun.star.datatransfer.clipboard.SystemClipboard")
> oTR = createUnoListener("Tr_", _
> "com.sun.star.datatransfer.XTransferable")
> ' set data
> oClip.setContents(oTR,Null)
> sTxtCString = sText
> 'oClip.flushClipboard() ' does not work
> End Sub
>
> Function Tr_getTransferData(aFlavor as 
> com.sun.star.datatransfer.DataFlavor)
> ' wordt pas aangeroepen als we cntrol+V doen intss is sTxtCString 
> reeds gezet
> If (aFlavor.MimeType = "text/plain;charset=utf-16") Then
> Tr_getTransferData() = sTxtCString
> End If
> End Function
>
> Function Tr_getTransferDataFlavors()
> Dim aFlavor As new com.sun.star.datatransfer.DataFlavor
> aFlavor.MimeType = "text/plain;charset=utf-16"
> aFlavor.HumanPresentableName = "Unicode-Text"
> Tr_getTransferDataFlavors() = array(aFlavor)
> End Function
>
> Function Tr_isDataFlavorSupported( _
> aFlavor as com.sun.star.datatransfer.DataFlavor) as Boolean
> If aFlavor.MimeType = "text/plain;charset=utf-16" Then
> Tr_isDataFlavorSupported = true
> Else
> Tr_isDataFlavorSupported = false
> End If
> End Function
>
> hope it helps
>
> Fernand
>
> On 26/03/2023 22:26, Zorg wrote:
>>
>> Thanks
>>
>> Ok  it seem a goot way
>>
>> maybe it is obvious but how can i paste the clipboard in my odt 
>> without using dispatch
>>
>>
>>
>> Le 26/03/2023 à 21:20, Caolán McNamara a écrit :
>>> On Sun, 2023-03-26 at 12:06 +0200, Zorg wrote:
>>>> ... We have try using XTransferable but without any success.
>>> I think it should be possible in headless mode to use the clipboard
>>> apis to copy and paste within LibreOffice. But in this case the
>>> clipboard is basically a fake clipboard only for the headless
>>> libreoffice instance, one which doesn't interact with any real system
>>> clipboard.
>>>
>>> So for example in your current code I see that copy_with_format copies
>>> into a true X clipboard via xclip so in headless more we can't paste
>>> from there and it has to be non headless to get that to work.
>>>
>>> But if the LibreOffice apis to put something into the clipboard are
>>> used then I think it should work to "Paste" within LibreOffice and get
>>> that content back out, even in headless more.
>>>
>>> f.e. in this example at
>>> https://ask.libreoffice.org/t/is-there-any-way-to-copy-calc-cell-content-and-paste-something-else/32173/11 
>>>
>>> there is:
>>>
>>> oClip =
>>> ctx.getServiceManager().createInstanceWithContext("com.sun.star.datatra
>>> nsfer.clipboard.SystemClipboard", ctx)
>>> oClip.setContents(transferable, None)
>>>
>>> where "transferable" is implemented in that example as something that
>>> only supports "text/plain;charset=utf-16" so if you change
>>> copy_with_format to something that follow the model of the above
>>> example implementation of an XTransferable to set a transferable that
>>> provides the data and its mimetype as text/html I would expect it to
>>> work.
>>>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice/attachments/20230327/59dd87c2/attachment.htm>