xref: /trunk/main/framework/test/test_documentproperties.bas (revision 08dd9f995c84de233870bfe0ef563690c0d86a88)

' *************************************************************
'
'  Licensed to the Apache Software Foundation (ASF) under one
'  or more contributor license agreements.  See the NOTICE file
'  distributed with this work for additional information
'  regarding copyright ownership.  The ASF licenses this file
'  to you under the Apache License, Version 2.0 (the
'  "License")' you may not use this file except in compliance
'  with the License.  You may obtain a copy of the License at
'
'    http://www.apache.org/licenses/LICENSE-2.0
'
'  Unless required by applicable law or agreed to in writing,
'  software distributed under the License is distributed on an
'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
'  KIND, either express or implied.  See the License for the
'  specific language governing permissions and limitations
'  under the License.
'
' *************************************************************

Sub Main
        ' Oeffnen der LOG-Datei
        ' Es gibt 2 Moeglichgkeiten, diesen Test zu absolvieren.
        ' 1) Ausgabe von Informationen in MessageBoxen
        ' 2) Ausgabe von Informationen in einer LOG-Datei
        '
        ' Die Methoden OpenLOG, CloseLOG, Message, ErrorMessage und InfoMessage beruecksichtigen das automatisch!
        ' Zum Umschalten zwischen den beiden Zustaenden genuegt es, eine der folgenden
        ' zwei Programmzeilen zu aktivieren ...

        'bLOGOn = cOn
        bLOGOn  = cOff

        'bShowErrorsOnly        = cOn
        bShowErrorsOnly     = cOff

        OpenLOG     ( cTestPath + "TestDocumentProperties.log" )
        InfoMessage ( "Test DocumentProperties ... [start]" )

        ' Service besorgen
        InfoMessage ( "Service besorgen ... [start]" )
        aDocumentProperties = createUnoService ( "com.sun.star.document.DocumentProperties" )

        ' Erfolg abtesten
        if ( isnull ( aDocumentProperties ) ) then
            ErrorMessage ( "Service konnte nicht instanziiert werden!"  )
            exit sub
        else
            InfoMessage ( "Service erfolgreich instanziiert ..."    )
            InfoMessage ( "Service besorgen ... [ende]"             )
        end if

        ' Unterstuetzte Schnittstellen, Methoden und Properties anzeigen
        ' Achtung: Methoden und Properties koennen nicht angezeigt werden ...
        ' neues Uno <-> Basic !?
        msgbox  aDocumentProperties.dbg_supportedInterfaces
        'msgbox aDocumentProperties.dbg_methods
        'msgbox aDocumentProperties.dbg_properties

        ' Testen des Services unter normalen Bedingungen (also wie vorgesehen)
        bState = Test_NormalUse ( aDocumentProperties )
        ' Fehlerstatus abfragen
        if ( bState = cError ) then
            ErrorMessage ( "Der Service arbeitet unter normalen Bedingungen nicht korrekt!" )
        end if

        bState = Test_ErrorUse  ( aDocumentProperties )
        ' Fehlerstatus abfragen
        if ( bState = cError ) then
            ErrorMessage ( "Der Service verhaelt sich in Fehlersituationen nicht korrekt!" )
        end if

        ' Schliessen der Error-Logdatei
        InfoMessage ( "Test DocumentProperties ... [ende]" )
        CloseLOG
End Sub

'*****************************************************************************************************************
' Testfunktionen
'*****************************************************************************************************************

'----------------------------------------------------------------------------
' Testmethode: Testet den Service unter normalen Bedingungen
'
' Returnwert cOK bedeutet, dass sich das Objekt normal verhaelt ...
' Returnwert cError bedeutet, dass sich das ein Fehler aufgetreten ist ...
'----------------------------------------------------------------------------
Function Test_NormalUse ( aDocumentProperties ) as Boolean

        ' Zunaechst wird vom Erfolg des Test ausgegangen.
        ' Sollte einer der Detail-Tests fehlschlagen, dann wird dieser Wert
        ' zurueckgesetzt. Damit wird dann angezeigt, dass mindestens ein
        ' Einzeltest nicht korrekt funktionierte.

        Test_NormalUse = cOK

        bState = Test_NormalUse_XPropertySet    ( aDocumentProperties )
        if ( bState = cError ) then
            Test_NormalUse = cError
        end if

        bState = Test_NormalUse_XNameContainer  ( aDocumentProperties )
        if ( bState = cError ) then
            Test_NormalUse = cError
        end if

        bState = Test_NormalUse_XPersist        ( aDocumentProperties )
        if ( bState = cError ) then
            Test_NormalUse = cError
        end if

End Function

'----------------------------------------------------------------------------
' Testmethode: Testet den Service unter Randbedingungen und provoziert Fehlerzustaende
'
' Returnwert cOK bedeutet, dass das Objekt damit keine Probleme hat ...
' Returnwert cError bedeutet, dass das Objekt noch nicht robust genug ist ...
'----------------------------------------------------------------------------
Function Test_ErrorUse ( aDocumentProperties ) as Boolean

        Test_ErrorUse = cOK

End Function

'----------------------------------------------------------------------------
' Testmethode: Testen des unterstuetzten Interfaces "XPropertySet" unter normalen Bedingungen
'
' Returnwert = cOK      ; wenn der Test erfolgreich war
' Returnwert = cError   ; wenn sich das Objekt nicht korrekt verhalten hat
'----------------------------------------------------------------------------
Function Test_NormalUse_XPropertySet ( aDocumentProperties ) as Boolean

        ' Einschalten der Fehlerbehandlung, um Exceptions oder aehnliches abzufangen!
        on Error goto Test_NormalUse_XPropertySet_Error

        InfoMessage ( "Test_NormalUse_XPropertySet ... [start]" )

        ' 1) Test der Funktion "getPropertySetInfo()"
        '       Da diese Funktion keine Parameter besitzt und zudem eine "get"-Methode
        '       darstellt, wird sie durch Basic automatisch als "Property" behandelt!
        '       Daher schreibt man nicht "getPropertySetInfo()" sondern nur "PropertySetInfo".

        ' Besorgen der Info
        PropertySetInfo = aDocumentProperties.PropertySetInfo
        ' Und abtesten auf Gueltigkeit
        if ( isnull (PropertySetInfo) ) then
            ErrorMessage ( "getPropertySetInfo() ... Error (Keine Info bestimmbar!)" )
            goto Test_NormalUse_XPropertySet_Error
        end if

        ' Hier fehlt noch der Test der InfoStruktur! (Laesst sich unter Basic irgendwie NICHT testen!!!???)
        ' ...

        InfoMessage ( "getPropertySetInfo() ... OK" )

        ' 2) getPropertyValue() & setPropertyValue ()
        '       In diesem Service sind mehrere Properties bereits definiert und vorbelegt.
        '       Zum Test werden repraesentativ einige davon verwendet. Naemlich je eine
        '       der verschiedenen Datentypen!
        '       Das sind im folgenden:      OWString, sal_Bool, sal_Int16, sal_uInt16, sal_Int32, DateTime, Sequence< sal_Int8 >
        '                                   Achtung! sal_uInt16 kann in Basic so nicht dargestellt werden. Daher wird ein normaler
        '                                   Integer-Wert angenommen - Bedingung ist, das hier im Test der Wertebereich nicht
        '                                   ueberschritten wird!
        '       Es wird versucht den Standardwert dieser zu ermitteln und zu merken;
        '       dann einen neuen Wert zu setzen; sowie diesen wiederum zu lesen und mit den
        '       vorherigen Werten zu vergleichen!

        ' Zunaechst werden die Standardwerte dieser Properties besorgt ...
        sDefaultValue_OWString$     = aDocumentProperties.getPropertyValue ( "Author"           )
        bDefaultValue_sal_Bool      = aDocumentProperties.getPropertyValue ( "AutoloadEnabled"  )
        nDefaultValue_sal_Int16%    = aDocumentProperties.getPropertyValue ( "EditingCycles"    )
        nDefaultValue_sal_uInt16%   = aDocumentProperties.getPropertyValue ( "Priority"         )
        nDefaultValue_sal_Int32&    = aDocumentProperties.getPropertyValue ( "EditingDuration"  )
        aDefaultValue_DateTime      = aDocumentProperties.getPropertyValue ( "ModifyDate"       )
