Office: (Office 2013) OLE Bilder als Datei exportieren

Guten Morgen

Ich habe eine Tabelle mit Artikeln (über 700 Einträge) vor mir. Jeder Artikel hat ein Bild gespeichert als OLE-Objekt. Da das Backend sich nun langsam der 2GB Grenze annähert und die Performanz ziemlich leidet will ich nun das Ganze umbauen, so dass die Bilder als Datei im Hintergrund auf dem Server gespeichert werden und die Datenbank nur noch die Pfade bzw. Dateinamen verwaltet.

Nun steh ich allerdings vor dem Problem, dass ich die Bilder (manche sind im Bitmap-Format und manche im JPG) in den OLE-Objekten nicht als Datei exportiert bekomme.
Folgende Ansätze habe ich bereits versucht:

1. Die Lösung von Herrn Lebans. Dazu habe ich die .accdb Datei in eine .mdb umgewandelt und dann mit dem OLEtoDisk geöffnet. Das Problem ist allerdings, dass mir nur die Bitmap-Bilder exportiert werden.

2. Zwei Lösungen von Access Im Unternehmen. Bei dieser Lösung speichert er zwar alle Dateien (probiert habe ich bmp als auch jpg), die Bilder können allerdings nicht geöffnert werden, da sie anscheinend beschädigt sind. Die Dateigrößen passen. Die zweite Lösung war der GDI+-Wrapper. Allerdings liefert mir die Funktion SavePicGDIPlus immer einen Laufzeitfehler, dass "Image.Handle" nicht gefundet werden kann.

3. Der dritte Versuch war mit einer Funktion von Ammara, welche einfach Blobs in eine Datei speichert. Die Bilder sind am Ende allerdings auch wieder beschädigt und können nicht geöffnet werden.

Kennt jemand noch eine Möglichkeit, welche ich versuchen könnte? Bin langsam am verzweifeln. Eine Lösung wie von Herrn Lebans, welche mit JPG-Bildern funktioniert, wäre natürlich ideal.

Hier der Code:

PHP:

         Public Function exportImages()
Dim db As Database
Dim rc As Recordset
Set db = CurrentDb
Set rc = db.OpenRecordset("tblArtikel", dbOpenDynaset)

Dim lSize As Long
Dim arrBin() As Byte

Do Until rc.EOF
lSize = rc.Fields("artBild").FieldSize
ReDim arrBin(lSize - 1)
arrBin = rc.Fields("artBild").GetChunk(0, lSize)

