【Winform】Winform + Webservice提高数据传输速度
找了好久找到的,随不是很明显吧。
1. 服务器上面取数据,填充数据集,转换为二进制格式.
2. 通过WebService把byte[]格式的数据发送到客户端
3.客户端接收到byte[]格式的数据,对其进行反序列化,得到数据集
''' <summary>
''' Serialize the Data of dataSet to binary format
''' </summary>
''' <param name="dsOriginal"></param>
''' <returns></returns>
Public Function GetBinaryFormatData(ByVal dsOriginal As DataSet) As Byte()
Dim binaryDataResult As Byte() = Nothing
Dim memStream As New IO.MemoryStream()
Dim brFormatter As Runtime.Serialization.IFormatter = New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
dsOriginal.RemotingFormat = SerializationFormat.Binary
brFormatter.Serialize(memStream, dsOriginal)
binaryDataResult = memStream.ToArray()
memStream.Close()
memStream.Dispose()
Return binaryDataResult
End Function
''' <summary>
''' Retrieve dataSet from data of binary format
''' </summary>
''' <param name="binaryData"></param>
''' <returns></returns>
Public Function RetrieveDataSet(ByVal binaryData As Byte()) As DataSet
Dim dataSetResult As DataSet = Nothing
Dim memStream As New IO.MemoryStream(binaryData)
Dim brFormatter As Runtime.Serialization.IFormatter = New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
Dim obj As Object = brFormatter.Deserialize(memStream)
dataSetResult = DirectCast(obj, DataSet)
Return dataSetResult
End Function
''' Serialize the Data of dataSet to binary format
''' </summary>
''' <param name="dsOriginal"></param>
''' <returns></returns>
Public Function GetBinaryFormatData(ByVal dsOriginal As DataSet) As Byte()
Dim binaryDataResult As Byte() = Nothing
Dim memStream As New IO.MemoryStream()
Dim brFormatter As Runtime.Serialization.IFormatter = New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
dsOriginal.RemotingFormat = SerializationFormat.Binary
brFormatter.Serialize(memStream, dsOriginal)
binaryDataResult = memStream.ToArray()
memStream.Close()
memStream.Dispose()
Return binaryDataResult
End Function
''' <summary>
''' Retrieve dataSet from data of binary format
''' </summary>
''' <param name="binaryData"></param>
''' <returns></returns>
Public Function RetrieveDataSet(ByVal binaryData As Byte()) As DataSet
Dim dataSetResult As DataSet = Nothing
Dim memStream As New IO.MemoryStream(binaryData)
Dim brFormatter As Runtime.Serialization.IFormatter = New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
Dim obj As Object = brFormatter.Deserialize(memStream)
dataSetResult = DirectCast(obj, DataSet)
Return dataSetResult
End Function
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· Linux系列:如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· 无需6万激活码!GitHub神秘组织3小时极速复刻Manus,手把手教你使用OpenManus搭建本
· Manus爆火,是硬核还是营销?
· 终于写完轮子一部分:tcp代理 了,记录一下
· 别再用vector<bool>了!Google高级工程师:这可能是STL最大的设计失误
· 单元测试从入门到精通
2006-12-26 表之间的连接关系
2006-12-26 用sql语句动态的创建access表[转]
2006-12-26 水晶报表分页实现方法 [转]
2006-12-26 Crystal 语法概述[转]