Conversion d'un objet Image OLE de MS Access pour une utilisation dans .NET

Essayer de récupérer un champ d'image OLE d'accès MS-Access à partir de .NET est beaucoup plus mal à la tête qu'elle ne vaut. Il y a une bonne discussion et des informations sur ce sujet dans Ce message < / a>.

En fin de compte, votre meilleure solution, et la solution la plus simple et la plus facile à réussir consiste à utiliser votre méthode de visualisation de travail pour enregistrer ces images en tant que fichiers distincts, puis importer ces fichiers dans la base de données en tant que champs Blob, plutôt que des champs d'image. Ensuite, vous pouvez facilement les lire dans .NET.

Essayez ce kb http://support.microsoft.com/kb/317701 article de Microsoft. Il contient des informations sur la manière d'accéder à l'image BLOB à partir de l'accès et d'afficher l'application WinForms.

Ce n'est pas le code C # mais voici un Exemple Delphi d'un moyen de résoudre ce problème.

Il utilise le ioleObject pour dessiner Tout ce qui est stocké au lieu d'essayer de lire les données brutes. Étapes:

1. Lire l'en-tête d'accès devant l'objet OLE
2. lire le flux OLE1
3. Convertissez le flux OLE1 en Ole2 Istorage objet
4. Utilisez oléload à "Run" l'ole ojbect.
5. appelez OLEDRAW pour dessiner le image à une toile de votre choix.

Dans mon cas, la fonction suivante a fonctionné. Les données sont stockées par une application VB6.

public static byte[] ConvertOleBytesToRawBytes(byte[] oleBytes)
{
   // The default encoding is in my case - Western European (Windows), Code Page 1252
   return Encoding.Convert(Encoding.Unicode, Encoding.Default, (byte[])oleBytes);
}

Je devais faire exactement la même chose pour quelque 1 1600 objet de différents types d'extension. Dans mon cas, c'était une base de données héritée qui avait été littéralement utilisée depuis des décennies. Au fil des années, de nombreux types de fichiers ont été ajoutés via un cadre d'objet OLE. Certains des articles qui ressemblaient à des "images" se sont avérés sur des documents Word avec une image intégrée ... NON avoir dit quels autres types de fichiers étaient là? Tout ce que je sais, c'est que j'ai étudié et essayé différentes méthodes d'extraction pendant plus d'une semaine. Même tous Outils d'extraction Steven Leban tels que OLETODISK, A2KEXPORTOLETOJPEG et SauvedOutObitMap. Chacun d'entre eux extraire des images ... Mais leur taille n'était pas une taille unique qui convient à tous ... c'était un gâchis!

À la fin, j'ai fini par effectuer une prise d'écran automatisée de chaque image via VBA en utilisant la méthode ci-dessous. Bien que cela n'ait pas été le plus idéal, il fonctionnait pour chaque type de fichier. Cependant, la méthode de prise d'écran capture une prise d'écran de l'écran complet. Une fois que tous les autres ont été extraits, j'ai ensuite dû utiliser Photoshop pour faire un autre processus automatisé à la récolte de lots toutes les photos. Pas idéal mais cela a fonctionné! P>

Private Sub CaptureAllImages()
    On Error Resume Next
    Me.RecordsetClone.MoveFirst
    Do While Not Me.RecordsetClone.EOF
        Me.Bookmark = Me.RecordsetClone.Bookmark
        Call Pause(2)
        Call SaveClip2Bit("C:\Users\agriggs\Desktop\Parts Images\MasterPart_" & Me.MasterPartNumber & ".bmp")
        Me.RecordsetClone.MoveNext
    Loop

End Sub

Public Function Pause(NumberOfSeconds As Variant)
    On Error GoTo Error_GoTo

    Dim PauseTime As Variant
    Dim start As Variant
    Dim Elapsed As Variant

    PauseTime = NumberOfSeconds
    start = Timer
    Elapsed = 0
    Do While Timer < start + PauseTime
        Elapsed = Elapsed + 1
        If Timer = 0 Then
            ' Crossing midnight
            PauseTime = PauseTime - Elapsed
            start = 0
            Elapsed = 0
        End If
        DoEvents
    Loop

Exit_GoTo:
    On Error GoTo 0
    Exit Function
Error_GoTo:
    Debug.Print Err.Number, Err.Description, Erl
    GoTo Exit_GoTo
End Function