双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

VB如何发送JSON数据到上级单位系统中，急求大神支招！谢谢！

2022-09-03 01:07:09 483 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

cdsqkj 墨衍会员 · AI 创作全网分发关注 + 加入社区

【多媒体处理】基于C++、Qt与FFmpeg的课堂视频自动分段与重点标记系统设计项目介绍基于C++、Qt与FFmpeg的课堂录屏视频自动分段与重点标记系统设计与实现（含模型描述及部分示例代码）内容概要：本文详细介绍了一个基于C++、Qt与FFmpeg的课堂录屏视频自动分段与重点标记系统的设计与实现。系统通过多模态分析技术，结合视频画面差异、音频特征（如短时能量、过零率、静音分析）以及时间上下文信息，实现对课堂视频的智能分段和重点内容识别。项目采用模块化架构，涵盖媒体解码、视觉与音频特征提取、多模态融合决策、片段构建与重点评分等功能，并通过Qt实现图形化交互界面，支持用户对自动生成的结果进行校正与导出。文中还提供了核心数据结构定义及关键算法的C++代码示例，包括帧抽样解码、画面差异计算、音频分析、边界融合与片段生成等，具备较强的工程落地能力。; 适合人群：具备C++编程基础，熟悉Qt框架和多媒体处理技术的中高级开发人员，以及从事教育信息化、视频分析、智能教学系统研发的相关技术人员。; 使用场景及目标：①用于课堂教学视频的自动化整理，提升教师后期剪辑与资源归档效率；②构建可解释的多模态分段模型，适应不同类型课程（如理工类、语言类）的教学节奏与特征；③改善学生对长视频的学习体验，实现知识点快速定位与重点内容优先复习；④作为可扩展的多媒体工程框架，支撑会议录像、培训视频等类似场景的内容结构化处理。; 阅读建议：此资源不仅提供理论模型描述，更侧重于实际工程实现，建议读者结合代码示例深入理解各模块设计思路，重点关注FFmpeg的流式解码、多线程处理机制与Qt信号槽通信的应用，并可根据需求集成OCR、语音识别等模块以进一步增强系统功能。立即下载

上级单位网址“http://122.56.xx.xxx:8088/index",用户名：xxx,密码:xxxx，要求数据格式打包成JSON上传。

我想通过VB实现数据上传，并能接收传输成功与否的反馈信息，网上查了下winhttp用法，做了一个没成功，

请大侠指点！

上级单位JSON数据要求：

1、接口类型：POST

数据内容：JSON

{

"user":"admin",

"data":{ "category":"供方分类",

"vcode":"供方编码",

"name":"供方名称",

}

返回数据：JSON

{

"code": 0, //0-成功 1-失败

"msg": "上传成功", //提示信息

"data": null //上传的原始数据对象

}

以下为VB上传代码：

Private Sub Command3_Click()
Dim str As String
str = SendData
URL = "http://122.56.xx.xxx:8088/index”

Debug.Print HttpPOST(URL, str)

End Sub

Private Function SendData() As String
Dim str As String
str = "{"
str = str & vbCrLf & """user""" & ":" & """admin""" & ","
str = str & vbCrLf & """data""" & ":" & "{"
str = str & vbCrLf & """category""" & ":" & """主材供应商""" & ","
str = str & vbCrLf & """vcode""" & ":" & """002""" & ","
str = str & vbCrLf & """name""" & ":" & """test"""
str = str & vbCrLf & " }"
str = str & vbCrLf & "}"
SendData = str
Debug.Print str
End Function

Public Function HttpPOST(ByVal URL As String, ByVal JSONData As String) As String
Dim HTTP As Object
Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

HTTP.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300

HTTP.SetTimeouts 6000, 15000, 60000, 60000

HTTP.Option(6) = False
HTTP.Option(4) = 13056
HTTP.Open "POST", URL, False

HTTP.SetCredentials "用户名", "密码", 1
HTTP.SetRequestHeader "Content-Type", "application/json"
HTTP.SetRequestHeader "Content-Length", LenB(StrConv(JSONData, vbFromUnicode))
HTTP.Send JSONData
HttpPOST = HTTP.ResponseText
HTTP.ResponseBody

Set HTTP = Nothing

End Function

...全文