Hi Marc,
Marc Santhoff schrieb:
Hello Ocke,
Am Dienstag, den 19.02.2008, 12:02 +0100 schrieb Ocke Janssen:
Hi Marc,
Marc Santhoff wrote:
Hi again,
still more questions:
If I have stored an alien file into the base file and retrieve the names
using
doc.getSubStoragesNames()
this list does only contain the elements "FormDocuments" and
"ReportDocuments".
Is this by design or a missing feature?
The reason for this question is simple:
When creating a substorage with a given name, this name seems to be not
visible after creation. If one is happy with fixed substorage names,
there is no problem. For the purpose of embedding templates I could live
with it very well.
Maybe I overlooked something ...
It should return all names which are in the storage. Do you commit the
new sub storage you inserted?
I was wrong. It only returns the names forms and reports.
- oj
Yes, of course. Look for yourself:
<code>
sub TestAlienStorage
dim mData(0) as byte
sAlienFile = "c:\autoexec.bat"
sOpenDBDocument = "Spielwiese"
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
datacount = oUcb.getSize(convertToUrl(sAlienFile))
ReDim mData(datacount) as byte
xIStream = oUcb.openFileRead(convertToUrl(sAlienFile))
' get the database file already opened
doc = FindBaseComponent(sOpenDBDocument)
' create new folder
xSubStorage = doc.getDocumentSubStorage("Area 51", _
com.sun.star.embed.ElementModes.WRITE)
xSubStorage.setPropertyValue("MediaType", "text/plain")
' create stream and write foreign file into it
xOStream = xSubStorage.openStreamElement("File X42", _
com.sun.star.embed.ElementModes.WRITE)
cnt = xIStream.readSomeBytes(mData, datacount)
if (cnt<>datacount) then msgbox "Error on writing file to substorage!"
xOStream.writeBytes(mData)
xOStream.closeOutput()
xIStream.closeInput()
xSubStorage.commit()
xSubStorage.dispose()
end sub
</code>
Sounds like this wille need another issue. Or the space chars in the
name do harm to the names listing ...
Marc
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Ocke Janssen Tel: +49 40 23646 661, x66661
Dipl. Inf(FH) Fax: +49 40 23646 550
Sun Microsystems Inc.
Nagelsweg 55 mailto:[EMAIL PROTECTED]
D-20097 Hamburg http://www.sun.com/staroffice
Sitz der Gesellschaft: Sun Microsystems GmbH, Sonnenallee 1,
D-85551 Kirchheim-Heimstetten
Amtsgericht Muenchen: HRB 161028
Geschaeftsfuehrer: Thomas Schroeder, Wolfgang Engels, Dr. Roland Boemer
Vorsitzender des Aufsichtsrates: Martin Haering
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