'       aDefaultValue_ByteSequence  = aDocumentProperties.getPropertyValue ( "ExtraData"        )
        aDefaultValue_ByteSequence  = aDocumentProperties.ExtraData

        ' ... dann die Werte zur Kontrolle ausgeben.
        ShowProperties ( aDocumentProperties )

        InfoMessage ( "getPropertyValue() ... OK" )

        ' Jetzt werden neue Werte vereinbart ...
        ' Diese werden so gewaehlt, das sie garantiert von den Standardwerten verschieden sind!
        ' Dazu werden die alten auf Wert abgefragt und entsprechend die neuen gesetzt.
        sNewValue_OWString$     = sDefaultValue_OWString$   + "NeuerWert"
        bNewValue_sal_Bool      = not bDefaultValue_sal_Bool
        nNewValue_sal_Int16%    = nDefaultValue_sal_Int16%  + 1
        if ( nDefaultValue_sal_uInt16% = 1 ) then
            nNewValue_sal_uInt16% = 2
        else
            nNewValue_sal_uInt16% = 1
        end if
        nNewValue_sal_Int32&    = nDefaultValue_sal_Int32&  + 1

        aNewValue_DateTime                  = aDefaultValue_DateTime
        aNewValue_DateTime.HundredthSeconds = aDefaultValue_DateTime.HundredthSeconds   + 1
        aNewValue_DateTime.Seconds          = aDefaultValue_DateTime.Seconds            + 1
        aNewValue_DateTime.Minutes          = aDefaultValue_DateTime.Minutes            + 1
        aNewValue_DateTime.Hours            = aDefaultValue_DateTime.Hours              + 1
        aNewValue_DateTime.Day              = aDefaultValue_DateTime.Day                + 1
        aNewValue_DateTime.Month            = aDefaultValue_DateTime.Month              + 1
        aNewValue_DateTime.Year             = aDefaultValue_DateTime.Year               + 1

        aNewValue_ByteSequence = aDefaultValue_ByteSequence
        nElementCount% = UBound ( aDefaultValue_ByteSequence )
'       for nCounter%=0 to nElementCount% step 1
'           aNewValue_ByteSequence(nCounter%) = ( aDefaultValue_ByteSequence(nCounter%) + 1 )
'       next nCounter%

        ' Anschliessend muessen diese neuen Werte gesetzt werden.
        aDocumentProperties.setPropertyValue ( "Author"         , sNewValue_OWString$       )
        aDocumentProperties.setPropertyValue ( "AutoloadEnabled", bNewValue_sal_Bool        )
        aDocumentProperties.setPropertyValue ( "EditingCycles"  , nNewValue_sal_Int16%      )
        aDocumentProperties.setPropertyValue ( "Priority"       , nNewValue_sal_uInt16%     )
        aDocumentProperties.setPropertyValue ( "EditingDuration", nNewValue_sal_Int32&      )
        aDocumentProperties.setPropertyValue ( "ModifyDate"     , aNewValue_DateTime        )
'       aDocumentProperties.setPropertyValue ( "ExtraData"      , aNewValue_ByteSequence    )
        aDocumentProperties.ExtraData = aNewValue_ByteSequence

        ' Dann lassen wir sie uns ausgeben, um sie mit den vorherigen vergleichen zu koennen.
        ' (Das geht natuerlich nur, wenn "bLOGOn=cOn" ist - also eine LOG-Datei geschrieben wird!)
        ShowProperties ( aDocumentProperties )

        ' Nun werden die Properties wieder gelesen ...
        sLastValue_OWString$    = aDocumentProperties.getPropertyValue ( "Author"           )
        bLastValue_sal_Bool     = aDocumentProperties.getPropertyValue ( "AutoloadEnabled"  )
        nLastValue_sal_Int16%   = aDocumentProperties.getPropertyValue ( "EditingCycles"    )
        nLastValue_sal_uInt16%  = aDocumentProperties.getPropertyValue ( "Priority"         )
        nLastValue_sal_Int32&   = aDocumentProperties.getPropertyValue ( "EditingDuration"  )
        aLastValue_DateTime     = aDocumentProperties.getPropertyValue ( "ModifyDate"       )
        aLastValue_ByteSequence = aDocumentProperties.getPropertyValue ( "ExtraData"        )

        ' ... und mit den vorher als zu setzend bestimmte Werte vergleichen!
        ' Es duerfen KEINE Unterschiede auftreten, da sonst "setPropertyValue()" nicht korrekt funktioniert hat!

        if ( CompareOWString            ( sNewValue_OWString$,      sLastValue_OWString$    ) = cDifferent ) then
            ErrorMessage    ( "setPropertyValue() ... Fehler [OWString fehlerhaft]"     )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareBool            ( bNewValue_sal_Bool,       bLastValue_sal_Bool     ) = cDifferent ) then
            ErrorMessage    ( "setPropertyValue() ... Fehler [sal_Bool fehlerhaft]"     )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareInt16           ( nNewValue_sal_Int16%,     nLastValue_sal_Int16%   ) = cDifferent ) then
            ErrorMessage    ( "setPropertyValue() ... Fehler [sal_Int16 fehlerhaft]"    )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareInt16           ( nNewValue_sal_uInt16%,    nLastValue_sal_uInt16%  ) = cDifferent ) then
            ErrorMessage    ( "setPropertyValue() ... Fehler [sal_uInt16 fehlerhaft]"   )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareInt32           ( nNewValue_sal_Int32&,     nLastValue_sal_Int32&   ) = cDifferent ) then
            ErrorMessage    ( "setPropertyValue() ... Fehler [sal_Int32 fehlerhaft]"    )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareDateTime        ( aNewValue_DateTime,       aLastValue_DateTime     ) = cDifferent ) then
            ErrorMessage    ( "setPropertyValue() ... Fehler [DateTime fehlerhaft]"     )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareByteSequence    ( aNewValue_ByteSequence,   aLastValue_ByteSequence ) = cDifferent ) then
            ErrorMessage    ( "setPropertyValue() ... Fehler [ByteSequence fehlerhaft]" )
            goto Test_NormalUse_XPropertySet_Error
        end if

        InfoMessage ( "setPropertyValue() ... OK" )

        ' Nun wird noch mit den zuerst ermittelten Default-Werten verglichen!
        ' Hier MUESSEN Unterschiede auftreten, da sonst "get-" UND "setPropertyValue()" nicht korrekt funktioniert haben!

        if ( CompareOWString            ( sDefaultValue_OWString$,      sLastValue_OWString$    ) = cEqual ) then
            ErrorMessage    ( "Zusammenspiel set & getPropertyValue() ... Fehler [OWString fehlerhaft]"     )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareBool            ( bDefaultValue_sal_Bool,       bLastValue_sal_Bool     ) = cEqual ) then
            ErrorMessage    ( "Zusammenspiel set & getPropertyValue() ... Fehler [sal_Bool fehlerhaft]"     )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareInt16           ( nDefaultValue_sal_Int16%,     nLastValue_sal_Int16%   ) = cEqual ) then
            ErrorMessage    ( "Zusammenspiel set & getPropertyValue() ... Fehler [sal_Int16 fehlerhaft]"    )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareInt16           ( nDefaultValue_sal_uInt16%,    nLastValue_sal_uInt16%  ) = cEqual ) then
            ErrorMessage    ( "Zusammenspiel set & getPropertyValue() ... Fehler [sal_uInt16 fehlerhaft]"   )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareInt32           ( nDefaultValue_sal_Int32&,     nLastValue_sal_Int32&   ) = cEqual ) then
            ErrorMessage    ( "Zusammenspiel set & getPropertyValue() ... Fehler [sal_Int32 fehlerhaft]"    )
            goto Test_NormalUse_XPropertySet_Error
        elseif ( CompareDateTime        ( aDefaultValue_DateTime,       aLastValue_DateTime     ) = cEqual ) then
            ErrorMessage    ( "Zusammenspiel set & getPropertyValue() ... Fehler [DateTime fehlerhaft]"     )
            goto Test_NormalUse_XPropertySet_Error
