To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=60116
                  Issue #:|60116
                  Summary:|XStandaloneDocumentInfo - can not write info ...
                Component:|api
                  Version:|OOo 2.0.1
                 Platform:|All
                      URL:|
               OS/Version:|Windows XP
                   Status:|UNCONFIRMED
        Status whiteboard:|
                 Keywords:|
               Resolution:|
               Issue type:|DEFECT
                 Priority:|P3
             Subcomponent:|code
              Assigned to:|sw
              Reported by:|brinzing





------- Additional comments from [EMAIL PROTECTED] Fri Jan  6 00:50:35 -0800 
2006 -------
Hi,

as one can read, i still have problems using XStandaloneDocumentInfo ...
using the code snippet to read and write the documentinfo from different files
causes the following problems:

              *.sdw                *.sxw                     *.odt
           read     write      read     write            read     write

oo 1.1.5    ok        ok        ok       fails           fails    fails
oo 2.0.1   fails   fails        ok       fails            ok      fails

regards

Oliver

REM  *****  BASIC  *****
Option Explicit

Sub Main

        On Local Error Goto ErrorHandler

        Dim oSM, oDesk, oInfo As Object
        Dim sFile as String
        Dim sTitle as String

        sFile = "E:\test.sdw"
'       sFile = "E:\test.sxw"
'       sFile = "E:\test.odt"

        oSM = CreateObject("com.sun.star.ServiceManager")
        oInfo = 
oSM.createInstance("com.sun.star.document.StandaloneDocumentInfo")

        oInfo.loadFromURL(ConvertToUrl(sFile))
        sTitle = oInfo.getPropertyValue("Title")
        msgBox sTitle

        oInfo.setPropertyValue("Title", "Hello World")
        oInfo.storeIntoURL(ConvertToUrl(sFile))

        Exit Sub
ErrorHandler:
        MsgBox Error() & Chr(13) & Erl() & Chr(13) & Err()
End Sub

---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to