OpenOffice.info

Hallo Leute,

ich versuche gerade eine Datei, die Text, aber auch komplette JPG Dateien enthält zu öffnen. Mein Code bisher:

sub OeffnenBinary
dim inhalt as variant
dim fnUrl as string
dim pfad as string
dim iNum as integer

doc=thiscomponent

pfad=ConvertToURL(doc.URL)
do until right(pfad,1)="/"
pfad=left(pfad,len(pfad)-1)
loop

fnURL =pfad & "Stream.txt"
iNum=Freefile

Open fnUrl For Binary Access Read As #iNum
seek #iNum,1
get #iNum,1,inhalt

end sub

Bei der Ausführung bekomme ich einen E/A Gerätefehler bei der Anweisung "get".

Kann mir jemand sagen, was falsch ist?


Danke, Friedhelm

Hi,

habe es nicht getestet, aber erster Gedanke wäre, dass die Datei geschützt ist, da sie in OO offen ist (wg. doc=thiscomponent).
Hast es schon mal mit anderen Dateien versucht oder thiscomponent vorher geschlossen?

Hallo
Aus Makros für OOo entnehme ich, das die Funktion 'Get' nicht richtig arbeitet.
Evtl. weiss Toxitom als Autor inzwischen mehr ?

Gruß Karo

Hey Friedhelm,

die Basic-Funktionen werden nicht weiter gepflegt - ich bin mir nicht sicher, ob das so funktioniert. Für "Get" gibt es ein Beispiel in der Hilfe - aber so richtig habe ich das auch nie zum Laufen bekommen.
Im Grunde solltest du sowieso den UNO-service simpleFileAccess nutzen, der wird weitergepflegt und bietet dir auch das Bit-weise auslesen an (readBytes, readSomeBytes, skipBytes,...). Ich denke, damit solltest du weiterkommen

zu finden im Service com.sun.star.ucb.SimpleFileAccess , Interface XSimpleFileAccess, Methode openFileRead() -> liefert Inputstream des Typs com.sun.star.io.XInputStream, dieses Interface bietet die oben genannte Methoden an

Viele Grüße
Thomas