二进制流转换成图像,提示无效图片
Dim m_lFingerData As String Dim m_lFingerData1 As String Dim newImage As Image Dim bitmapData() As Byte Dim iStm As ADODB.StreamDim strValue As String m_lFingerData = FormatDbValue(rsTemp!fng_value) bitmapData = Trim(StrConv(m_lFingerData, vbUnicode)) Set iStm = New ADODB.Stream With iStm .Mode = adModeReadWrite .Type = adTypeBinary .Open .Write bitmapData .SaveToFile App.Path & "\test1.jpg" End With imgFinger.Picture = LoadPicture(App.Path & "\test1.jpg")
m_lFingerData=TTtTUzIxAAAEeH0ECAUHCc7QAAAceWkBAAAAhKUliHggAA0PtAD2AIt32QA1AJ4PvgA9eAYKjQA6AEAKg3hQAIQB6gCwADR+ZwB8AAsOQgCEeCIPSwCEADAO9HiFALIG9ABUADd/GwCZAFsOmACeeGcJMACdAJwPT3ipAOsJZABsACFxuACvADoPRgDEeEkPJgDXAIEP4XjbALkPiQAaAE93MgDmAMsL+gDjeNYLsQDsAIYPMXj3ANcIVQA+AGV3WAAIAV4P3AAXedcLbQAXAZwPLHgvAXIMgwD0AVZ3VwA4AWAP9ABAeWYJuQBLAYELIHhRAeUJygCTAUFzsIrNC4aDM/FudoeHZhEbc6Ybef2oh1X/fYGAAr0CyAKpfz9gRICChAaX6RvCpLvo4mAeoMu8ge90k8p1AICBhDd7xIAGfLr7LQYzcdJpTTiAfsFzsQL8cw4dfIaZyiWXzMDZRnfeu/Zng0r7doTXJtvmYXmTbG4VOnprg5OLKwRGc6LvuPfx9JyJKHcAAUKUyvv2jgNzZAyBAbJ4kAS69KeM1fw9BnOK0hyLAoMNwf6LCcqBQA66nFaNF/mvjM73lvr6Ct4Qef3I9g4KVQEW99OXfIFidYuGEAHXj/IHSi4CItcgPHkDmSg4BgBfDg2G/jsSAIcUwzw6RcH+wf9UCsXPHGQ/wTLAFABHGwRRPv/+Sv9VnwwEsBoc//5bRYUGBBUjA//+VgPFkSZ0/hoAWSQMB8AruP//NURC/wT+xYfB/gQA/CziPQF4UzL6//7B0gCCSxHAODU+SpZVQn4B9zMpwP+XBgTANho+/gQAsjiH9BYAiD8G/eo7Qrr/VGTAThXFOkOVKf9ANf//O8BAIxwAPk30Lzr8xbj8QD5KVMCPwGh/AYFQhn6H0wB9GA5B//1ERInC+bjAbAoAdmRGwsa4dnwfACdqLjg8Vjo+wP7BRJZYU3QBeGqAjGmcwgx4e2sGJ/8x0ABuBAL8/f/+LgVl+4dX/zsgABe658SHP/7AKv/+9VRcKf9rbBkATUXw+4b8//z+//0F/cWHwf//wMDBO8H7uP8UAIqCIDr++ldZN1T/wP7SAFf89f0h/ypK+8DEuf84CABHh6xvfH8B+JMxRUTNAPfsNsBkQgoAnJhpvH3BwzQMAKSZBIP9/DT/wFXPACrnW2lZfxAAr6kagfz//kw+/jhsC3i2szpHwUSQ/2x3AbyzN0X9B0TEuMBMBQBftp/BTVIBZLk6Hv46wvqD9/c8wUYqOPwlUUdUwTY0BsVgxSgywSEABcITVPoyMCf+Mf1kOsI2GG0MAIPLSfvA+z5LBAAm3UapGgRM48k7/f7/Pfr4hEfAwMD9wTvA+odTDACJ5UyPR1CHCwCx70D+BcHEhmkVADPy063A+IH3+v3+wP47wvqH/P/8CABUO2JLSQkQWAtcOPkiFGsQqfnANv+BKvmF/P79LlRF80QOaGkYVzhLUs0QaWNR/l5BAxDgMHC4BxCDNlP/Bf75fhFUO144/8EQKDxoOA==