'       elseif ( CompareByteSequence    ( aDefaultValue_ByteSequence,   aLastValue_ByteSequence ) = cEqual ) then
'           ErrorMessage    ( "Zusammenspiel set & getPropertyValue() ... Fehler [ByteSequence fehlerhaft]" )
'           goto Test_NormalUse_XPropertySet_Error
        end if

        InfoMessage ( "Zusammenspiel set & getPropertyValue() ... OK" )

        ' Der Test war erfolgreich! Meldung ausgeben und zurueck zm Aufrufer.
        ' Ausschalten der Fehlerbehandlung
        on Error goto 0
        ' Meldung ausgeben
        InfoMessage ( "Test_NormalUse_XPropertySet ... [ende]" )
        ' Status setzen
        Test_NormalUse_XPropertySet = cOK
        ' Und Funktion beenden
        Exit Function

' Es ist ein unerwartete Fehler aufgetreten! (Exception ...)
' Meldung ausgeben und mit Fehler zurueckkehren.
Test_NormalUse_XPropertySet_Error:
        ' Ausschalten der Fehlerbehandlung
        on Error goto 0
        ' Meldung ausgeben
        ErrorMessage ( "Test_NormalUse_XPropertySet ... [Error]" )
        ' und Fehlerstatus setzen
        Test_NormalUse_XPropertySet = cError
        ' Abbruch der Funktion erzwingen!
        Exit Function

End Function

