| ' ************************************************************* |
| ' |
| ' 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 |
