OpenOffice.info

kill F_unzip_Image

Hallo Balu,
[quote="balu"]...und ob Rik damit was anfangen kann, ist ja auch noch unbekannt.[/quote]
... aber das ist doch nicht unbekannt:
[quote="F3K Total"]Hallo Stephan,
da habe ich wieder was gelernt.
klappt einwandfrei, vielen Dank.
Und das Beste: Auch das entpackte Bild läßt sich ohne zu zicken wieder löschen.
[/quote]

Hier schicke ich dann nochmal meine obige Beispieldatei, in der ich Stephans Verfahren verwende.
Einfach, wenn die DB noch nicht registriert ist, die Sub [color=#0040FF]S_register_DB_with_image_load[/color] starten.
Wenn ich die Zeile
[code]kill F_unzip_Image[/code] rausnehme, kann ich bei Windows unter C:\Users\<user>\AppData\Local\Temp die Kopie der Datei "Bild.jpg" finden, das ist das Bild, was innerhalb der .odb liegt.

Edit: [quote="DPunch"]Ich kann Dir lediglich sagen, dass Du das Problem umgehen kannst, wenn Du die Datei vor dem Löschen schliesst ...[/quote]
Hallo DPunch,
die Idee hatte ich auch, aber genau das möchte ich vermeiden. Ich hatte gehofft, es gibt vielleicht so ein ...dispose oder so ähnlich, aber die Nummer mit der temporären Datei funktioniert ja prima ...

Beste Grüße von Rik

Hallo Stephan,

[quote]
Worauf bezieht sich die Frage? Falls sie sich darauf bezieht das du den Code rechtlich verwenden darfst dann ja.
[/quote]
Nifcht wegen rechtlich, sondern schlicht und einfach technisch. Ich persönlich kann es ja nicht testen, und ob Rik damit was anfangen kann, ist ja auch noch unbekannt.



Gruß
balu

[quote]Ich find momentan den Thread nicht wieder wo Du deinen hier geposteten Code aber anders vorgestellt hattest. Er war dort aber auch etwas Umfangreicher. Ferner hattest Du da auch auf ein Online Kapitel zu dem Thema bei Gallileo von deinem Buch verwiesen. Ich glaub das war in einem Calc-Thread, bin mir aber nicht sicher.[/quote]

Ja, kann sein.

Ich habe mal nachgesehen und der Code ist im Buch für OOo 2.3 das erste Mal drin, das stammt von 2008, die Datei aus der ich heute kopiert habe ist besagte Datei für die PrOOo-box (ein Installer, als es mit Extensions noch nicht möglich war Dokumentvorlagen zu installieren) und die Version die ich genutzt hatte war von 2006.

Ich hänge die mal unten an, wobei die dortige Version 4b nun auch wieder nicht diejenige ist aus der ich den code kopiert habe. Letztere war Version 3 die enthält aber alle Vorlagen direkt und ist deshalb über 2 MB groß.

[quote]Die Unterschiede zwischen dem alten geposteten und dem hier sind folgende.
Im alten besteht das Makro aus 3 Subs. Wobei eine Sub dem Ereigniss "Dokument öffnen", und eine andere "Dokument wird geschlossen" zugewiesen sind.[/quote]

Naja, der Code den ich im Buch verwende ist für das Buch gemacht und ihm liegt ein verständlicher Anwendungsfall zugrunde.



[quote]Kann man das Makro in der Beispieldatei für diesen Fall hier eventuell verwenden?[/quote]

Worauf bezieht sich die Frage? Falls sie sich darauf bezieht das du den Code rechtlich verwenden darfst dann ja.




Gruß
Stephan

Hallo Leute!

Ich weiß nicht ob mein Kommentar hier irgendwie hilfreich ist, oder nicht. Dennoch möcht ich was dazu sagen, fragen.


@Stephan
Anbei eine simple Beispieldatei.
Ich find momentan den Thread nicht wieder wo Du deinen hier geposteten Code aber anders vorgestellt hattest. Er war dort aber auch etwas Umfangreicher. Ferner hattest Du da auch auf ein Online Kapitel zu dem Thema bei Gallileo von deinem Buch verwiesen. Ich glaub das war in einem Calc-Thread, bin mir aber nicht sicher.

Die Unterschiede zwischen dem alten geposteten und dem hier sind folgende.
Im alten besteht das Makro aus 3 Subs. Wobei eine Sub dem Ereigniss "Dokument öffnen", und eine andere "Dokument wird geschlossen" zugewiesen sind.

Dein hier geposteter Code ist aufgeteilt in die Sub für "Dokument öffnen", und der andere Teil davon ist als Function ausgelagert. Die Sub für "Dokument wird geschlossen" ist für das "Killen" der Grafiken zuständig.

Kann man das Makro in der Beispieldatei für diesen Fall hier eventuell verwenden?
Wenn nicht, ist auch egal.


Da ich die Beispieldatei von Rik hier nicht ans laufen kriege, ich weiß nicht warum, kann ich nicht sagen ob das Makro aus der Beispieldatei irgendwie hilfreich ist.



Gruß
balu

Private oldDocument

Sub S_register_DB_with_image_load
oldDocument = thisComponent
(...)
End Sub

Sub S_rename_DB(sURL_DB,sName_DB)
(...)
if sURL_DB_neu<>sURL_DB then 
oldDocument.close(True)
kill sURL_DB
endif
End Sub

Servus

[quote="F3K Total"]Ich vermute das der Inputstream nicht korrekt geschlossen wird, und das Bild daher noch als "geladen" erkannt wird?[/quote]
Das sieht nach der wahrscheinlichsten Begründung dafür aus.
Wirklich erklären kann ich mir das selber nicht, dazu müsste man viel tieferen Einblick in die Engine nehmen, um zu wissen, warum und wie das Dokument von OOo offensichtlich noch als geöffnet, und somit gelocked, angesehen wird.

Ich kann Dir lediglich sagen, dass Du das Problem umgehen kannst, wenn Du die Datei vor dem Löschen schliesst, also ala
[code]Private oldDocument

Sub S_register_DB_with_image_load
oldDocument = thisComponent
(...)
End Sub

Sub S_rename_DB(sURL_DB,sName_DB)
(...)
if sURL_DB_neu<>sURL_DB then
oldDocument.close(True)
kill sURL_DB
endif
End Sub
[/code]

Nachtrag:
Nichtmal das funktioniert zuverlässig, manchmal wird die alte Datei gelöscht, manchmal nicht, manchmal bleibt das umbenannte Dokument geöffnet, manchmal schliesst sich auch dies. Seltsam.

Hallo Rik,

ich weiß dazu leider nichts.
Die Version die Du hier (im anderen Thread) vorgestellt hast war mir im Übrigen neu und den Code den ich hier gepostet habe habe ich aus einem Makros rauskopiert, welches ich 2006 für die PrOOo-Box geschrieben hatte und seitdem unverändert in diversen anderen Makros nutze.


Gruß
Stephan

Hallo Stephan,
eine Frage habe ich noch. Weißt Du, warum meine Version nicht funktioniert hat?
Ich vermute das der Inputstream nicht korrekt geschlossen wird, und das Bild daher noch als "geladen" erkannt wird?

Gruß Rik

Hallo Stephan,
da habe ich wieder was gelernt.
klappt einwandfrei, vielen Dank.
Und das Beste: Auch das entpackte Bild läßt sich ohne zu zicken wieder löschen.
Beste Grüße von Rik

 tmp_pfad = CreateUnoService("com.sun.star.util.PathSettings")  
  GUI_pfad = tmp_pfad.temp
  
  z = CreateUnoService("com.sun.star.packages.Package")
  args(0) = ThisComponent.URL
  z.initialize(args())
  
  ebene = z.getByHierarchicalName("Bilder")
  alles = ebene.getElementNames()
  
  schreiben = createUnoService("com.sun.star.ucb.SimpleFileAccess")
  
  For i = LBOUND(alles()) To UBOUND(alles())
    stream = z.getByHierarchicalName("Bilder/" & alles(i)).GetInputStream
    schreiben.WriteFile(GUI_pfad & "/" & alles(i), stream) 
  Next i

[quote]Hat da jemand eine Idee?[/quote]

Packe dass Bild ganz normal aus wie es beispielsweise auch bei einer *.odt gemacht werden würde/müßte, dann hast Du ein Bild mit 'externer URL'.

ungefähr so:

[code] tmp_pfad = CreateUnoService("com.sun.star.util.PathSettings")
GUI_pfad = tmp_pfad.temp

z = CreateUnoService("com.sun.star.packages.Package")
args(0) = ThisComponent.URL
z.initialize(args())

ebene = z.getByHierarchicalName("Bilder")
alles = ebene.getElementNames()

schreiben = createUnoService("com.sun.star.ucb.SimpleFileAccess")

For i = LBOUND(alles()) To UBOUND(alles())
stream = z.getByHierarchicalName("Bilder/" & alles(i)).GetInputStream
schreiben.WriteFile(GUI_pfad & "/" & alles(i), stream)
Next i[/code]

wobei hier "Bilder" der Name des Ordners ist der sich in erster Ebene in der Datei (hier *.odb) befindet und das Bild würde in das tmp-Verzeichnis des Nutzer geschrieben.




Gruß
Stephan

Guten Morgen zusammen,

in diesem Thread:[url]http://de.openoffice.info/viewtopic.php?f=18&t=51643#p193021[/url]habe ich stolz verkündet, dass es mir gelungen ist, ein Bild in eine entzippte .odb zu legen, was ich später in einem grafischen Kontrollfeld eines Dialoges der DB anzeigen lasse.
Klappt auch prima.
Jetzt versuche ich mein Problem zu beschreiben, was nicht ganz leicht ist.
Ich möchte das Bild in einen Dialog laden, der u.a. zum Umbenennen der Datenbank verwendet wird, folgende Schritte werden durchlaufen:
[list][*]DB öffnen und prüfen ob sie registiert ist, wenn nicht, Registieren.
[*]Dialog mit Bild öffnen, Usereingaben, wie z.B. der neue Name der DB
[*]DB umbenennen, speichern, registrieren, alte DB abmelden, [color=#0040FF]alte DB von Platte löschen[/color][/list]
Und genau hier kommt es zu o.a. Problem, allgemeiner Ein-/Ausgabefehler.
Ich bin mit meinen Forschungen soweit gekommen, das dass Löschen von der Platte nicht möglich ist, wenn ich das Bild in den Dialog per InputStream lade.
Obwohl ich den .Inputstream mit .closeInput wieder schliesse kommt beim Löschen der Datei die Meldung(allgemeiner Ein-/Ausgabefehler) und die Datei wird nicht gelöscht.
Nehme ich einen externen URL um das Bild in den Dialog zu laden, oder lasse ich den Dialog mal weg (Makro 2 unten), kein Problem.
Hat da jemand eine Idee?
Anbei eine Beispieldatei mit zwei Makros:
1.) S_register_DB_[color=#0040FF]with[/color]_image_load --> funktioniert nicht
2.) S_register_DB_[color=#0040FF]without[/color]_image_load---> funktioniert
Wenn die Makros durchlaufen werden sollen, darf die DB nicht angemeldet sein. Denn das Anmelden ist Bestandteil des Makros. Nach dem ersten Lauf ist sie angemeldet, muß dann also für einen zweiten Lauf wieder abgemeldet werden.
Viele Grüße von Rik