Преобразование OpenNetCF GetSignatureEx в растровое изображение на рабочем столе

Question

У меня есть база данных SQLite, которая работает на переносном устройстве, которое захватывает сигнатуры с использованием Open DeviceCF Smart Device Framework 2.1 под управлением Windows Mobile 6.1. Подписи фиксируются из элемента управления Signature с использованием метода GetSignatureEx и хранятся в базе данных.

Теперь я хочу восстановить подписи на рабочем столе, но на рабочем столе нет аналогичного элемента управления. Я просмотрел данные, и это похоже на кучу векторов, что объясняет, почему данные настолько компактны.

Кто-нибудь знает, как я могу преобразовать данные в растровое изображение на рабочем столе с помощью VB.NET. Благодарю.

Answer 1

Нашел то, что я хотел на форуме OpenNetCF. Код был первоначально на C#, но не потребовалось слишком много времени, чтобы преобразовать его в VB.NET. Этот код был протестирован на версиях 2.0 и 2.1 в среде OpenNetCF, но, по-видимому, он будет работать с версией 1.4. Колин

Public Function GetSignature(ByVal arrsig As Byte(), ByVal backcolor As System.Drawing.Color) 
    Dim pic As System.Windows.Forms.PictureBox 
    Dim word As Integer 
    Dim lngIndex As Integer 
    Dim lngPointsToRead As Integer = 0 
    Dim lngCurrX As Integer = -1 
    Dim lngCurrY As Integer = -1 
    Dim lngPrevX As Integer = -1 
    Dim lngPrevY As Integer = -1 
    Dim lngWidth As Integer = 1 
    Dim lngHeight As Integer 
    Dim bit As New System.Drawing.Bitmap(1, 1) 
    Dim g As Graphics = Graphics.FromImage(bit) 
    pic = New picturebox() 
    Dim blackpen As New Pen(Color.Black) 
    If arrsig.Length < 3 Then 
     Return Nothing 
    End If 
    word = arrsig(0) 
    word = word + System.Convert.ToInt32(arrsig(1)) * 256 
    lngWidth = word 
    word = arrsig(2) 
    word = word + System.Convert.ToInt32(arrsig(3)) * 256 
    lngHeight = word 
    bit = New Bitmap(lngWidth, lngHeight) 
    g = Graphics.FromImage(bit) 
    g.Clear(backcolor) 
    lngIndex = 4 
    While (True) 
     If (lngIndex >= arrsig.Length) Then 
      Exit While 
     End If 
     If (lngPointsToRead = 0) Then 
      word = arrsig(lngIndex) 
      lngIndex = lngIndex + 1 
      word = word + System.Convert.ToInt32(arrsig(lngIndex)) * 256 
      lngPointsToRead = word 
      lngPrevX = -1 
      lngPrevY = -1 
     Else 
      If (lngCurrX = -1) Then 
       word = arrsig(lngIndex) 
       If (lngWidth > 255) Then 
        lngIndex = lngIndex + 1 
        word = word + System.Convert.ToInt32(arrsig(lngIndex)) * 256 
       End If 
       lngCurrX = word 
      ElseIf (lngCurrY = -1) Then 
       word = arrsig(lngIndex) 
       If (lngHeight > 255) Then 
        lngIndex = lngIndex + 1 
        word = word + System.Convert.ToInt32(arrsig(lngIndex)) * 256 
       End If 
       lngCurrY = word 
       lngPointsToRead = lngPointsToRead - 1 
       If (lngPrevX <> -1) Then 
        g.DrawLine(blackpen, lngPrevX, lngPrevY, lngCurrX, lngCurrY) 
       End If 
       lngPrevX = lngCurrX 
       lngPrevY = lngCurrY 
       lngCurrX = -1 
       lngCurrY = -1 
      End If 
     End If 
     lngIndex = lngIndex + 1 
    End While 
    pic.Image = bit 
    Return pic.Image 
End Function