Access - Export von Bildern von den Image-Steuerelementen in Formularen

Ich habe die Suche nach einem Weg zum extrahieren von Bildern aus access-Formulare. Eine Suche auf Google wird fast immer zeigen Sie auf OLEtoDisk. Diese software ermöglicht das exportieren von gespeicherten Bildern in OLE-Felder in access-Tabellen. Dies ist nicht das, was ich will.

Ich habe ein Formular mit einigen logos, Header und hintergrund-Bilder. Diese Bilder machen die Datenbank werden größer und größer (weil Sie eingebettet sind in die form). Ich würde extrahieren Sie Sie, legen Sie Sie auf unserem server zusammen mit back-end-Datei und fügen Sie Sie zurück zu mein Formen, aber dieses mal als verknüpfte Bilder anstelle von eingebetteten Bildern.

Ich hoffe ich mache mich verständlich. Alle Vorschläge sind willkommen.

EDIT : Hinzugefügt den code, den ich verwende, um exportieren Sie ein Image-Steuerelement ist PictureData als image-Datei. Dieser code funktioniert nicht wie vorgesehen. Ich fand heraus, dass PictureData ist ein byte-array, aber nach kopieren in eine Datei, bekomme ich ein NUL-Zeichen jeweils zwei Zeichen.

Public Function savePict(pImage As Access.Image)
    Dim fname As String 'The name of the file to save the picture to
    Dim iFileNum As Double

    fname = Environ("Temp") + "\temp.png" ' Destination file path
    iFileNum = FreeFile 'The next free file from the file system

    Open fname For Binary Access Write As iFileNum
        Dim tbyte As Variant
        Dim i As Double
        'Write the byte array to the file
        For i = 0 To Len(pImage.PictureData)
            Put #iFileNum, , pImage.PictureData(i)
        Next i
    Close #iFileNum
End Function
  • Ich Tat dies vor vielen Jahren. Der einzige überrest einer Lösung kann ich im moment die Suche nach dem undokumentierten system commamd: 712, ex. SysCmd(712,PictureData)
  • Nach mehr sucht, fand ich, dass ich sparen müssen die PictureData eines Bild-Steuerelements in einer Datei. Ich fand heraus, dass PictureData ist ein byte-array, aber nach kopieren in eine Datei, bekomme ich ein NUL-Zeichen jeweils zwei Zeichen. Irgendeine Idee?
  • Ich denke, PictureData muss konvertiert Base64.
  • Vielen Dank für Ihre Hilfe. Sie zeigte mir den Weg. Am Ende brauchte ich eine Umwandlung.
InformationsquelleAutor user1422670 | 2012-05-29
  1. 4

    Bild Daten wird eine EMF-Datei, mit einem wrapper von 8 bytes.
    Das ist Ihre routine geändert, um die korrekte Datei-Erweiterung

    Public Function savePict(pImage As Access.Image)
    Dim fname As String 'The name of the file to save the picture to
    Dim iFileNum As Double
    Dim bArray() As Byte, cArray() As Byte
    Dim lngRet As Long

    fname = Environ("Temp") + "\temp.emf" ' Destination file path
    iFileNum = FreeFile 'The next free file from the file system

    ' Resize to hold entire PictureData prop
    ReDim bArray(LenB(pImage.PictureData) - 1)
    ' Resize to hold the EMF wrapped in the PictureData prop
    ReDim cArray(LenB(pImage.PictureData) - (1 + 8))
    ' Copy to our array
    bArray = pImage.PictureData
    For lngRet = 8 To UBound(cArray) 
        cArray(lngRet - 8) = bArray(lngRet)
    Next

    Open fname For Binary Access Write As iFileNum
    'Write the byte array to the file
    Put #iFileNum, , cArray
    Close #iFileNum
End Function
    • Vielen Dank für Ihre Antwort, aber ich bin sicher, es ist eine PNG-Datei.
    • lebans.com/imagecontroltoclipboard.htm Müllkippen, die es in die Zwischenablage, aber er wird Lesen Sie die Informationen in den ersten 8 bytes, die ich überspringen, und speichern Sie es in das format, das Zugriff hat, hielt es in.
    • Sie sehen in der Frage, dass ich bereits diese website gefunden. Der code, den Sie reden nicht unterstützt, ist PNG-Datei. Aber danke für den Kommentar trotzdem. Es kann anderen helfen.
    • Ich könnte in der Lage zu bereinigen, die Verwirrung. Es gibt zwei Möglichkeiten zum einbetten von Bildern in MS Access (siehe screenshot). Der "alte" ("Konvertieren Sie alle Bilddaten in bitmaps") konvertiert alle Bilder zu EMF, die "neue" ("Preserve source image format") wird das original-format intakt.
    • Ich hatte einen alten mdb-Datei accdb konvertiert. Form hatte eingebetteten jpg-Bilder in ein Bild-Steuerelement. Dieses Verfahren funktionierte perfekt, die Bilder zu extrahieren, um emf. Danke.
    InformationsquelleAutor SeanC
  2. 3

    Schließlich, hier ist der code, arbeitete als gedacht : Export als PNG-Bild aus einer form der Bild-Steuerelement.

    Public Function savePict(pImage As Access.Image)
    Dim fname As String 'The name of the file to save the picture to
    fname = Environ("Temp") + "\temp.png" ' Destination file path

    Dim iFileNum As Double
    iFileNum = FreeFile 'The next free file from the file system

    Dim pngImage As String 'Stores the image data as a string
    pngImage = StrConv(pImage.PictureData, vbUnicode) 'Convert the byte array to a string

    'Writes the string to the file
    Open fname For Binary Access Write As iFileNum
        Put #iFileNum, , pngImage
    Close #iFileNum
End Function
    InformationsquelleAutor user1422670
  3. 0

    Wenn Sie schauen, um re-verwenden Sie das Bild in einer anderen access-Datenbank (d.h. Sie verloren die ursprüngliche image-Datei, sondern es benutzen wollen, an anderer Stelle), eine weit einfachere Methode wäre zum importieren der Objekt (Formular, Bericht usw.) in Ihre neue Access-Datenbank über den Externen Daten -> Access-Menü.

    Können Sie dann einfach kopieren und einfügen das Bild-Steuerelement, wo Sie wollen, es zu benutzen...

    Leider kopieren/einfügen von Bild-Steuerelementen von Access-Datenbanken nicht funktioniert, wie Sie möchten.

    InformationsquelleAutor DB Pros
  4. 0
    1. Nehmen Sie Ihre Formular, ein hintergrund-Bild oder AutoFormat, dass Sie wie
    2. Mit der rechten Maustaste auf das Formular im Navigationsbereich, und wählen Sie Exportieren >> XML -
    3. Auf der ersten Seite des Assistenten wählen Sie ein Ziel, um die drop einige Dateien (Desktop ist in Ordnung)
    4. Ein kleiner dialog erscheint dann mit drei check-Boxen
    5. Wählen Sie die erste option (Daten) und die Dritte option (Präsentation) und klicken Sie dann auf OK
    6. Klicken Sie auf die Schaltfläche Schließen auf der letzten Seite des Assistenten, nachdem der export abgeschlossen ist
    InformationsquelleAutor BoZak
Schreibe einen Kommentar