'----------------------------------------------------------------------------
' Testmethode: Testen des unterstuetzten Interfaces "XNameContainer" unter normalen Bedingungen
'
' Returnwert = cOK      ; wenn sich das Objekt korrekt verhalten hat
' Returnwert = cError   ; wenn das Objekt noch nicht robust genug ist
'----------------------------------------------------------------------------
Function Test_NormalUse_XNameContainer ( aDocumentProperties ) as Boolean

        ' Einschalten der Fehlerbehandlung, um Exceptions oder aehnliches abzufangen!
        on Error goto Test_NormalUse_XNameContainer_Error

        InfoMessage ( "Test_NormalUse_XNameContainer ... [start]" )

        ' Da das Initialisieren im Konstruktor des Objektes und das Aufraeumen im Destruktor
        ' automatisch geschieht und diese Methode pro Programmablauf nur einmal verwendet wird,
        ' darf sich kein Element schon im NameContainer befinden!
        ' Wenn doch, ist das ein Fehler!
        if ( aDocumentProperties.hasElements () = TRUE ) then
            ErrorMessage ( "Der NameConatiner sollte eigentlich leer sein, enthaelt initial aber schon Elemente!?" )
            goto Test_NormalUse_XNameContainer_Error
        end if

        ' Zunaechst werden mehrere Elemente in den NameContainer eingefuegt.
        sItemName_1$    = "Item 1"
        sItemName_2$    = "Item 2"
        sItemName_3$    = "Item 3"
        sItemName_4$    = "Item 4"
        sItemName_5$    = "Item 5"

        sFirstValue_1$  = "Value 1"
        sFirstValue_2$  = "Value 2"
        sFirstValue_3$  = "Value 3"
        sFirstValue_4$  = "Value 4"
        sFirstValue_5$  = "Value 5"

        aDocumentProperties.insertByName ( sItemName_1$, sFirstValue_1$ )
        aDocumentProperties.insertByName ( sItemName_2$, sFirstValue_2$ )
        aDocumentProperties.insertByName ( sItemName_3$, sFirstValue_3$ )
        aDocumentProperties.insertByName ( sItemName_4$, sFirstValue_4$ )
        aDocumentProperties.insertByName ( sItemName_5$, sFirstValue_5$ )

        ' Zur Kontrolle die Werte ausgeben. (Nur wichtig, wenn geloggt wird!)
        ' Dabei wird die Methode "getElementNames()" gleich implizit mitgetestet!
        ShowNameContainer ( aDocumentProperties )

        ' Aber auch die Anzahl kontrollieren.
        ' (Hier wird eine eigene BASIC-Hilfsfunktion verwendet! keine Interface-Methode)
        if ( getNameContainerCount ( aDocumentProperties ) <> 5 ) then
            ErrorMessage ( "insertByName() ... Fehler (Der NameConatiner enthaelt nicht die eingefuegten 5 Elemente!)" )
            goto Test_NormalUse_XNameContainer_Error
        end if

        ' Nun noch feststellen, ob die 5 denn auch tatsaechlich vorhanden sind.
        if ( aDocumentProperties.hasByName ( sItemName_1$ ) = FALSE ) then
            ErrorMessage    ( "hasByName() ... Fehler [Element 1 nicht vorhanden!?]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( aDocumentProperties.hasByName ( sItemName_2$ ) = FALSE ) then
            ErrorMessage    ( "hasByName() ... Fehler [Element 2 nicht vorhanden!?]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( aDocumentProperties.hasByName ( sItemName_3$ ) = FALSE ) then
            ErrorMessage    ( "hasByName() ... Fehler [Element 3 nicht vorhanden!?]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( aDocumentProperties.hasByName ( sItemName_4$ ) = FALSE ) then
            ErrorMessage    ( "hasByName() ... Fehler [Element 4 nicht vorhanden!?]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( aDocumentProperties.hasByName ( sItemName_5$ ) = FALSE ) then
            ErrorMessage    ( "hasByName() ... Fehler [Element 5 nicht vorhanden!?]" )
            goto Test_NormalUse_XNameContainer_Error
        end if

        ' Dann die Werte wieder auslesen.
        sCompareValue_1$ = aDocumentProperties.getByName ( sItemName_1$ )
        sCompareValue_2$ = aDocumentProperties.getByName ( sItemName_2$ )
        sCompareValue_3$ = aDocumentProperties.getByName ( sItemName_3$ )
        sCompareValue_4$ = aDocumentProperties.getByName ( sItemName_4$ )
        sCompareValue_5$ = aDocumentProperties.getByName ( sItemName_5$ )

        ' Zum Vergleich die Werte ausgeben. (Nur wichtig, wenn geloggt wird!)
        ShowNameContainer ( aDocumentProperties )

        ' Dann die Werte automatisch vergleichen!
        if ( CompareOWString        ( sFirstValue_1$, sCompareValue_1$ ) = cDifferent ) then
            ErrorMessage    ( "getByName() ... Fehler [Element 1 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( CompareOWString    ( sFirstValue_2$, sCompareValue_2$ ) = cDifferent ) then
            ErrorMessage    ( "getByName() ... Fehler [Element 2 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( CompareOWString    ( sFirstValue_3$, sCompareValue_3$ ) = cDifferent ) then
            ErrorMessage    ( "getByName() ... Fehler [Element 3 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( CompareOWString    ( sFirstValue_4$, sCompareValue_4$ ) = cDifferent ) then
            ErrorMessage    ( "getByName() ... Fehler [Element 4 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( CompareOWString    ( sFirstValue_5$, sCompareValue_5$ ) = cDifferent ) then
            ErrorMessage    ( "getByName() ... Fehler [Element 5 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        end if

        InfoMessage ( "getByName() ... OK" )

        ' Jetzt wird versucht einige der Elemente in ihrem Wert zu veraendern.
        sNewValue_1$    = "NewValue 1"
        sNewValue_2$    = "NewValue 2"
        sNewValue_3$    = "NewValue 3"
        sNewValue_4$    = "NewValue 4"
        sNewValue_5$    = "NewValue 5"

        aDocumentProperties.replaceByName ( sItemName_1$, sNewValue_1$ )
        aDocumentProperties.replaceByName ( sItemName_2$, sNewValue_2$ )
        aDocumentProperties.replaceByName ( sItemName_3$, sNewValue_3$ )
        aDocumentProperties.replaceByName ( sItemName_4$, sNewValue_4$ )
        aDocumentProperties.replaceByName ( sItemName_5$, sNewValue_5$ )

        ' Zur Kontrolle die Werte ausgeben. (Nur wichtig, wenn geloggt wird!)
        ShowNameContainer ( aDocumentProperties )

        ' Dann die Werte wieder auslesen.
        sCompareValue_1$ = aDocumentProperties.getByName ( sItemName_1$ )
        sCompareValue_2$ = aDocumentProperties.getByName ( sItemName_2$ )
        sCompareValue_3$ = aDocumentProperties.getByName ( sItemName_3$ )
        sCompareValue_4$ = aDocumentProperties.getByName ( sItemName_4$ )
        sCompareValue_5$ = aDocumentProperties.getByName ( sItemName_5$ )

        ' Zum Vergleich die Werte ausgeben. (Nur wichtig, wenn geloggt wird!)
        ShowNameContainer ( aDocumentProperties )

        ' Dann die Werte automatisch vergleichen!
        if ( CompareOWString        ( sNewValue_1$, sCompareValue_1$ ) = cDifferent ) then
            ErrorMessage    ( "replaceByName() ... Fehler [Element 1 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( CompareOWString    ( sNewValue_2$, sCompareValue_2$ ) = cDifferent ) then
            ErrorMessage    ( "replaceByName() ... Fehler [Element 2 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( CompareOWString    ( sNewValue_3$, sCompareValue_3$ ) = cDifferent ) then
            ErrorMessage    ( "replaceByName() ... Fehler [Element 3 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( CompareOWString    ( sNewValue_4$, sCompareValue_4$ ) = cDifferent ) then
            ErrorMessage    ( "replaceByName() ... Fehler [Element 4 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( CompareOWString    ( sNewValue_5$, sCompareValue_5$ ) = cDifferent ) then
            ErrorMessage    ( "replaceByName() ... Fehler [Element 5 fehlerhaft]" )
            goto Test_NormalUse_XNameContainer_Error
        end if

        InfoMessage ( "replaceByName() ... OK" )

        ' Hier sollen einige der 5 Eintraege geloescht werden.
        aDocumentProperties.removeByName ( sItemName_1$ )
        aDocumentProperties.removeByName ( sItemName_3$ )

        ' Dann wieder die Anzahl kontrollieren.
        ' (Hier wird eine eigene BASIC-Hilfsfunktion verwendet! keine Interface-Methode)
        if ( getNameContainerCount ( aDocumentProperties ) <> 3 ) then
            ErrorMessage ( "removeByName() ... Fehler (Der NameConatiner enthaelt nicht die erwarteten 3 Elemente!)" )
            goto Test_NormalUse_XNameContainer_Error
        end if

        ' Nun noch feststellen, ob die restlichen 3 denn auch tatsaechlich die richtigen sind.
        if ( aDocumentProperties.hasByName ( sItemName_2$ ) = FALSE ) then
            ErrorMessage    ( "removeByName() ... Fehler [Element 2 nicht vorhanden!?]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( aDocumentProperties.hasByName ( sItemName_4$ ) = FALSE ) then
            ErrorMessage    ( "removeByName() ... Fehler [Element 4 nicht vorhanden!?]" )
            goto Test_NormalUse_XNameContainer_Error
        elseif ( aDocumentProperties.hasByName ( sItemName_5$ ) = FALSE ) then
            ErrorMessage    ( "removeByName() ... Fehler [Element 5 nicht vorhanden!?]" )
            goto Test_NormalUse_XNameContainer_Error
        end if

        ' Zur Kontrolle die Werte nochmals ausgeben. (Nur wichtig, wenn geloggt wird!)
        ShowNameContainer ( aDocumentProperties )

        InfoMessage ( "removeByName() ... OK" )

        ' Der Test war erfolgreich! Meldung ausgeben und zurueck zm Aufrufer.
        ' Ausschalten der Fehlerbehandlung
        on Error goto 0
        ' Meldung ausgeben
        InfoMessage ( "Test_NormalUse_XNameContainer ... [ende]" )
        ' Status setzen
        Test_NormalUse_XNameContainer = cOK
        ' Und Funktion beenden
        Exit Function

' Es ist ein unerwartete Fehler aufgetreten! (Exception ...)
' Meldung ausgeben und mit Fehler zurueckkehren.
Test_NormalUse_XNameContainer_Error:
        ' Ausschalten der Fehlerbehandlung
        on Error goto 0
        ' Meldung ausgeben
        ErrorMessage ( "Test_NormalUse_XNameContainer ... [Error]" )
        ' und Fehlerstatus setzen
        Test_NormalUse_XNameContainer = cError
        ' Abbruch der Funktion erzwingen!
        Exit Function

End Function

'----------------------------------------------------------------------------
' Testmethode: Testen des unterstuetzten Interfaces "XPersist" unter normalen Bedingungen
'
' Returnwert = cOK      ; wenn der Test erfolgreich war
' Returnwert = cError   ; wenn sich das Objekt nicht korrekt verhalten hat
'----------------------------------------------------------------------------
Function Test_NormalUse_XPersist ( aDocumentProperties ) as Boolean

        ' Einschalten der Fehlerbehandlung, um Exceptions oder aehnliches abzufangen!
        on Error goto Test_NormalUse_XPersist_Error

        InfoMessage ( "Test_NormalUse_XPersist ... [start]" )

        ' Laden der Properties aus einer Datei
        aDocumentProperties.read ( cTestPath + "TestDebug_in.sdw" )

        ' Zur Kontrolle anzeigen
        ShowProperties ( aDocumentProperties )

        ' Speichern der Properties in einer neuen Datei
        aDocumentProperties.write   ( cTestPath + "TestDebug_Out.sdw" )
        aDocumentProperties.read    ( cTestPath + "TestDebug_Out.sdw" )

        ' Zur Kontrolle anzeigen
        ShowProperties ( aDocumentProperties )

        ' Der Test war erfolgreich! Meldung ausgeben und zurueck zm Aufrufer.
        ' Ausschalten der Fehlerbehandlung
        on Error goto 0
        ' Meldung ausgeben
        InfoMessage ( "Test_NormalUse_XPersist ... [ende]" )
        ' Status setzen
        Test_NormalUse_XPersist = cOK
        ' Und Funktion beenden
        Exit Function

' Es ist ein unerwartete Fehler aufgetreten! (Exception ...)
' Meldung ausgeben und mit Fehler zurueckkehren.
Test_NormalUse_XPersist_Error:
        ' Ausschalten der Fehlerbehandlung
        on Error goto 0
        ' Meldung ausgeben
        ErrorMessage ( "Test_NormalUse_XPersist ... [Error]" )
        ' und Fehlerstatus setzen
        Test_NormalUse_XPersist = cError
        ' Abbruch der Funktion erzwingen!
        Exit Function

End Function

'*****************************************************************************************************************
' Hilfsfunktionen und -methoden
'*****************************************************************************************************************

'----------------------------------------------------------------------------
' Hilfsmethode: Oeffnet die LOG-Datei.
'----------------------------------------------------------------------------
Sub OpenLOG ( sFileName$ )
        if ( bLOGOn = cOn ) then
            sLOGFileName$   = sFileName$
            nLOGFileHandle% = FreeFile
            open sLOGFileName$ for output as nLOGFileHandle%
        end if
End Sub

'----------------------------------------------------------------------------
' Hilfsmethode: Schliesst die LOG-Datei.
'----------------------------------------------------------------------------
Sub CloseLOG
        if ( bLOGOn = cOn ) then
            close #nLOGFileHandle%
        end if
End Sub

'----------------------------------------------------------------------------
' Hilfsmethode: Gibt einen Text in einer LOG-Datei aus.
'----------------------------------------------------------------------------
Sub WriteLOG ( sMessage$ )
        if ( bLOGOn = cOn ) then
            Write #nLOGFileHandle% sMessage$
        end if
End Sub

'----------------------------------------------------------------------------
' Hilfsmethode: Gibt eine MessageBox mit Fehlertext, Zeilennummer und Warnschild aus.
'----------------------------------------------------------------------------
Sub ErrorMessage ( sMessage$ )
        ' Entweder in die LOG-Datei schreiben oder eine MessageBox anzeigen.
        if ( bLOGOn = cOn ) then
            WriteLOG ( sMessage$ )
        else
            MsgBox ( sMessage$, 16 )
        end if
End Sub

'----------------------------------------------------------------------------
' Hilfsmethode: Gibt eine Hinweisbox aus.
'----------------------------------------------------------------------------
Sub InfoMessage ( sMessage$ )
        ' Nur was anzeigen, wenn Nutzer es wuenscht!
        if ( bShowErrorsOnly = cOff ) then
            ' Ansonsten wird entweder in die LOG-Datei geschrieben oder eine MessageBox angezeigt.
            if ( bLOGOn = cOn ) then
                WriteLOG ( sMessage$ )
            else
                MsgBox ( sMessage$, 64 )
            end if
        end if
End Sub

'----------------------------------------------------------------------------
' Hilfsfunktion: Vergleicht zwei OWString-Werte
'
' Returnwert = cEqual       ; wenn Werte identisch sind
' Returnwert = cDifferent   ; wenn Werte verschieden sind
'----------------------------------------------------------------------------
Function CompareOWString ( sOWString_1$, sOWString_2$ ) as Boolean

        if ( sOWString_1$ = sOWString_2$ ) then
            CompareOWString = cEqual
        else
            CompareOWString = cDifferent
        end if

End Function

'----------------------------------------------------------------------------
' Hilfsfunktion: Vergleicht zwei DateTime-Strukturen
'
' Returnwert = cEqual       ; wenn Werte identisch sind
' Returnwert = cDifferent   ; wenn Werte verschieden sind
'----------------------------------------------------------------------------
Function CompareDateTime ( aDateTime_1, aDateTime_2 ) as Boolean

        if ( aDateTime_1.Day = aDateTime_2.Day and aDateTime_1.Month = aDateTime_2.Month and aDateTime_1.Year = aDateTime_2.Year and aDateTime_1.Hours = aDateTime_1.Hours and aDateTime_1.Minutes = aDateTime_1.Minutes and aDateTime_1.Seconds = aDateTime_1.Seconds and aDateTime_1.HundredthSeconds = aDateTime_1.HundredthSeconds ) then
            CompareDateTime = cEqual
        else
            CompareDateTime = cDifferent
        end if

End Function

'----------------------------------------------------------------------------
' Hilfsfunktion: Vergleicht zwei ByteSequence's
'
' Returnwert = cEqual       ; wenn Werte identisch sind
' Returnwert = cDifferent   ; wenn Werte verschieden sind
'----------------------------------------------------------------------------
Function CompareByteSequence ( seqByteSequence_1, seqByteSequence_2 ) as Boolean

        ' Wenn beide leer sind, sind sie auch identisch !
        ' Dieser Test mit "IsArray" ist noetig, da bei einem leeren Array die
        ' Funktion "UBound" einen Fehler produziert!
        if ( IsArray ( seqByteSequence_1 ) = FALSE and IsArray ( seqByteSequence_2 ) = FALSE ) then
            CompareByteSequence = cEqual
            Exit Function
        end if

        ' Wenn jedoch nur eine leer ist, dann sind sie nicht identisch.
        if ( IsArray ( seqByteSequence_1 ) = FALSE ) or ( IsArray ( seqByteSequence_2 ) = FALSE ) then
            CompareByteSequence = cDifferent
            Exit Function
        end if

        ' Besorgen der Anzahl der Elemente der Sequences
        nElementCount_1%    =   UBound ( seqByteSequence_1 )
        nElementCount_2%    =   UBound ( seqByteSequence_2 )

        ' Wenn diese Anzahl schon verschieden ist, dann ...
        if ( nElementCount_1% <> nElementCount_2% ) then
            ' ... sind die Sequences wohl verschieden.
            CompareByteSequence = cDifferent
            ' Die Element brauchen dann nicht mehr verglichen zu werden.
            Exit Function
        end if

        ' Ansonsten werden die Elemente einzeln miteinander verglichen.
        for nCounter%=0 to nElementCount_1% step 1
            ' Wenn auch nur ein paar davon verschieden ist, dann ...
            if ( nElementCount_1%(nCounter%) <> nElementCount_2%(nCounter%) ) then
                ' ... kann der Vergleich abgebrochen werden!
                CompareByteSequence = cDifferent
                Exit Function
            end if
        next nCounter%

        ' Wenn man bis hier gekommen ist, dann sind die Sequences identisch.
        CompareByteSequence = cEqual

End Function

'----------------------------------------------------------------------------
' Hilfsfunktion: Vergleicht zwei Int16-Werte
'
' Returnwert = cEqual       ; wenn Werte identisch sind
' Returnwert = cDifferent   ; wenn Werte verschieden sind
'----------------------------------------------------------------------------
Function CompareInt16 ( nInt16_1%, nInt16_2% ) as Boolean

        if ( nInt16_1% = nInt16_2% ) then
            CompareInt16 = cEqual
        else
            CompareInt16 = cDifferent
        end if

End Function

'----------------------------------------------------------------------------
' Hilfsfunktion: Vergleicht zwei Int32-Werte
'
' Returnwert = cEqual       ; wenn Werte identisch sind
' Returnwert = cDifferent   ; wenn Werte verschieden sind
'----------------------------------------------------------------------------
Function CompareInt32 ( nInt32_1&, nInt32_2& ) as Boolean

        if ( nInt32_1& = nInt32_2& ) then
            CompareInt32 = cEqual
        else
            CompareInt32 = cDifferent
        end if

End Function

'----------------------------------------------------------------------------
' Hilfsfunktion: Vergleicht zwei Bool-Werte
'
' Returnwert = cEqual       ; wenn Werte identisch sind
' Returnwert = cDifferent   ; wenn Werte verschieden sind
'----------------------------------------------------------------------------
Function CompareBool ( bBool_1, bBool_2 ) as Boolean

        if ( bBool_1 = bBool_2 ) then
            CompareBool = cEqual
        else
            CompareBool = cDifferent
        end if

End Function

'----------------------------------------------------------------------------
' Hilfsfunktion: Vergleicht die Properties zweier Objekte um Unterschiede festzustellen.
'
' Returnwert = cEqual       ; wenn Objekte von den Properties her identisch sind
' Returnwert = cDifferent   ; wenn Objekte von den Properties her verschieden sind
'----------------------------------------------------------------------------
Function CompareDocumentProperties ( aDocumentProperties_1, aDocumentProperties_2 ) as Boolean

        ' Besorgen der Werte und zwischenspeichern (bezogen auf Objekt 1)
        sAuthor_1$                  = aDocumentProperties_1.getPropertyValue ( "Author"                     )
        bAutoloadEnabled_1          = aDocumentProperties_1.getPropertyValue ( "AutoloadEnabled"            )
        nAutoloadSecs_1%            = aDocumentProperties_1.getPropertyValue ( "AutoloadSecs"               )
        sAutoLoadURL_1$             = aDocumentProperties_1.getPropertyValue ( "AutoloadURL"                )
        sBliendCopiesTo_1$          = aDocumentProperties_1.getPropertyValue ( "BlindCopiesTo"              )
        sCopiesTo_1$                = aDocumentProperties_1.getPropertyValue ( "CopiesTo"                   )
        aCreationDate_1             = aDocumentProperties_1.getPropertyValue ( "CreationDate"               )
        sDefaultTarget_1$           = aDocumentProperties_1.getPropertyValue ( "DefaultTarget"              )
        sDescription_1$             = aDocumentProperties_1.getPropertyValue ( "Description"                )
        nEditingCycles_1%           = aDocumentProperties_1.getPropertyValue ( "EditingCycles"              )
        nEditingDuration_1&         = aDocumentProperties_1.getPropertyValue ( "EditingDuration"            )
        seqExtraData_1              = aDocumentProperties_1.getPropertyValue ( "ExtraData"                  )
        sInReplyTo_1$               = aDocumentProperties_1.getPropertyValue ( "InReplyTo"                  )
        bIsEncrypted_1              = aDocumentProperties_1.getPropertyValue ( "IsEncrypted"                )
        sKeywords_1$                = aDocumentProperties_1.getPropertyValue ( "Keywords"                   )
        sMIMEType_1$                = aDocumentProperties_1.getPropertyValue ( "MIMEType"                   )
        sModifiedBy_1$              = aDocumentProperties_1.getPropertyValue ( "ModifiedBy"                 )
        aModifyDate_1               = aDocumentProperties_1.getPropertyValue ( "ModifyDate"                 )
        sNewsgroups_1$              = aDocumentProperties_1.getPropertyValue ( "Newsgroups"                 )
        sOriginal_1$                = aDocumentProperties_1.getPropertyValue ( "Original"                   )
        bPortableGraphics_1         = aDocumentProperties_1.getPropertyValue ( "PortableGraphics"           )
        aPrintDate_1                = aDocumentProperties_1.getPropertyValue ( "PrintDate"                  )
        sPrintedBy_1$               = aDocumentProperties_1.getPropertyValue ( "PrintedBy"                  )
        nPriority_1%                = aDocumentProperties_1.getPropertyValue ( "Priority"                   )
        bQueryTemplate_1            = aDocumentProperties_1.getPropertyValue ( "QueryTemplate"              )
        sRecipient_1$               = aDocumentProperties_1.getPropertyValue ( "Recipient"                  )
        sReferences_1$              = aDocumentProperties_1.getPropertyValue ( "References"                 )
        sReplyTo_1$                 = aDocumentProperties_1.getPropertyValue ( "ReplyTo"                    )
        bSaveGraphicsCompressed_1   = aDocumentProperties_1.getPropertyValue ( "SaveGraphicsCompressed"     )
        bSaveOriginalGraphics_1     = aDocumentProperties_1.getPropertyValue ( "SaveOriginalGraphics"       )
        bSaveVersionOnClose_1       = aDocumentProperties_1.getPropertyValue ( "SaveVersionOnClose"         )
        sTemplate_1$                = aDocumentProperties_1.getPropertyValue ( "Template"                   )
        bTemplateConfig_1           = aDocumentProperties_1.getPropertyValue ( "TemplateConfig"             )
        aTemplateDate_1             = aDocumentProperties_1.getPropertyValue ( "TemplateDate"               )
        sTemplateFileName_1$        = aDocumentProperties_1.getPropertyValue ( "TemplateFileName"           )
        sTheme_1$                   = aDocumentProperties_1.getPropertyValue ( "Theme"                      )
        sTitle_1$                   = aDocumentProperties_1.getPropertyValue ( "Title"                      )
        bUserData_1                 = aDocumentProperties_1.getPropertyValue ( "UserData"                   )

        ' Besorgen der Werte und zwischenspeichern (bezogen auf Objekt 2)
        sAuthor_2$                  = aDocumentProperties_2.getPropertyValue ( "Author"                     )
        bAutoloadEnabled_2          = aDocumentProperties_2.getPropertyValue ( "AutoloadEnabled"            )
        nAutoloadSecs_2%            = aDocumentProperties_2.getPropertyValue ( "AutoloadSecs"               )
        sAutoLoadURL_2$             = aDocumentProperties_2.getPropertyValue ( "AutoloadURL"                )
        sBliendCopiesTo_2$          = aDocumentProperties_2.getPropertyValue ( "BlindCopiesTo"              )
        sCopiesTo_2$                = aDocumentProperties_2.getPropertyValue ( "CopiesTo"                   )
        aCreationDate_2             = aDocumentProperties_2.getPropertyValue ( "CreationDate"               )
        sDefaultTarget_2$           = aDocumentProperties_2.getPropertyValue ( "DefaultTarget"              )
        sDescription_2$             = aDocumentProperties_2.getPropertyValue ( "Description"                )
        nEditingCycles_2%           = aDocumentProperties_2.getPropertyValue ( "EditingCycles"              )
        nEditingDuration_2&         = aDocumentProperties_2.getPropertyValue ( "EditingDuration"            )
        seqExtraData_2              = aDocumentProperties_2.getPropertyValue ( "ExtraData"                  )
        sInReplyTo_2$               = aDocumentProperties_2.getPropertyValue ( "InReplyTo"                  )
        bIsEncrypted_2              = aDocumentProperties_2.getPropertyValue ( "IsEncrypted"                )
        sKeywords_2$                = aDocumentProperties_2.getPropertyValue ( "Keywords"                   )
        sMIMEType_2$                = aDocumentProperties_2.getPropertyValue ( "MIMEType"                   )
        sModifiedBy_2$              = aDocumentProperties_2.getPropertyValue ( "ModifiedBy"                 )
        aModifyDate_2               = aDocumentProperties_2.getPropertyValue ( "ModifyDate"                 )
        sNewsgroups_2$              = aDocumentProperties_2.getPropertyValue ( "Newsgroups"                 )
        sOriginal_2$                = aDocumentProperties_2.getPropertyValue ( "Original"                   )
        bPortableGraphics_2         = aDocumentProperties_2.getPropertyValue ( "PortableGraphics"           )
        aPrintDate_2                = aDocumentProperties_2.getPropertyValue ( "PrintDate"                  )
        sPrintedBy_2$               = aDocumentProperties_2.getPropertyValue ( "PrintedBy"                  )
        nPriority_2%                = aDocumentProperties_2.getPropertyValue ( "Priority"                   )
        bQueryTemplate_2            = aDocumentProperties_2.getPropertyValue ( "QueryTemplate"              )
        sRecipient_2$               = aDocumentProperties_2.getPropertyValue ( "Recipient"                  )
        sReferences_2$              = aDocumentProperties_2.getPropertyValue ( "References"                 )
        sReplyTo_2$                 = aDocumentProperties_2.getPropertyValue ( "ReplyTo"                    )
        bSaveGraphicsCompressed_2   = aDocumentProperties_2.getPropertyValue ( "SaveGraphicsCompressed"     )
        bSaveOriginalGraphics_2     = aDocumentProperties_2.getPropertyValue ( "SaveOriginalGraphics"       )
        bSaveVersionOnClose_2       = aDocumentProperties_2.getPropertyValue ( "SaveVersionOnClose"         )
        sTemplate_2$                = aDocumentProperties_2.getPropertyValue ( "Template"                   )
        bTemplateConfig_2           = aDocumentProperties_2.getPropertyValue ( "TemplateConfig"             )
        aTemplateDate_2             = aDocumentProperties_2.getPropertyValue ( "TemplateDate"               )
        sTemplateFileName_2$        = aDocumentProperties_2.getPropertyValue ( "TemplateFileName"           )
        sTheme_2$                   = aDocumentProperties_2.getPropertyValue ( "Theme"                      )
        sTitle_2$                   = aDocumentProperties_2.getPropertyValue ( "Title"                      )
        bUserData_2                 = aDocumentProperties_2.getPropertyValue ( "UserData"                   )

        ' Als erwarteten Zielwert schon mal "Properties identisch" annehmen!!!
        ' F�r den Fall, das nur eine diesen Anspruch nicht erf�llt, wird der Wert einfach zur�ckgesetzt.
        ' Von da bleibt der neue Wert bestehen und zeigt an, da� sich mindestens eine Property ge�ndert hat!
        CompareDocumentProperties = cEqual

        ' Dann die Werte vergleichen
        if ( CompareOWString        ( sAuthor_1$,                   sAuthor_2$                  ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bAutoloadEnabled_1,           bAutoloadEnabled_2          ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareInt16       ( nAutoloadSecs_1%,             nAutoloadSecs_2%            ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sAutoLoadURL_1$,              sAutoLoadURL_2$             ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sBliendCopiesTo_1$,           sBliendCopiesTo_2$          ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sCopiesTo_1$,                 sCopiesTo_2$                ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareDateTime    ( aCreationDate_1,              aCreationDate_2             ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sDefaultTarget_1$,            sDefaultTarget_2$           ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sDescription_1$,              sDescription_2$             ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareInt16       ( nEditingCycles_1%,            nEditingCycles_2%           ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareInt32       ( nEditingDuration_1&,          nEditingDuration_2&         ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareByteSequence( seqExtraData_1,               seqExtraData_2              ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sInReplyTo_1$,                sInReplyTo_2$               ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bIsEncrypted_1,               bIsEncrypted_2              ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sKeywords_1$,                 sKeywords_2$                ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sMIMEType_1$,                 sMIMEType_2$                ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sModifiedBy_1$,               sModifiedBy_2$              ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareDateTime    ( aModifyDate_1,                aModifyDate_2               ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sNewsgroups_1$,               sNewsgroups_2$              ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sOriginal_1$,                 sOriginal_2$                ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bPortableGraphics_1,          bPortableGraphics_2         ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareDateTime    ( aPrintDate_1,                 aPrintDate_2                ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sPrintedBy_1$,                sPrintedBy_2$               ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareInt16       ( nPriority_1%,                 nPriority_2%                ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bQueryTemplate_1,             bQueryTemplate_2            ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sRecipient_1$,                sRecipient_2$               ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sReferences_1$,               sReferences_2$              ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sReplyTo_1$,                  sReplyTo_2$                 ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bSaveGraphicsCompressed_1,    bSaveGraphicsCompressed_2   ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bSaveOriginalGraphics_1,      bSaveOriginalGraphics_2     ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bSaveVersionOnClose_1,        bSaveVersionOnClose_2       ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sTemplate_1$,                 sTemplate_2$                ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bTemplateConfig_1,            bTemplateConfig_2           ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareDateTime    ( aTemplateDate_1,              aTemplateDate_2             ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sTemplateFileName_1$,         sTemplateFileName_2$        ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sTheme_1$,                    sTheme_2$                   ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareOWString    ( sTitle_1$,                    sTitle_2$                   ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        elseif ( CompareBool        ( bUserData_1,                  bUserData_2                 ) = cDifferent ) then
            CompareDocumentProperties = cDifferent
        end if

End Function

'----------------------------------------------------------------------------
' Hilfsfunktion: Wandelt eine Struktur des Types DateTime in einen formatierten String um
'----------------------------------------------------------------------------
Function DateTime2String ( aDateTime ) as String

        stempString$ = ""
        stempString$ = stempString$ + aDateTime.Day                 + "."
        stempString$ = stempString$ + aDateTime.Month               + "."
        stempString$ = stempString$ + aDateTime.Year                + " - "
        stempString$ = stempString$ + aDateTime.Hours               + ":"
        stempString$ = stempString$ + aDateTime.Minutes             + ":"
        stempString$ = stempString$ + aDateTime.Seconds             + ":"
        stempString$ = stempString$ + aDateTime.HundredthSeconds    + " Uhr"

        DateTime2String = stempString$

End Function

'----------------------------------------------------------------------------
' Hilfsfunktion: Wandelt eine Sequence von Bytes in einen formatierten String um
'----------------------------------------------------------------------------
Function ByteSequence2String ( seqByteSequence ) as String

        nElementCount% = UBound ( seqByteSequence() )

        if ( nElementCount% < 1 ) then
            stempString$ = "leer"
        else
            stempString$ = "{"
            for nCounter%=0 to nElementCount% step 1
                stempString$ = stempString$ + seqByteSequence(nCounter%)
            next nCounter%
            stempString$ = stempString$ + "}"
        end if

        ByteSequence2String = stempString$

End Function

'----------------------------------------------------------------------------
' Hilfsmethode: Zeigt die aktuellen Werte ALLER Properties an
'----------------------------------------------------------------------------
Sub ShowProperties ( aDocumentProperties )

        ' Besorgen der Werte und zwischenspeichern
        sAuthor$                = aDocumentProperties.getPropertyValue ( "Author"                   )
        bAutoloadEnabled        = aDocumentProperties.getPropertyValue ( "AutoloadEnabled"          )
        nAutoloadSecs%          = aDocumentProperties.getPropertyValue ( "AutoloadSecs"             )
        sAutoLoadURL$           = aDocumentProperties.getPropertyValue ( "AutoloadURL"              )
        sBliendCopiesTo$        = aDocumentProperties.getPropertyValue ( "BlindCopiesTo"            )
        sCopiesTo$              = aDocumentProperties.getPropertyValue ( "CopiesTo"                 )
        dCreationDate           = aDocumentProperties.getPropertyValue ( "CreationDate"             )
        sDefaultTarget$         = aDocumentProperties.getPropertyValue ( "DefaultTarget"            )
        sDescription$           = aDocumentProperties.getPropertyValue ( "Description"              )
        nEditingCycles%         = aDocumentProperties.getPropertyValue ( "EditingCycles"            )
        nEditingDuration&       = aDocumentProperties.getPropertyValue ( "EditingDuration"          )
        seqExtraData            = aDocumentProperties.getPropertyValue ( "ExtraData"                )
        sInReplyTo$             = aDocumentProperties.getPropertyValue ( "InReplyTo"                )
        bIsEncrypted            = aDocumentProperties.getPropertyValue ( "IsEncrypted"              )
        sKeywords$              = aDocumentProperties.getPropertyValue ( "Keywords"                 )
        sMIMEType$              = aDocumentProperties.getPropertyValue ( "MIMEType"                 )
        sModifiedBy$            = aDocumentProperties.getPropertyValue ( "ModifiedBy"               )
        dModifyDate             = aDocumentProperties.getPropertyValue ( "ModifyDate"               )
        sNewsgroups$            = aDocumentProperties.getPropertyValue ( "Newsgroups"               )
        sOriginal$              = aDocumentProperties.getPropertyValue ( "Original"                 )
        bPortableGraphics       = aDocumentProperties.getPropertyValue ( "PortableGraphics"         )
        dPrintDate              = aDocumentProperties.getPropertyValue ( "PrintDate"                )
        sPrintedBy$             = aDocumentProperties.getPropertyValue ( "PrintedBy"                )
        nPriority%              = aDocumentProperties.getPropertyValue ( "Priority"                 )
        bQueryTemplate          = aDocumentProperties.getPropertyValue ( "QueryTemplate"            )
        sRecipient$             = aDocumentProperties.getPropertyValue ( "Recipient"                )
        sReferences$            = aDocumentProperties.getPropertyValue ( "References"               )
        sReplyTo$               = aDocumentProperties.getPropertyValue ( "ReplyTo"                  )
        bSaveGraphicsCompressed = aDocumentProperties.getPropertyValue ( "SaveGraphicsCompressed"   )
        bSaveOriginalGraphics   = aDocumentProperties.getPropertyValue ( "SaveOriginalGraphics"     )
        bSaveVersionOnClose     = aDocumentProperties.getPropertyValue ( "SaveVersionOnClose"       )
        sTemplate$              = aDocumentProperties.getPropertyValue ( "Template"                 )
        bTemplateConfig         = aDocumentProperties.getPropertyValue ( "TemplateConfig"           )
        dTemplateDate           = aDocumentProperties.getPropertyValue ( "TemplateDate"             )
        sTemplateFileName$      = aDocumentProperties.getPropertyValue ( "TemplateFileName"         )
        sTheme$                 = aDocumentProperties.getPropertyValue ( "Theme"                    )
        sTitle$                 = aDocumentProperties.getPropertyValue ( "Title"                    )
        bUserData               = aDocumentProperties.getPropertyValue ( "UserData"                 )

        ' Eine Zeichenkette zusammenbasteln, welche die Werte formatiert darstellt.
        sOutLine$ =             "[OWString]"        + chr$(9) + "Author"                    + chr$(9) + "= {" + chr$(9) + sAuthor$                          + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "AutoloadEnabled"           + chr$(9) + "= {" + chr$(9) + bAutoloadEnabled                  + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Int16]"       + chr$(9) + "AutoloadSecs"              + chr$(9) + "= {" + chr$(9) + nAutoloadSecs%                    + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "AutoLoadURL"               + chr$(9) + "= {" + chr$(9) + sAutoLoadURL$                     + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "BliendCopiesTo"            + chr$(9) + "= {" + chr$(9) + sBliendCopiesTo$                  + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "CopiesTo"                  + chr$(9) + "= {" + chr$(9) + sCopiesTo$                        + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[DateTime]"        + chr$(9) + "CreationDate"              + chr$(9) + "= {" + chr$(9) + DateTime2String(dCreationDate)    + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "DefaultTarget"             + chr$(9) + "= {" + chr$(9) + sDefaultTarget$                   + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "Description"               + chr$(9) + "= {" + chr$(9) + sDescription$                     + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Int16]"       + chr$(9) + "EditingCycles"             + chr$(9) + "= {" + chr$(9) + nEditingCycles%                   + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Int32]"       + chr$(9) + "EditingDuration"           + chr$(9) + "= {" + chr$(9) + nEditingDuration&                 + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[Sequence<Byte>]"  + chr$(9) + "ExtraData"                 + chr$(9) + "= {" + chr$(9) + ByteSequence2String(seqExtraData) + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "InReplyTo"                 + chr$(9) + "= {" + chr$(9) + sInReplyTo$                       + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "IsEncrypted"               + chr$(9) + "= {" + chr$(9) + bIsEncrypted                      + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "Keywords"                  + chr$(9) + "= {" + chr$(9) + sKeywords$                        + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "MIMEType"                  + chr$(9) + "= {" + chr$(9) + sMIMEType$                        + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "ModifiedBy"                + chr$(9) + "= {" + chr$(9) + sModifiedBy$                      + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[DateTime]"        + chr$(9) + "ModifyDate"                + chr$(9) + "= {" + chr$(9) + DateTime2String(dModifyDate)      + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "Newsgroups"                + chr$(9) + "= {" + chr$(9) + sNewsgroups$                      + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "Original"                  + chr$(9) + "= {" + chr$(9) + sOriginal$                        + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "PortableGraphics"          + chr$(9) + "= {" + chr$(9) + bPortableGraphics                 + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[DateTime]"        + chr$(9) + "PrintDate"                 + chr$(9) + "= {" + chr$(9) + DateTime2String(dPrintDate)       + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "PrintedBy"                 + chr$(9) + "= {" + chr$(9) + sPrintedBy$                       + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Int16]"       + chr$(9) + "Priority"                  + chr$(9) + "= {" + chr$(9) + nPriority%                        + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "QueryTemplate"             + chr$(9) + "= {" + chr$(9) + bQueryTemplate                    + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "Recipient"                 + chr$(9) + "= {" + chr$(9) + sRecipient$                       + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "References"                + chr$(9) + "= {" + chr$(9) + sReferences$                      + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "ReplyTo"                   + chr$(9) + "= {" + chr$(9) + sReplyTo$                         + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "SaveGraphicsCompressed"    + chr$(9) + "= {" + chr$(9) + bSaveGraphicsCompressed           + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "SaveOriginalGraphics"      + chr$(9) + "= {" + chr$(9) + bSaveOriginalGraphics             + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "SaveVersionOnClose"        + chr$(9) + "= {" + chr$(9) + bSaveVersionOnClose               + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "Template"                  + chr$(9) + "= {" + chr$(9) + sTemplate$                        + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "TemplateConfig"            + chr$(9) + "= {" + chr$(9) + bTemplateConfig                   + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[DateTime]"        + chr$(9) + "TemplateDate"              + chr$(9) + "= {" + chr$(9) + DateTime2String(dTemplateDate)    + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "TemplateFileName"          + chr$(9) + "= {" + chr$(9) + sTemplateFileName$                + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "Theme"                     + chr$(9) + "= {" + chr$(9) + sTheme$                           + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[OWString]"        + chr$(9) + "Title"                     + chr$(9) + "= {" + chr$(9) + sTitle$                           + "}" + chr$(13)
        sOutLine$ = sOutLine$ + "[sal_Bool]"        + chr$(9) + "UserData"                  + chr$(9) + "= {" + chr$(9) + bUserData                         + "}"

        ' Ausgabe der formatierten Zeichenkette
        InfoMessage ( sOutLine$ )
End Sub

'----------------------------------------------------------------------------
' Hilfsmethode: Zeigt die aktuellen Elemente des NameContainers an.
'----------------------------------------------------------------------------
Sub ShowNameContainer ( aDocumentProperties )

        if ( aDocumentProperties.hasElements () = FALSE ) then
            InfoMessage ( "Keine Elemente im NameContainer enthalten." )
            Exit Sub
        end if

        aNameField      = aDocumentProperties.getElementNames ()
        if ( IsArray ( aNameField ) = FALSE ) then
            ErrorMessage ( "getElementNames() .... Fehler (Es konnte keine Sequence bestimmt werden!)" )
            Exit Sub
        end if
        nElementCount%  = UBound ( aNameField () )

        stempString$ = ""
        for nCounter%=0 to nElementCount% step 1
            stempString$ = "[" + nCounter% + "]"
            stempString$ = stempString$ + chr$(9) + aNameField(nCounter%)
            stempString$ = stempString$ + chr$(9) + "="
            stempString$ = stempString$ + chr$(9) + aDocumentProperties.getByName ( aNameField(nCounter%) )
            stempString$ = stempString$ + chr$(13)
        next nCounter%

        InfoMessage ( stempString$ )

End Sub

'----------------------------------------------------------------------------
' Hilfsfunktion: Ermittelt die Anzahl der im NameContainer enthaltenen Elemente.
'
' Returnwert = Anzahl der Elemente
'----------------------------------------------------------------------------
Function getNameContainerCount ( aDocumentProperties ) as Long

        if ( aDocumentProperties.hasElements () = FALSE ) then
            getNameContainerCount = 0
            Exit Function
        end if

        aNameField      = aDocumentProperties.getElementNames ()
        nElementCount%  = UBound ( aNameField () )

        ' Da die Zaehlung bei 0 beginnt, und der ermittelte Wert die obere Grenze darstellt,
        ' muss hier eine 1 draufgeschlagen werden.
        getNameContainerCount = nElementCount% + 1

End Function