diff options
Diffstat (limited to 'framework/test/test_filterregistration.bas')
-rw-r--r-- | framework/test/test_filterregistration.bas | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/framework/test/test_filterregistration.bas b/framework/test/test_filterregistration.bas new file mode 100644 index 000000000000..47a19acfc36d --- /dev/null +++ b/framework/test/test_filterregistration.bas @@ -0,0 +1,95 @@ +rem _______________________________________________________________________________________________________________________________________ +rem Test script for registering or changing filter of our configuration. +rem _______________________________________________________________________________________________________________________________________ + +Sub Main + Dim xFiterFactory as object + Dim sFilterName as string + + xFilterFactory = createUNOService("com.sun.star.document.FilterFactory") + + sFilterName = "MeinFilter_5" + +rem AddFilter ( xFilterFactory, sFilterName ) + ReadFilter ( xFilterFactory, sFilterName ) +rem QueryFilters ( xFilterFactory ) + + xFilterFactory.flush() + +End Sub + +rem ************************************************************************************************************* +Sub AddFilter( xFilterFactory, sFilterName ) + Dim lProperties(8) as new com.sun.star.beans.PropertyValue + Dim lUserData (1) as string + + lUserData(1) = "Userdata von TestFilter" + + lProperties(0).Name = "Type" + lProperties(0).Value = "bmp_MS_Windows" + + lProperties(1).Name = "UIName" + lProperties(1).Value = sFilterName + + lProperties(2).Name = "DocumentService" + lProperties(2).Value = "com.sun.star.text.TextDocument" + + lProperties(3).Name = "FilterService" + lProperties(3).Value = "com.sun.star.comp.framework.TestFilter" + + lProperties(4).Name = "Flags" + lProperties(4).Value = 256 + + lProperties(5).Name = "UserData" + lProperties(5).Value = lUserData() + + lProperties(6).Name = "FileFormatVersion" + lProperties(6).Value = 0 + + lProperties(7).Name = "TemplateName" + lProperties(7).Value = "" + + xFilterFactory.insertByName( sFilterName, lProperties() ) +End Sub + +rem ************************************************************************************************************* +Sub ReadFilter( xFilterFactory, sFilterName ) +rem Dim lFilters() as com.sun.star.beans.PropertyValue + Dim sOut as string + Dim nCount as integer + + lProperties = xFilterFactory.getByName( sFilterName ) + + sOut = "" + for nCount=0 to ubound(lProperties()) step 1 + sOut = sOut + lProperties(nCount).Name + sOut = sOut + " = " +rem #85829# Disable follow if statement to produce bug! +rem if( lProperties(nCount).Name <> "UserData" ) then + sOut = sOut + lProperties(nCount).Value +rem endif + sOut = sOut + chr(13) + next nCount + + msgbox sOut +End Sub + +rem ************************************************************************************************************* +Sub QueryFilters( xFilterFactory ) + Dim lFilters() as string + Dim sQuery as string + Dim sOut as string + Dim nCount as integer + + sQuery = "_filterquery_defaultfilter" +rem sQuery = "_filterquery_textdocument_withdefault" + + lFilters() = xFilterFactory.getByName( sQuery ) + + sOut = "" + for nCount=0 to ubound( lFilters() ) + sOut = sOut + lFilters(nCount) + chr(13) + next nCount + + msgbox sOut +End Sub |