OpenOffice.info

Toll,
und was?
R

sub s_show_dialog

DialogLibraries.loadLibrary( "Standard" )
oForm = DialogLibraries.Standard.Dialog1
oDlg = CreateUnoDialog( oForm )
opic = oDlg.getControl("img1")
opic.model.Graphic = f_find_image
opic.model.ScaleMode = 0'->Originalgrösse, 1->Seitenverhältnis, 2->angepasst
odlg.execute
end sub

function f_find_image

oFolder = thisdatabasedocument.getDocumentSubStorage("Bilder",1)
oimage = oFolder.getbyname("image.jpg")
oGraphicProvider = createUnoService("com.sun.star.graphic.GraphicProvider")
Dim args(1)as new com.sun.star.beans.PropertyValue
args(0).Name  = "InputStream"
args(0).Value = oImage.InputStream
f_find_image = oGraphicProvider.queryGraphic(args)
oImage.InputStream.closeInput

end function

Hallo,
[quote="DPunch"]Es gibt einerseits den Stream-Zugriff, wenn die Datei z.B. nur einfach dem Archiv hinzugefügt wurde, grundsätzliches dazu
Hier[/quote] mit Hilfe des Links ist es mir gelungen dem .zip Archiv der .odb einfach einen Ordner [color=#0040FF]Bilder[/color] zuzufügen, in dem ich ein eigenes Bild [color=#0040FF]image.jpg[/color] liegen habe. Dieses Bild kann ich nun mit folgendem Code in einem grafischen Kontrollfeld [color=#0040FF]img1[/color] meines Dioaloges [color=#0040FF]Dialog1[/color] anzeigen lassen. Es ist somit in die .odb eingebettet.

[code]sub s_show_dialog

DialogLibraries.loadLibrary( "Standard" )
oForm = DialogLibraries.Standard.Dialog1
oDlg = CreateUnoDialog( oForm )
opic = oDlg.getControl("img1")
opic.model.Graphic = f_find_image
opic.model.ScaleMode = 0'->Originalgrösse, 1->Seitenverhältnis, 2->angepasst
odlg.execute
end sub

function f_find_image

oFolder = thisdatabasedocument.getDocumentSubStorage("Bilder",1)
oimage = oFolder.getbyname("image.jpg")
oGraphicProvider = createUnoService("com.sun.star.graphic.GraphicProvider")
Dim args(1)as new com.sun.star.beans.PropertyValue
args(0).Name = "InputStream"
args(0).Value = oImage.InputStream
f_find_image = oGraphicProvider.queryGraphic(args)
oImage.InputStream.closeInput

end function[/code]

Danke an DPunch und Gruß R

Aloha

Das kommt vor allem darauf an, wie Du die Datei in Deiner odb untergebracht hast.

Es gibt einerseits den Stream-Zugriff, wenn die Datei z.B. nur einfach dem Archiv hinzugefügt wurde, grundsätzliches dazu
[url=http://de.openoffice.info/viewtopic.php?t=48286&p=176403#p176403]Hier[/url]
oder aber das Auslesen einer als BinaryLargeObject (BLOB) in der Datenbank hinterlegten Datei, Beispielcode dazu
[url=http://de.openoffice.info/viewtopic.php?f=18&t=50349#p186282]Hier[/url]

Hy leute brauche wiedermal hilfe von euch.

Möchte in ein File in Test.odb (openoffice Base) zugreifen.

Also ich Starte die Test.odb Datenbank, wenn base sich öffnet startet ein Makro. Mit dem Makro will ich ein vers.txt das in Test.odb gespeichert ist auslesen.
Wie kann ich mit dem makro auf das vers.txt im Test.odb zugreifen? Den rest schaffe ich wieder.

Oder entzippt openoffice das odb.file irgendwo hin?

danke schon mal im vorhinein mfg

jürgen