'Module Export ist der GDI+Wrapper von http://www.access-im-unternehmen.de/index1.php?id=300&BeitragID=337
Dim objPicture As StdPicture
Set objPicture = Export.ArrayToPicture(arrBin)
If (Export.SavePicGDIPlus(objPicture, "<path>\Export WWS\" & rc("artIDIntern") & ".jpg", pictypeJPG, 90) = False) Then
Debug.Print rc("artIDIntern") & " failed..."
End If

'auch mit .bmp versucht
Blob.BlobToFile "<path>\Export WWS\" & rc("artIDIntern") & ".jpg", rc("artBild")

'auch mit .jpg versucht
mdlOLE.SaveOLEFieldToFile "tblArtikel", "artIDIntern", Val("" & rc("artIDIntern")), "artBild", "<path>Export WWS" & rc("artIDIntern") & ".bmp"
rc.MoveNext
Loop
End Function


:)

 

Da die Bilder als OLE Objekte gespeichert sind, kann nach meinem Verständnis nur die Lösung von Lebans funktionieren.

Der Rest würde voraussetzen, dass die Bilder als reine binäre Daten gespeichert sind - ohne OLE Server Infos - daher sind die Daten auch nicht lesbar.

Vielleicht taucht ja noch eine Lösung auf.
Da es aber nur 700 Bilder sind, kann man die auch manuell (Doppelklick und speichern) herausholen, oder die Bilder in eine eigene Access Datei auslagern.

LG Markus

 

Doppelklick funktioniert leider nicht, da kommt eine Fehlermeldung.





Allgemein läuft da irgendetwas schief. Wenn ich das gebundene Bild in einem Formular anklicke und in die Zwischenablage kopiere kann ich es nur in Paint wieder einfügen, der Office Picture Manager geht z.B. nicht. Sonst würde ich mir einen Klickbot schreiben, welcher die Bilder aus dem Formular kopiert, in den Picture Manager kopiert, die Qualität noch verändert und das Bild dann als JPG exportiert.

 

Was steht denn in ole Feld drinnen?
Bei einem jpg File steht bei mir Paket und bei bmp steht Bitmap.

LG M

 

Ich denke, das sollte eigentlich nicht so schwierig sein. Ich habe dazu diesen Blogpost gefunden, der einen Lösungsansatz mit C# zeigt. - Da du nur einmalig die Bilder extrahieren willst, sollte das ja kein Hindernis sein.

 

Vielen Dank, werde versuchen die Bilder einfach als Binary-Blob zu speichern und dann das C# Programm drüber laufen lassen, damit die Header entfernt werden.

 

Die Frage ist doch wie die Bilder gespeichert sind.
Meines Wissens nach wandelt Access Bilder die als OLE Objekt abgespeichert sind in ein internes Format um, das wesentlich mehr Platz benötigt. In dem Fall geht es nicht um einen einfachen Header.

Im Blog geht es nach meinem Verständnis um Bilder die als Binärstrom gespeichert werden. Diese Frage - ob die Bilder tatsächlich als Binärstrom gespeichert sind - gilt es aber zuerst zu klären.

Wenn er die Bilder aber nicht per Doppelklick öffnen kann sind sie vielleicht eh als reine Binärstrom gespeichert - was aber ohne zusätzliche Steuerelemente die binäre Daten direkt darstellen können wenig Sinn macht.

LG M

 

Da hast du Recht. Das C# Programm wirft mir bei allen Dateien die Exception

PHP:

         throw new Exception("Unable to determine header size for the OLE Object") ;


 

Direkt in der Tabelle, jeweils in der Zeile des OLE Feldes.
Je nach Typ der Datei steht dann was drinnen.
Wie bereits erwähnt bei einem jpg File -> Paket und bei bmp -> Bitmap.
Oder Long binary-Daten usw.

LG M

PS:
Die Meldung an sich ist noch bedeutungslos.

 

Ah ok danke, das Feld war ausgeblendet. Also bei den meisten Datensätzen steht "Bild", bei manchen auch "Bitmap Image".

 

und wenn du auf das OLE Feld mit Bild einen Doppelklick machst, wird es dann geöffnet?

Also ich hab jetzt gesehen, dass man ein Bitmap zu einem Bild konvertieren kann und danach ist eine Öffnung direkt in der Anwendung nicht mehr möglich.
Das wird vermutlich das Problem sein.

LG Markus

 

\@yss
So weit ich gesehen habe, werden die Bitmaps in das DIB Format umgewandelt.
Vielleicht findest du ja ein Programm, dass die Daten konvertieren kann. Den Header musst natürlich auf entfernen. Wäre eine kleine Spielerei.

Jedenfalls weiß ich jetzt, warum ich keine Bilder als OLE Objekte, sondern allerhöchstens als long binary speichere.
LG Markus

 

Hallo,

ich hab jetzt gesehen, dass ein bmp File nur in ein einfaches Frame gepackt ist und das entfernen des "Headers" - je nach Programm das die Daten dann anzeigt - auch genügen sollte. D. h. solange das Programm nicht prüft ob die Daten aus dem Fileheader mit der Filegröße übereinstimmen. Bei jpg allerdings sind die Daten umgewandelt. Die habe ich dann nicht weiter angesehen.
Es wäre also sicher möglich in VBA eine Routine zu erstellen, die das speichern von OLE Objekten direkt in Files ermöglicht.

Allerdings müsste man da etwas tiefer eintauchen.

LG Markus

 

Ich habe im Moment keine Zeit mich tiefer mit dem Thema auseinanderzusetzen, daher kann ich keine eigene Erkenntnisse beisteuern.

Ohne Gewähr ein paar Infos aus meiner Erinnerung:

• Bis einschließlich A2003 speichert Access alle Bilder in OLE-Feldern intern als Device-Independent-Bitmap oder EMF (eher letzteres, bin aber nicht ganz sicher).
• Ab A2007 kann man das Bildformat in den Optionen für die DB einstellen.
• Wenn der OLE-Header entfernt wird, sollte entweder die ursprüngliche Bild-Datei oder die konvertierte Bitmap/EMF übrig bleiben.
• Alle internen File-Header der gekapselten Datei sollten eigentlich korrekt sein, so dass man diese direkt ins Dateisystem schreiben kann.

 

Nachdem ich jetzt alles versucht habe hat die Lösung mit Klickbot nun letztendlich funktioniert. Hab erst alle Bitmap-Bilder mit der Lösung von Lebans exportiert, diese dann aus der Tabelle gelöscht und den Rest per MouseRecorder einprogrammiert ,so dass er mir immer das Bild markiert hat, CTRL + C, dann in Office Picture Manager eingefügt und als JPG exportiert. Hat zwar 5h gedauert, lief aber alles automatisiert ab und somit habe ich nur 10min aufwenden müssen den Recorder zu programmieren.

Vielen Dank an alle die versucht haben mir Tipps zu geben. Schade, dass es nun schlussendlich keine Lösung in VBA geworden ist.