二进制图片数据在窗体上的渲染

时　间:2024-08-14 11:05:56
作　者:双鱼座的20年   ID：63297  城市：西安
摘　要:共享一个源码，这个源码的主要作用是当http返回一个照片时，通过二进制将照片数据压缩传输到vba端，采用adodb.stream的方法，可以将二进制数据存储到本地电脑作为静态png文件，后续在通过img.picture的方法，给渲染出来。
正　文:

      由于VBA项目的受众群体不是很多，所以用VBA处理一些复杂计算时往往不好用。
      但是可以通过例如python的一些项目，作为服务端来处理这些计算，那么python与VBA端的数据衔接的方式最好的解决方案是采用http通讯。其实就是把python作为服务端，VBA的作为Qt的前端来使用。

VBA与Python的Http通讯，请参考：

http://www.accessoft.com/article-show.asp?id=20914

      上述链接已经解决了python返回JSON字符串的处理方法，当python端返回的是图片时，则采用以下处理方法，以下是处理步骤：
1）Python端的路由采用fastapi.responses中的StreamingResponse方法，将服务端产生的图片转为二进制流数据通过http.responsebody响应反馈到VBA代码：
#fastapi中的路由装饰器，定位url的请求处理函数，这里子路由假定是"/"
@router.post("/")
async def some_func(post_data):
#这里的some_func需要返回的值是64位的二进制utf-8的图片编码
buf= some_func()
# 以下这段代码将会把buf的数据采用流数据的形式响应到http的请求体中
return StreamingResponse(buf, media_type="image/png")

# 关于some_func()的buf生成，因为我是用python的画图程序matplotlib生成图片的，我以这个来举例
## 定义buf的数据类型
     buf = io.BytesIO() 以字节形式输出
     plt.savefig(buf, format='png', dpi=300)， 用matplotlib的pyplot将buf保存到内存中，格式是png，图片质量是dpi=300

2) VBA端处理python端的返回结果
# httpResponse是VBA XML的httpResponse对象，fname是最终将流数据的图片产生temp的存放地址，ParseStreamToImage函数最终返回boolean值
#以判断是否正确处理响应，好在窗体中根据返回值判断是否要对img进行加载。

Public Function ParseStreamToImage(httpResponse, fname As String) As Boolean
On Error GoTo ErrHandle
    ParseStreamToImage = False
    # 这里创建一个stream的对象，并将其定义为ADODB.Stream对象
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    #以下是stream对象的操作，open是打开这个对象，即可以对对象内容进行操作，
    #type定义对象的类型，这里定义为二进制
    #Write则是将httpResponse响应体中的内容写入到stream对象中
    stream.Open
    stream.Type = adTypeBinary
    stream.Write httpResponse.responseBody
    #Position是定义内存位置，不用管默认都是从0开始的，问我我也不知道，我百度的
    stream.Position = 0
    #SaveToFile则是将 stream中的二进制流数据导出为图片，导出的位置则是fname，adSaveCreateOverWrite是如果有同名文件时则覆盖处理
    stream.SaveToFile  fname, adSaveCreateOverWrite
    #close.关闭stream对象，并释放内存
    stream.Close
    Set stream = Nothing
    #当成功操作时ParseStreamToImage 返回True，表示已经将数据处理好，并生成了对应路径下的文件。后续可以基于此判断来进行渲染操作
    ParseStreamToImage = True

ExitHere:
    Exit Function

ErrHandle:
    ParseStreamToImage = False
    Exit Function

End Function

      效果是在窗体端当点击solve按钮后，会通过http把请求数据发送到python的后端来处理，python处理完成后把图片作为二进制数据再反馈给vba端，vba处理好这些数据后再在窗体上渲染出来就OK了。

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店