Achso, dann hatte ich dich missverstanden. Hab aber eben nochmal
nachgeschaut, was sich da machen lässt. getByHierarchicalName(string)
gibt dir ein css::packages::PackageStream service zurück, siehe
http://api.openoffice.org/docs/common/ref/com/sun/star/packages/PackageStream.html
.
Das Interface XPropertySet ganz unten auf der Seite gibt dann die
Antwort auf deine Frage, es ist ganz einfach die PropertyValue "Size"
die dir die Größe des Elements im Archiv zurückgibt, wohlbemerkt im
dekomprimierten Zustand.
Hier mein kleines Test-Makro:
<code>
Sub Main42
oZipArch = createUnoService("com.sun.star.packages.Package")
furl = thisComponent.getURL()
oZipArch.initialize(Array(furl))
content = oZipArch.getByHierarchicalName("content.xml")
msgbox content.getPropertyValue("Size") 'content.Size ist die kürzere
Version, die auch funktionieren sollte.
End Sub
</code>
Am 14.08.05 schrieb Jörg Schmidt <[EMAIL PROTECTED]>:
> Hallo,
>
> Christian Junker schrieb.
> > [...]
>
> Danke, aber:
> Naja, der Pfad ist ja eigentlich mein Problem.
> Ich kriege mit:
>
> ...
> xxx = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
> msgbox xxx.getSize(ThisComponent.URL)
> 'oder:
> 'msgbox FileLen(...)
> ...
>
> Die Größe des *.sxw-Files.
>
> Nur wie ist denn der Pfad zu einem File was in einem Ordner des *.sxw
> ist?
>
> Ich habe jetzt alles Mögliche probiert, was nach meinem Verständnis des
> Developersguide in Audrücken der Art:
>
> xxx.getSize("vnd.sun.star.pkg://" & ConvertFromURL(ThisComponent.URL) &
> "/infixes/jms.pdf")
>
> gipfelt.
> Das ist aber schon nicht der richtige Pfad, weil:
>
> xxx.exists(...)
>
> 'false' sagt.
>
> Entweder habe ich es überlesen oder es ist eine Kleinigkeit, oder ...?
>
> Ja, ich weiß nicht.
>
>
>
> Gruß
> Jörg
>
>
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
Best Regards
Christian Junker
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
