<\/p>\n
Es gibt immer mal wieder eine Gelegenheit, Bilder in Datenbanken zu speichern, anzuzeigen oder von dort auf die Festplatte zu speichern. Die meisten Wege führen dabei über das Zwischenspeichern im Dateisystem, manch eine Anwendung belässt die Bilddateien auch direkt im entsprechenden Ordner. Mit einem Image-Steuerelement und einer Tabelle mit einem OLE-Feld behält man alles an einem Ort – nämlich in der Datenbank.<\/b><\/p>\n
Als Beispiel für diesen Artikel dient die Bücherverwaltung aus dem gleichnamigen Beitrag in dieser Ausgabe von Access im Unternehmen <\/b>(Shortlink 633). Diese speichert Bilder direkt in der Tabelle tblBuecher zusammen <\/b>mit den anderen Buchinformationen und zeigt die Bilder im Formular frmBuch <\/b>zum jeweils passenden Exemplar an (siehe Bild 1). Dabei bezieht sie die Bilddateien aus verschiedenen Quellen: Wenn Sie die Bücher manuell eintragen, können Sie selbst eingescannte oder anderweitig verfügbare Buchcover in der Datenbank speichern, indem Sie einfach auf die Bild hinzufügen<\/b>-Schaltfläche klicken und das gewünschte Bild mit dem anschließend erscheinenden Datei öffnen<\/b>-Dialog auswählen.<\/p>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2008_04\/BilderOnTheFly-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Das Beispielformular mit einem Buchcover im Image-Steuerelement<\/span><\/b><\/p>\n Die Anwendung bietet auch die Möglichkeit, Buchinformationen per Webservice direkt von Amazon einzulesen. Diese Informationen enthalten auch Links zu Coverbildern in verschiedenen Auflösungen und die Anwendung liefert die Möglichkeit, diese Bilder von Amazon herunterzuladen und in der Datenbank zu speichern.<\/p>\n Werkzeug<\/b><\/p>\n Als Werkzeug für die in diesem Beitrag beschriebene Lösung dienen einige VBA-Routinen und API-Funktionen, die aus der Beispieldatenbank zum Beitrag Bilder im Griff mit VBA und GDI+ <\/b>(Shortlink 337) stammen. Die hier verwendete Zusammenstellung wurde teilweise von Sascha Trowitzsch weiterentwickelt und vom Autor des vorliegenden Beitrags für den hier beschriebenen Anwendungsfall zusammengestellt.<\/p>\n Vom Web ins Image-Steuerelement<\/p>\n Für das Herunterladen einer Bilddatei aus dem Internet und ihre Anzeige in einem Formular brauchen Sie zunächst einmal die Funktion GetPictureFromURL <\/b>aus dem Modul mdlOLE <\/b>der Beispieldatenbank.<\/p>\n Diese Routine erwartet als Parameter die URL der Bilddatei, zum Beispiel http:\/\/www.access-im-unternehmen.de\/fileadmin\/images\/aiu_2008_01.png<\/b>.<\/p>\n Um die Routine auszuprobieren, brauchen Sie nur ein Microsoft Forms 2.0 Image<\/b>-Steuerelement in ein Formular einzufügen, dieses beispielsweise objImage <\/b>zu nennen und beim Laden des Formulars die folgende Routine auszuführen:<\/p>\n Vom Web ins OLE-Feld<\/p>\n Nun soll das Bild aber nicht direkt angezeigt, sondern möglichst erstmal in der Datenbank gespeichert werden – und zwar in einem OLE-Feld in einer Tabelle Ihrer Wahl. In der Beispieldatenbank Buecherverwaltung.mdb <\/b>heißt das Feld Bild <\/b>und befindet sich in der Tabelle tblBuecher<\/b>.<\/p>\n Die oben vorgestellte Funktion GetPictureFromURL <\/b>dient als Ausgangspunkt für die folgende Vorgehensweise: Sie liefert nämlich immerhin schon einmal ein StdPicture<\/b>-Objekt, das auf das Bild verweist.<\/p>\n Was aber muss passieren, damit dieses Bild-Objekt nun im OLE-Feld einer Tabelle landet und obendrein leicht wiederherstellbar ist Dank der Funktionen in den beiden Modulen mdlGDIPlus <\/b>und mdlOLE <\/b>lässt sich das ganz leicht herleiten. Genau genommen ist es fast wie bei Rechenaufgaben aus technischen Bereichen: Wenn man dort gar nicht mehr weiter weiß, schaut man sich halt die Einheiten an, in denen die Funktions- und Ergebniswerte angegeben werden müssen. Wenn man Einheiten durch Datentypen ersetzt, ist das eine interessante Analogie. Und eine zusätzliche Hilfe bieten natürlich die Funktionsnamen.<\/p>\n Wenn Sie ein StdPicture<\/b>-Objekt in ein OLE-Feld einfügen möchten, durchsuchen Sie also erstmal die beiden Module nach Routinen, die irgendwas in ein OLE-Feld einsetzen.<\/p>\n Das erledigen sowohl SaveFileToOLEField <\/b>als auch ArrayToOLEField<\/b>. Die erste erwartet die Angabe einer Datei und speichert diese im OLE-Feld einer Tabelle, die zweite ein Byte-Array.<\/p>\n Wir müssen aus unserem StdPicture<\/b>-Objekt also entweder eine Datei erstellen oder dieses in ein Byte-Array umwandeln. Ein Blick in die Liste der zur Verfügung stehenden Routinen zeigt, dass wir mit der Umwandlung von StdPicture <\/b>zu Byte-Array richtig liegen – die Funktion ArrayFromPicture <\/b>aus dem Modul mdlGDIPlus <\/b>macht so etwas.<\/p>\n <\/p>\n Wir arbeiten uns also wie folgt durch Funktionen: GetPictureFromURL <\/b>liefert uns die auf einem Webserver liegende Bilddatei frei Haus als StdPicture<\/b>-Objekt. Dieses wandelt die Routine ArrayFromPicture <\/b>in ein Byte-Array um und dieses speichert schließlich die Funktion ArrayToOLEField <\/b>im OLE-Feld der Zieltabelle.<\/p>\n Dies kann man wiederum in eine neue Funktion kapseln, welche die URL sowie die Daten des Zielobjekts, also des OLE-Felds, als Parameter erwartet. Diese sieht wie in Listing 1 aus und erwartet die folgenden Parameter:<\/p>\n Listing 1: Speichern einer Bilddatei aus dem Web in einem OLE-Feld<\/p>\n Im Falle der Bücherverwaltung müssten Sie also den folgenden Aufruf verwenden (in einer Zeile):<\/p>\n Von der Festplatte ins OLE-Feld<\/b><\/p>\n Das Formular frmBuch <\/b>der Beispieldatenbank bietet unterhalb des Image<\/b>-Steuerelements zur Anzeige des Bilds zwei Schaltflächen an, von denen die eine das Hinzufügen von Bildern aus dem Dateisystem erlaubt.<\/p>\n Durch die Beim Klicken<\/b>-Ereignisprozedur der Schaltfläche wird die Routine aus Listing 2 aufgelöst.<\/p>\n Listing 2: Speichern einer Bilddatei aus dem Dateisystem in einem OLE-Feld<\/p>\n Die Routine verwendet zunächst die OpenFileName<\/b>-Funktion aus dem Modul mdlGlobal <\/b>der Beispieldatenbank, um einen Datei öffnen<\/b>-Dialog anzuzeigen (siehe Bild 2).<\/p>\n Bild 2: Datei öffnen-Dialog zum Auswählen der zu importierenden Bilddatei<\/span><\/b><\/p>\n Hat der Benutzer dort eine Datei ausgewählt, speichert die Routine zunächst den aktuellen Datensatz. Dies ist nötig, um Konflikte beim Hinzufügen des Bildes zum OLE-Feld zu verhindern: Möglicherweise hat der Benutzer den aktuellen Buchdatensatz ja gerade bearbeitet und noch nicht gespeichert. Wenn die VBA-Routine aus Listing 2 dann parallel änderungen vornimmt, kann dies zu einem Konflikt führen. <\/p>\n Nach dem Speichern kann die Routine sicher sein, den aktuellen Stand des Buchdatensatzes zu bearbeiten, und durch einen Aufruf der Prozedur SaveVileToOLEField<\/b> das Bild mit dem angegebenen Dateinamen speichern.<\/p>\n Die Routine erwartet ganz ähnliche Parameter wie die soeben beschriebene Hilfsfunktion zum Einlesen von Bilddateien aus dem Internet und wird bis auf den kleinen Unterschied, dass hier eine Pfadangabe des lokalen Dateisystems und keine URL als Quelle vorliegt, genau so verwendet.<\/p>\n Die kleine Hilfsfunktion RequeryImage<\/b> (siehe weiter unten) sorgt schließlich noch dafür, dass die Anzeige im Image-Steuerelement aktualisiert wird, und damit wären wir auch schon beim nächsten Schritt.<\/p>\n Vom OLE-Feld ins Formular<\/p>\n Der Titel dieses Beitrags heißt nicht umsonst Bilder on the fly<\/b>: Hier lernen Sie nämlich Methoden kennen, in Access mit Bilddateien aus OLE-Feldern zu hantieren, ohne diese vor dem Anzeigen in Formularen oder Berichten umständlich im Dateisystem zwischenspeichern zu müssen.<\/p>\n Beim Einlesen von Bildern aus dem Internet funktioniert dies reibungslos, beim Holen von Bildern aus dem Dateisystem ist dieses natürlich zwingend beteiligt.<\/p>\n Nun sollen die im OLE-Feld gespeicherten Bilder aber noch in ein Steuerelement eines Formulars gelangen, ohne einen Fuß auf den Boden des Dateisystems zu setzen.<\/p>\n Als Steuerelement kommt dabei das Image<\/b>-Steuerelement der Bibliothek Microsoft Forms 2.0 <\/b>zum Zuge. Es hat gegenüber dem in Access eingebauten Bildsteuerelement den Vorteil, dass man seiner Picture<\/b>-Eigenschaft direkt StdPicture<\/b>-Objekte zuweisen und diese so anzeigen kann.<\/p>\n Es ist genau wie das eingebaute Bildsteuerelement in jeder Installation von Access enthalten, auch bei der Runtime-Version. Sie brauchen sich also keine Sorgen zu machen, dass dieses Steuerelement einmal fehlt.<\/p>\n Sicherzustellen ist eigentlich nur, dass die individuellen Format-Eigenschaften dieses Steuerelements auf der Registerseite Andere <\/b>des Eigenschaftsfensters enthalten sind (siehe Bild 3).<\/p>\n Bild 3: Das Image-Steuerelement verbirgt seine Format-Eigenschaften auf der Registerseite Andere des Eigenschaftsfensters.<\/span><\/b><\/p>\n Dort sollten Sie beispielsweise die Eigenschaft PictureSizeMode <\/b>auf den Wert Zoom <\/b>einstellen, damit Bilder in den vorgegebenen Rahmen eingepasst werden.<\/p>\n Fehlt noch der Code, der das Bild aus dem OLE-Feld der Tabelle tblBuecher <\/b>herausholt und dieses im Image<\/b>-Steuerelement anzeigt. Die bereits weiter oben erwähnte Routine RequeryImage <\/b>aus Listing 3 prüft zunächst, ob das Feld Bild <\/b>überhaupt Daten enthält, und weist der Objektvariablen objPicture <\/b>mit der Funktion PicFromField <\/b>das im OLE-Feld gespeicherte Bild zu. Dessen Inhalt landet schließlich in der Eigenschaft Picture <\/b>des Image<\/b>-Steuerelements.<\/p>\n Listing 3: Aktualisieren der Anzeige im Image-Steuerelement des Formulars<\/p>\n Die Funktion PicFromField <\/b>verwendet dabei zunächst die GetChunk<\/b>-Methode des OLE-Feldes, um dessen Inhalt in einem Byte-Array zwischenzulagern, und wandelt dieses dann mit der Funktion ArrayToPicture <\/b>in ein StdPicture<\/b>-Objekt um.<\/p>\nPrivate Sub Form_Load()\r\n Me!objImage.Picture = _\r\n GetPictureFromURL( _\r\n \"http:\/\/www.access-im-unternehmen.de\/€ _\r\n €fileadmin\/images\/aiu_2008_01.png€)\r\n End Sub<\/pre>\n
Public Function WebToOLEField(strURL As String, strTable As String, strOLEField As String, boolEdit As Boolean, strIDField As String, lngID As Long)\r\n Dim objPicture As StdPicture\r\n Dim arr() As Byte\r\n Dim strFiletype As String\r\n Dim lngPicType As Long\r\n Set objPicture = GetPictureFromURL(strURL)\r\n strFiletype = Mid(InStrRev(strURL, \".€) + 1)\r\n Select Case strFiletype\r\n Case \"png€\r\n lngPicType = PicFileType.pictypePNG\r\n Case \"bmp€\r\n lngPicType = PicFileType.pictypeBMP\r\n Case \"jpg€\r\n lngPicType = PicFileType.pictypeJPG\r\n Case \"gif€\r\n lngPicType = PicFileType.pictypeGIF\r\n End Select\r\n arr = ArrayFromPicture(objPicture, lngPicType)\r\n ArrayToOLEField arr, strTable, strOLEField, boolEdit, strIDField, lngID\r\nEnd Function<\/pre>\n
\n
WebToOLEField \"http:\/\/www.access-im-unternehmen.de\/fileadmin\/images\/aiu_2008_01.png\", \"tblBuecher\", \"Bild\", \"True\", \"ID\", 1<\/pre>\n
Private Sub cmdAddPicture_Click()\r\n Dim strBild As String\r\n strBild = OpenFileName(CurrentProject.Path, \"Bilddatei auswählen€, _\r\n \"Bilddateien (*.bmp, *.png, *.gif, *.png)€)\r\n If Len(strBild) > 0 Then\r\n DoCmd.RunCommand acCmdSaveRecord\r\n SaveFileToOLEField strBild, \"tblBuecher€, \"Bild€, \"True€, \"ID€, Me.ID\r\n RequeryImage\r\n End If\r\n End Sub<\/pre>\n
![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2008_04\/BilderOnTheFly-web-images\/pic002_opt.jpeg\")
<\/p>\n![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2008_04\/BilderOnTheFly-web-images\/pic003_opt.jpeg\")
<\/p>\nPrivate Sub RequeryImage()\r\n Dim objPicture As StdPicture\r\n If Not IsNull(Me!Bild) Then\r\n Set objPicture = PicFromField(CurrentDb.OpenRecordset(\"SELECT Bild FROM tblBuecher \" _\r\n \"WHERE ID = \" & Me.ID).Fields(0))\r\n DoCmd.RunCommand acCmdSaveRecord\r\n Set Me.objPicture.Picture = objPicture\r\n Else\r\n Set Me.objPicture.Picture = Nothing\r\n End If\r\n End Sub<\/pre>\n