Thumbnails - Convert code for CF2
I have found this code to get thumbnails from metadata. I want to use this on the compact framework 2 for windows mobile 5. However, I am not sure how to convert as Image.FromStream, Image.PropertIdList and PropertyItem are not memebers of System.Drawing.Image in the CF.
Anyone know how I could achieve the same result for the CF?
Thanks
VB Code:
Private Const THUMBNAIL_DATA As Integer = 20507
Private Function GetThumbnail(ByVal path As String) As Image
Dim stream1 As FileStream = File.OpenRead(path)
Dim image1 As Image = Image.FromStream(stream1, False, False)
Dim flag1 As Boolean = False
Dim num1 As Integer
For num1 = 0 To image1.PropertyIdList.Length - 1
If (image1.PropertyIdList(num1) = Me.THUMBNAIL_DATA) Then
flag1 = True
Exit For
End If
Next num1
If Not flag1 Then
Return Nothing
End If
Dim item1 As PropertyItem = image1.GetPropertyItem(Me.THUMBNAIL_DATA)
stream1.Close()
image1.Dispose()
Dim buffer1 As Byte() = item1.Value
Dim stream2 As New MemoryStream(buffer1.Length)
stream2.Write(buffer1, 0, buffer1.Length)
Return Image.FromStream(stream2)
End Function