как использовать «устройство пользовательского интерфейса» в облачном сервере - PullRequest
0 голосов
/ 19 октября 2018

наше веб-приложение разработано на облачном сервере , я установил необходимые инструменты и записал код в решение. Проблема в том, что облачный сервер не обнаружил планшет для наших необходимых тестовнесмотря на это мы дали разрешение на использование всех местных ресурсов.код здесь, и он хорошо работает на локальном

  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

кто-то может помочь мне, как пользовательский интерфейс устройства в облаке благодаря

...