HOWTO: Handle Adobe RGB Files whithout Embedded Profile

Dim sRGB as boolean
Dim AdobeRGB as boolean

If _bmSrc.ColorProfile Is Nothing Then

  Dim jpegReader As New Aurigma.GraphicsMill.Codecs.JpegReader(pixOrder.Quelle)
  Dim exif As Aurigma.GraphicsMill.Codecs.ExifDictionary = jpegReader.Exif
  Dim frame As Aurigma.GraphicsMill.Codecs.Frame = CType(jpegReader.LoadFrame(0), Aurigma.GraphicsMill.Codecs.Frame)

  frame.GetBitmap(_bmSrc)

  frame.Dispose()
  jpegReader.Dispose()

  AdobeRGB = True
  sRGB = False

  For Each key As Long In exif.Keys
    If LCase$(exif.GetKeyDescription(key)) = "color space information" Then
      If exif.GetItemString(key) <> "uncalibrated" Then
        AdobeRGB = False
         
        If exif.GetItemString(key) <> "sRGB" Then
          sRGB = True
        End If
      End If
    End If


     If LCase$(exif.GetKeyDescription(key)) = "white point chromaticity" Then
        If exif.GetItemString(key) <> "313/1000 329/1000" Then
          AdobeRGB = False
        End If
      End If

      If LCase$(exif.GetKeyDescription(key)) = "chromaticities of primaries" Then
        If exif.GetItemString(key) <> "64/100 33/100 21/100 71/100 15/100 6/100" Then
          AdobeRGB = False
        End If
      End If
    
    Next  key

    If sRGB = True Then
      _bmSrc.ColorProfile = Aurigma.GraphicsMill.ColorProfile.FromSrgb()
    End If

    If AdobeRGB = True Then
      _bmSrc.ColorProfile = New Aurigma.GraphicsMill.ColorProfile(Application.StartupPath + "\AdobeRGB1998.icc")
    End If
  End If