наше веб-приложение разработано на облачном сервере , я установил необходимые инструменты и записал код в решение. Проблема в том, что облачный сервер не обнаружил планшет для наших необходимых тестовнесмотря на это мы дали разрешение на использование всех местных ресурсов.код здесь, и он хорошо работает на локальном
Dim sigCtl As New SigCtl
Dim dc As New DynamicCapture
Dim res As DynamicCaptureResult
Dim renderOK As Boolean
sigCtl.Licence = ""
res = dc.Capture(sigCtl, "who", "why", vbNull, vbNull)
If (res = DynamicCaptureResult.DynCaptOK) Then
'print("signature captured successfully")
Dim sigObj As SigObj
sigObj = sigCtl.Signature
sigObj.ExtraData("AdditionalData") = "Additional data"
Dim filename As String = System.IO.Path.GetTempFileName()
renderOK = False
Try
sigObj.RenderBitmap(filename, 300, 150, "image/png", 0.5F, &HFF0000, &HFFFFFF, 0, 0, RBFlags.RenderOutputFilename Or RBFlags.RenderColor32BPP Or RBFlags.RenderEncodeData)
renderOK = True
Catch RenderError As System.ArgumentException
'print(RenderError.Message + "Argument error when rendering bitmap")
End Try
If (renderOK = True) Then
Dim path As String = filename
Dim base64String As String
Dim image As System.Drawing.Image = System.Drawing.Image.FromFile(path)
Using thumbnail As System.Drawing.Image = image.GetThumbnailImage(image.Width, image.Height, New System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback), IntPtr.Zero)
Using memoryStream As New MemoryStream()
thumbnail.Save(memoryStream, Imaging.ImageFormat.Png)
Dim bytes As [Byte]() = New [Byte](memoryStream.Length - 1) {}
memoryStream.Position = 0
memoryStream.Read(bytes, 0, CInt(bytes.Length))
base64String = Convert.ToBase64String(bytes, 0, bytes.Length)
'ImageSignature.ImageUrl = "data:image/png;base64," & base64String
'ImageSignature.Visible = True
End Using
End Using
End If
кто-то может помочь мне, как пользовательский интерфейс устройства в облаке благодаря